Répéter une Macro
Résolu
Serenity75
Messages postés
16
Statut
Membre
-
Serenity75 Messages postés 16 Statut Membre -
Serenity75 Messages postés 16 Statut Membre -
Bonjour !
J'aimerai savoir sous excel 2007, comment on peux faire en sorte que la Macro se répéte.
Je donne un exemple : Losque je fais un
Copier D14 --> D19 - Collage Spécial - Transposer s/ E14
Je voudrai que cela continu de tel sorte que :
Copier D21 --> D26 - Collage Spécial - Transposer s/ E21
Copier D28 --> D32 - Collage Spécial - Transposer s/ E28
Etc ...
J'ai crée une Macro qui donne ceux-ci :
Range("D14:D19").Select
Selection.Copy
Range("E14").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D21:D26").Select
Application.CutCopyMode = False
Selection.Copy
Range("E21").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D28:D33").Select
End Sub
Merci de bien vouloir m'aider et si posible dans un language assez simple car je connais pas grand chose ^^.
J'aimerai savoir sous excel 2007, comment on peux faire en sorte que la Macro se répéte.
Je donne un exemple : Losque je fais un
Copier D14 --> D19 - Collage Spécial - Transposer s/ E14
Je voudrai que cela continu de tel sorte que :
Copier D21 --> D26 - Collage Spécial - Transposer s/ E21
Copier D28 --> D32 - Collage Spécial - Transposer s/ E28
Etc ...
J'ai crée une Macro qui donne ceux-ci :
Range("D14:D19").Select
Selection.Copy
Range("E14").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D21:D26").Select
Application.CutCopyMode = False
Selection.Copy
Range("E21").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D28:D33").Select
End Sub
Merci de bien vouloir m'aider et si posible dans un language assez simple car je connais pas grand chose ^^.
A voir également:
- Répéter une Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
5 réponses
Salut,
tu pourrais faire un truc comme ça :
derlig = range("D65536").end(xlup).row
For i = 14 to (derlig - 5) step 5
Range("D" & i & ":D" & i + 5).Select
Selection.Copy
Range("E" & i).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
next i
End Sub
tu pourrais faire un truc comme ça :
derlig = range("D65536").end(xlup).row
For i = 14 to (derlig - 5) step 5
Range("D" & i & ":D" & i + 5).Select
Selection.Copy
Range("E" & i).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
next i
End Sub
Bonjour,
Oui d'accord avec tompols mais plutôt avec un pas de 7 comme ceci par exemple jusqu'à 49:
A+
Oui d'accord avec tompols mais plutôt avec un pas de 7 comme ceci par exemple jusqu'à 49:
For lig = 14 To 49 Step 7
Range("D" & lig & ":D" & lig + 5).Select
Selection.Copy
Range("E" & lig).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next lig
A+
oups, autant pour moi jsuis passé un peu vite sur ce post....avec un pas de 7 évidemment ! merci pilas31 :)
Je vous remercie pour votre aide mais j'ai mis le code de pilas31 mais cela ne change pas.
Je ne suis vraiment pas doué pour ça. :S
Je mets ton code a la suite du mien ?
Car il me marque End Sub attendu.
Je ne suis vraiment pas doué pour ça. :S
Je mets ton code a la suite du mien ?
Car il me marque End Sub attendu.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question