Excel vba copier des valeurs [Résolu/Fermé]
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
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:
- Vba copier coller valeur
- Copier coller valeur vba - Meilleures réponses
- Copier valeur vba - Meilleures réponses
- Excel vba copier des valeurs ✓ - Forum - VB / VBA
- VBA coller des valeurs ✓ - Forum - Bureautique
- Vba copier coller valeur dans une autre feuille ✓ - Forum - VB / VBA
- VBA copier coller des VALEURS ✓ - Forum - VB / VBA
- Vba copier coller une feuille dans un autre classeur ✓ - Forum - VB / VBA
5 réponses
nicodoudou
- Messages postés
- 48
- Date d'inscription
- vendredi 7 décembre 2007
- Statut
- Membre
- Dernière intervention
- 20 mars 2008
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
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
- Messages postés
- 2
- Date d'inscription
- vendredi 7 décembre 2007
- Statut
- Membre
- Dernière intervention
- 7 décembre 2007
Merci beaucoup pour aide concluante.
néné
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
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
- Messages postés
- 2
- Date d'inscription
- vendredi 7 décembre 2007
- Statut
- Membre
- Dernière intervention
- 7 décembre 2007
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.
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