Heu que dois-je faire ? C'est un raccourci ? je retente alors.
mais sinon, pendant que le site ne marchait pas, j'ai tenté des choses :
Sub recopiecouleurcollecte()
'
' recopiecouleurcollecte Macro
' Macro enregistrée le 22/07/2005 par tmp_esu_07
'
' Copy des couleurs renseignées dans le tableau de janvier
Range('D7:X62').Copy
' coller dans les tableaux de la page
Range('D78:X133').PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range('D149:X204').PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range('D220:X275').PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range('D291:X346').PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
' se positionner en haut de la feuille
Range('A1').Select
End Sub
ça marche, enfin pour la feuille où je suis (ex : janv qui le tableau témoin). Mais comment faut-il faire pour que si je suis sur un autre mois (mars) pour que ça marche aussi sachant que là il faut une copie de la meme plage de données de la page janvier pour le copier sur les meme + D7
62 [file name=pap_20050722140545.zip size=48406]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pap_20050722140545.zip[/file]