Discussion :

[Blaiz58]

Bonjour à tous,

Pouvez m'expliquer pourquoi cela ne marche pas quand je lance cette macro en étant dans une page différente de la "Feuil5" ? :/

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For k = 1 To 3
 
    'With Feuil5
        Feuil5.Range("F6:J6").Select
        Selection.Copy
        Feuil5.Cells(k + 5, 6).Select
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
   ' End With
Next k

Merci

[Kimy_Ire]

Bonjour Blaiz58,

Alors...

1. Tu ne comprends pas pourquoi ta macro ne fonctionne pas car elle ne fait pas la même chose sur "Feuil6"
2. Ou tu ne comprends pas pourquoi ta macro ne fait pas ce qui lui ai demandé sur "Feuil5" alors que tu es sur "Feuil6" ?

Cordialement,
Kimy

[Blaiz58]

C'était la 2ème proposition mais du coup j'ai trouvé, il fallait simplement un activate sur la Feuil5 pour que cela se réalise.
Ah moins que vous ayez une autre solution plus légère ?

[Menhir]

Je ne sais pas si tu te rends compte à quel point "pourquoi ça ne marche pas" c'est vague comme explication d'un problème pour quelqu'un qui n'est pas supposer savoir comment ça devrait marcher...

Je ne sais pas si ça peut résoudre ton problème, mais les Select / Selection sont souvent inutiles.
Idem pour les options par défaut dans PasteSpecial.
Ton code pourrait être simplifié ainsi

Code :

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

1
2
3
4
5
For k = 1 To 3
        worksheets("Feuil5").Range("F6:J6").Copy
        worksheets("Feuil5").Cells(k + 5, 6).PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
Next k

Je pense que ton problème venait du fait que tu n'utilisais pas Worksheets pour désigner ta feuille.

[Blaiz58]

Merci pour l'astuce du select C'est vrai que sans ça va beaucoup mieux et ça évite d'utiliser le Activate ! Donc plus efficace !

Merci pour votre aide

[Kimy_Ire]

Blaiz58,

Personnellement, je n'utilise jamais de "Select"...
Lourdeur du code, lourdeur de l’exécution, etc...
Je crois même qui si tu désactives "Application.Visible", ta macro ne fonctionne plus (un expert répondra peut-être à cette pseudo-affirmation).

Bref, ce que je te suggère, c'est plus ceci :
Utilise les "With" :

Code :

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

1
2
3
4
5
6
7
With Worksheets("test")
    For k = 1 To 3
        set rng = .Range("K6:J6")
        rng.offset(k, 0) '...
'[...]
    Next k
End With

Le point "." te permet de dire que tu restes dans le "With"

Ensuite, pour ton format, je pense qu'il serait préférable de le définir directement dans ta macro.

Si c'est une date, si c'est monétaire, si c'est ... ça sera cependant différent.

Bref, juste des conseils (pas forcément pertinent pour autant !)

Cordialement,
Kimy

[Blaiz58]

Merci pour tes conseils Kimy_Ire

En fait, pour le format, je suis passé par cette méthode parce que j'ai défini un format personnalisé et du coup un peu "compliqué" pour le mettre sous VBA ^^

Mais ça va pas mal me simplifier des choses Merci !