Sujet Précédent Sujet Suivant

Excel vba copier des valeurs

Résolu/Fermé
-
 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
A voir également:

5 réponses

Réponse 1 / 5

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

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
Réponse 2 / 5
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
Réponse 3 / 5
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.
Réponse 4 / 5

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
Réponse 5 / 5
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.
Posez votre question

sur les mêmes thèmes