Rapport de message :*
 

Re: Problème de copie de mise en forme

Titre du sujet : Re: Problème de copie de mise en forme
par myDearFriend! le 31/12/2007 18:41:55

Re PowerPlus,

Vite fait avant de partir réveillonner...

Visiblement, tu n'as pas compris ce que j'essayais d'expliquer dans ce post à propos des sélections d'objets (cellules, feuilles ou autres) inutiles en VBA...

Par ailleurs, à mon avis, il n'est pas possible d'obtenir "d'un coup", un PasteSpecial/Format sur plusieurs feuilles de calcul en simultané.

Pour répondre à ton problème, je te propose le code suivant (utilisant une boucle sur les feuilles) :
Private Sub CommandButton15_Click()
Dim F As Worksheet
    Sheets("look").Range("U2:AK33").Copy
    For Each F In Sheets(Array("Vcoef 6_1", "Vcoef 6_2", "Vcoef 6_3", "Vcoef 5_1", "Vcoef 5_2", "Vcoef 5_3", "Vcoef 4_1", "Vcoef 4_2", "Vcoef 4_3", "Vcoef 3_1", "Vcoef 3_2", "Vcoef 3_3"))
        F.Range("B2:R33").PasteSpecial Paste:=xlPasteFormats
    Next F
End Sub


Bonne et heureuse année à toutes et tous!

Cordialement,