Utiliser une variable dans une fonction range.value

Utiliser une variable dans une fonction range.value - VB/VBA/VBS - Programmation

Marsh Posté le 09-03-2009 à 16:16:18    

Voila, je souhaiterai utiliser la valeur d'une variable dans une fonction range.
Comment puis je faire ?
 

Reply

Marsh Posté le 09-03-2009 à 16:16:18   

Reply

Marsh Posté le 09-03-2009 à 16:22:11    

je viens de trouver, je publie mon code qui sélectionne aussi la premiere ligne non utilisée d'une colonne si cela peut servir a quelqu'un !
 
Sub Derniereligne()
Static Derniere_ligne As Long
Static a As Long
Derniere_ligne = ActiveSheet.Columns.End(xlDown).Row
 
a = Derniere_ligne + 1
MsgBox Premiere_ligne
  Range("A" & a).Value = UserForm3.TextBox1.Value
  Range("B" & a).Value = UserForm3.TextBox8.Value
  Range("C" & a).Value = UserForm3.TextBox3.Value
  Range("D" & a).Value = UserForm3.TextBox4.Value
  Range("E" & a).Value = UserForm3.TextBox5.Value
  Range("F" & a).Value = UserForm3.TextBox6.Value
  Range("G" & a).Value = UserForm3.TextBox7.Value
  Range("H" & a).Value = UserForm3.TextBox9.Value
  Range("I" & a).Value = UserForm3.TextBox10.Value
   
  MsgBox "Vous avez bien rajouté" & Texbox1.Value & " à la liste des sous-traitants!"
Unload UserForm3

Reply

Marsh Posté le 14-05-2010 à 23:29:49    

Voila bonsoir,
 
J'ai un cht'i souci, je cherche, je farfouille mais bon ca fait des années que j'ai pas touche a du VB et la je coince
 
mon pb est le suivant sur la feuille 1, en fonction d'un test, je veux copier la valeur de ma cellule C3, sur la feuille 2, dans la cellule D16.
 
Je vous mets tout le programme, faut dire, il y a pas gd chose non plus :  :)  
 

Code :
  1. Sub Bouton_QuandClic()
  3. Dim colonne1 As Integer
  4. Dim colonne2 As Integer
  5. Dim test1 As String
  6. Dim test2 As String
  9. colonne1 = 3
  10. colonne2 = 16
  13. ' Bouton_QuandClic Macro
  14. ' Macro enregistrée le 14/05/2010 par Admin
  15. '
  16. Sheets("Feuil1" ).Select
  17. If Range("B3" ).Value <> 0 Then
  19. 'Copie du tarif
  20. Sheets("Feuil1" ).Select
  21.     Range("C" & colonne1).Select
  22.     Selection.Copy
  23.     Sheets("Feuil2" ).Select
  24.     Range("D" & colonne2).Select
  25.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  26.         :=False, Transpose:=False
  27. End If
  28. End Sub


 
Si quelqu'un peut m'aider. Ca serait tres charitable.
 
Merci d'avance

Reply

Marsh Posté le 14-05-2010 à 23:49:45    

Pourquoi faire complique quand on peut faire simple.
 

Code :
  1. Sheets("Feuil1" ).Select
  2.     Range("A" & colonne1).Select
  3.     test1 = Range("A" & colonne1)
  4.     Selection.Copy
  5.     Sheets("Feuil2" ).Select
  6.     test2 = Range("A" & colonne2)
  7.     Range("A" & colonne2) = test1


 
Reste plus qu'àgenerer ma boucle de fin de test.
 
Merci mais c'est OK

Reply

Marsh Posté le 15-05-2010 à 02:35:17    

Salut, la syntaxe pourrait se resumer à qqch comme


Worksheets("A" ).Range("A1:D4" ).Copy Destination:=Worksheets("B" ).Range("E5" )


A adapter à ton contexte , en évitant les select inutiles et couteux en temps

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed