Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1304 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Utiliser une variable dans une fonction range.value

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Utiliser une variable dans une fonction range.value

n°1859392
nathanc
Posté le 09-03-2009 à 16:16:18  profilanswer
 

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

mood
Publicité
Posté le 09-03-2009 à 16:16:18  profilanswer
 

n°1859396
nathanc
Posté le 09-03-2009 à 16:22:11  profilanswer
 

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

n°1993159
nchevrier
Posté le 14-05-2010 à 23:29:49  profilanswer
 

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()
  2. Dim colonne1 As Integer
  3. Dim colonne2 As Integer
  4. Dim test1 As String
  5. Dim test2 As String
  6. colonne1 = 3
  7. colonne2 = 16
  8. ' Bouton_QuandClic Macro
  9. ' Macro enregistrée le 14/05/2010 par Admin
  10. '
  11. Sheets("Feuil1" ).Select
  12. If Range("B3" ).Value <> 0 Then
  13. 'Copie du tarif
  14. Sheets("Feuil1" ).Select
  15.     Range("C" & colonne1).Select
  16.     Selection.Copy
  17.     Sheets("Feuil2" ).Select
  18.     Range("D" & colonne2).Select
  19.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  20.         :=False, Transpose:=False
  21. End If
  22. End Sub


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

n°1993162
nchevrier
Posté le 14-05-2010 à 23:49:45  profilanswer
 

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

n°1993169
kiki29
Posté le 15-05-2010 à 02:35:17  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Utiliser une variable dans une fonction range.value

 

Sujets relatifs
Chiffrement. Quel bibliothèque (pour C#) ou comment utiliser gpg?Incrémentation de variable
Problème fonction opendirFonction de saisie
Question : quelles technologies utiliser pour mon problème ?Creer mail en fonction du nom et prenom AD
Ma variable publique est désinitialisée par mon UserForm[Shell] : récupération de variable via awk
Appel de fonctionfonction statistique [VBA] [Help]
Plus de sujets relatifs à : Utiliser une variable dans une fonction range.value


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR