High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Excel vba copier des valeurs

Dernière réponse le 31 mai 2008 à 15:17:29 carde, le 7 déc 2007 à 17:23:29 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP
Internet Explorer 6.0

Posez votre question Répondre

1

nicodoudou, le 7 déc 2007 à 17:29:35

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

   
Répondre à nicodoudou

6

 fafa0663, le 31 mai 2008 à 15:17:29

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épondre à fafa0663

2

néné, le 7 déc 2007 à 17:33:30

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épondre à néné

3

carde, le 7 déc 2007 à 17:43:56

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.

   
Répondre à carde

4

nicodoudou, le 7 déc 2007 à 20:04:07

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épondre à nicodoudou

5

carde, le 7 déc 2007 à 20:18:21

Merci beaucoup pour aide concluante.

   
Répondre à carde
Posez votre question Répondre
Ils ont besoin de votre aide