Excel vba copier des valeurs Résolu/Fermé

Question

Bonjour,
Je sias copier les valeurs de 4 cellules d6,e6,f6,g6 en a20,b20,c20,d20 avec un "commandbouton".

Private Sub CommandButton1_Click()
 Range("D6:G6").Select
    Selection.Copy
 Range("A20:D20").Select
    Range("A20").Activate
    ActiveSheet.Paste
End Sub

Mais je ne sais pas copier les valeurs de ces même cellules en a21,b21,c21,d21 puis en a22,b22,c22,d22 et ainsi de suite avec ce même bouton.

Je suis débutant, merci de votre aide

nicodoudou · Accepted Answer

Voila un exemple de code

    Range("C7:E15").Select
    Selection.Copy
    Range("H7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

néné · Answer

Bonjour

Inutile de faire une copie

fait ceux-ci

Private Sub CommandButton1_Click() 
Range("h7")=Range("D6")
Range("h8")=Range("D7")
'et ainsi de suite
End Sub

carde · Answer

Merci, mais je cherche à copier les valeurs de d6:g6 à chaque action sur "commandbutton" dans les cellules a20:d20 puis a21:d21 et ainsi de suite à chaqua validation par le bouton commande.

nicodoudou · Answer

Voila la procédure

Private Sub CommandButton1_Click() 

'recherche de la première ligne non remplie
i=20
while(not(range("a" & i)=""))
 i=i+1
wend

'transfert des données
range("a" & i)=Range("A6") 
range("b" & i)=Range("B6") 
range("c" & i)=Range("C6") 
range("d" & i)=Range("D6") 
End Sub

carde · Answer

Merci beaucoup pour aide concluante.

Excel vba copier des valeurs

5 réponses

Discussions similaires