Excel vba copier des valeurs

Résolu/Fermé
carde - 7 déc. 2007 à 17:23
 fafa0663 - 31 mai 2008 à 15:17
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

5 réponses

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
4
Bonjour,

Pour protéger ma feuiile j'aimerais pouvoir uniquement faire un copier coller valeurs au demarrage de ma feuille dans mon workbook.

Peux-tu me donner le code STP merci
0