Macro: Copier 3 cellules en ligne et les coller en colonne, puis répéter l'opération à intervalle régulier?

Bonjour

Voilà mon problème: j'ai enregistré une macro en répétant l'opération à 3 reprises:
-> J'ai sélectionné les cellules E2:G2
-> Je les ai ensuite collée (transposition) dans les cellules D3:D5
-> de même pour E6:G6 -> D7:D9
-> de même pour E10:G10 -> D11:D13

Le problème c'est que je dois faire ça jusqu'à la première sélection E2926:G2926 -> D2927:D2929, et je n'arrive pas à faire répeter l'action que j'ai enregistré.

Voilà le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Range("E2:G2").Select Application.CutCopyMode = False Selection.Copy Range("D3:D5").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Range("E6:G6").Select Application.CutCopyMode = False Selection.Copy Range("D7:D9").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Range("E10:G10").Select Application.CutCopyMode = False Selection.Copy Range("D11:D13").Select

---

Quelqu'un peut-il m'aider svp???

Bonjour,
Lorsque l'on doit exécuter la même opération plusieurs fois, on utilise une structure répétitive (boucle)
A lire La gestion des boucles dans Excel
Application.CutCopyMode = False est à utiliser après le collage et pas avant
La méthode Select et l'objet Selection sont à proscrire. cela ne sert à rien et ralenti l'exécution de la procédure
Ainsi ces lignes

Code:

---

1 2 3 4 5 6

Range("A1:C1").Select Selection.Copy Range("D5:D7").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False

---

Peuvent être remplacées par celles-ci

Code:

---

1 2 3

Range("A1:C1").Copy Range("D5:D7").PasteSpecial Transpose:=True Application.CutCopyMode = False

---

Comme on peut le constater tous les arguments de la méthode PasteSpecial ne doivent pas être utilisés

J'ajouterais enfin que lorsque l'on colle seule la première cellule de destination doit être précisée

Code:

---

1 2 3

Range("A1:C1").Copy Range("D5").PasteSpecial Transpose:=True Application.CutCopyMode = False

---

Merci Philippe Tulliez pour votre réponse,

Votre code fonctionne bel et bien sur la première sélection et il a largement amélioré mon code qui était plus que rudimentaire, mais ça ne résout pas mon problème de base: répéter l'opération x nombre de fois avec un intervalle de 4. Selon votre conseil, je vais lire la gestion des boucles et vais essayer de m'en sortir.

Cependant, si vous avez une réponse rapide, merci d'avance, car ça fait déjà un moment que je tourne en rond...

Désolé pour la "double" discussion, mais je ne savait pas comment déplacer cette discussion dans le sous-forum Macro et VBA Excel qui me parraissait plus approprié.

Merci encore.

Grâce à des gens comme vous on en apprend tous les jours :):):):)