Rapport de message :*
 

Problème de copie de mise en forme

Titre du sujet : Problème de copie de mise en forme
par PowerPlus le 31/12/2007 17:54:04

Bonjour,
J'ai de nouveau un problème: à l'aide d'une macro j'ai selectionner un grand nombre de feuille (puis 2 mais cela ne marchait pas). Sur toutes ces feuilles j'ai collé une mise en forme que j'avais copié auparavant.

Le problème: La première feuille se colorent mais pas les autres !!!

Voici mon code:
Private Sub CommandButton15_Click()
Unload UserForm1
Sheets("look").Select
Range("U2:AK33").Select
Selection.Copy
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")).Select
Range("B2:R33").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("E8").Select
Sheets("S6").Select
End Sub


J'oubliait cette macro sert à changer le style de mon Bulletin. Vous allez me dire: pourquoi ne pas se contenter de faire une macro changeant le style sans copier-coller. Mais moi je veux bien mais c'est pas pratique pour les retouches.

QUESTION: Est-ce possible de faire un coller avec SEULEMENT du format mais surtout de le faire sur toute les feuilles ?