reproduire "Format painter" avec VBA

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.

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)

---

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.

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)

---