Excel vba copier des valeurs [Résolu/Fermé]

Signaler
-
 fafa0663 -
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

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
Messages postés
48
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
20 mars 2008
44
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
Messages postés
2
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
7 décembre 2007
5
Merci beaucoup pour aide concluante.
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
Messages postés
2
Date d'inscription
vendredi 7 décembre 2007
Statut
Membre
Dernière intervention
7 décembre 2007
5
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.