Les Allergies
Alimentaires
Posez votre question Signaler

Excel vba copier des valeurs [Résolu]

carde - Dernière réponse le 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
Lire la suite 

Excel vba copier des valeurs »

6 réponses
Réponse
+3
moins plus
nicodoudou 7 déc. 2007 à 17:29
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

 Ajouter un commentaire
fafa0663 - 31 mai 2008 à 15:17
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
Ajouter un commentaire
Réponse
+2
moins plus
nicodoudou 48Messages postés 7 décembre 2007Date d'inscription 7 déc. 2007 à 20:04
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

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+1
moins plus
néné 7 déc. 2007 à 17:33
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

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+1
moins plus
carde 2Messages postés 7 décembre 2007Date d'inscription 7 déc. 2007 à 17:43
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.

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+1
moins plus
carde 2Messages postés 7 décembre 2007Date d'inscription 7 déc. 2007 à 20:18
Merci beaucoup pour aide concluante.

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « Excel vba copier des valeurs » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?