Discussion :

[ZhuHouzi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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???

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ZhuHouzi]

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.

[ZhuHouzi]

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