[XL-2003] reproduire "Format painter" avec VBA

[MacroFlavia]

Bonjour,

J'aimerai savoir s'il est possible de reproduire le même fonctionnement que "Format Painter" sur VBA.
En fait, je souhaiterais sélectionner toute la feuille 1 et coller le même format (couleur, police) sur une feuille 2 mais en gardant la même longueur de colonne et largeur de ligne, ainsi que garder les colonnes et lignes cachées si possible.



Merci d'avance si vous avez une réponse.

[jfontaine]

Bonjour,

Est ce cela que tu cherches

Code :

1
2
3
4
5
6
7
8
9
10
 
'Copie et colle le format
Cells.Select
Selection.Copy
Sheets("Feuil2").Select
Cells.Select
ActiveSheet.Paste
 
'Reproduit les lignes et colonnes cachées
Sheets("Feuil2").Cells.SpecialCells(xlCellTypeVisible) = Cells.SpecialCells(xlCellTypeVisible)

[MacroFlavia]

Merci pour votre réponse. Mais ce code ne fonctionne pas dans mon cas puisqu'en fait j'ai des données dans la "feuille 2" et j'essaye de récupérer la mise en page de la "feuille 1" pour la reproduire sur la "feuille 2".
Quand je dis mise en page je parle des mêmes couleurs, des mêmes longueurs de colonnes et de lignes ainsi que de garder les colonnes cachés et lignes cachés.
En tout cas merci de votre aide.

[jfontaine]

Voila avec uniquement la copie du format

Code :

1
2
3
4
5
6
7
8
9
10
11
 
'Copie et colle le format
Cells.Select
Selection.Copy
Sheets("Feuil2").Select
Cells.Select
ActiveSheet.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
 
'Reproduit les lignes et colonnes cachées
Sheets("Feuil2").Cells.SpecialCells(xlCellTypeVisible) = Cells.SpecialCells(xlCellTypeVisible)