question vba

[hboisteau]

Bonjour, je recherche a modifier un code VBA, mais malheureusement sans succes
Voici le code:

Private Sub CommandButton1_Click()
Col = "A"
With Sheets("Feuil3")
DerLig = .Range(Col & "65536").End(xlUp).Row + 1
.Range(Col & DerLig) = Sheets("Feuil2").Range("A1")
End With
Col = "C"
With Sheets("Feuil3")
DerLig = .Range(Col & "65536").End(xlUp).Row + 1
.Range(Col & DerLig) = Sheets("Feuil2").Range("B1")
End With
End Sub

En fait se code copie la cellule 1 de la colonne A dans une autre feuille, mais question est comment faire pour copier une autre cellule (D4: par exemple)
Avec mes remerciements
Hb

 

[tototiti2008]

Re : question vba

Bonjour hboisteau,

simplement en remplaçant "A1" par "D4" ?

 

[hboisteau]

Re : question vba

bonjour,
ce n'ai pas celui la de A1 de je veux changer en fit il me copie la valeur dans la colonne A de la feuil 2 et j'aimerais copier la cellule 5 par exemple
merci
Hb

 

[Roland_M]

Re : question vba

bonjour
dans ce cas tu ne dois pas utiliser ceci: DerLig = .Range(Col & "65536").End(xlUp).Row + 1

explication:

Private Sub CommandButton1_Click()
Col = "A" ' <<< adapter la colonne source >>>
DerLig = 1 '<<< adapter la ligne source >>>
With Sheets("Feuil3")
.Range(Col & DerLig) = Sheets("Feuil2").Range("A1") '<<< ("A1") adapter la destination
End With

Col = "C" ' <<< adapter la colonne source >>>
DerLig = 1 '<<< adapter la ligne source >>>
With Sheets("Feuil3")
.Range(Col & DerLig) = Sheets("Feuil2").Range("B1") '<<< ("B1") adapter la destination
End With
End Sub

Roland