Macro VBA - Formatter une feuille

Bonjour à tous,

Je cherche à créer une macro VBA qui me permet de formatter toutes mes feuilles d'un fichier.

Je souhaite, sélectionner toute la feuille, et qu'il me mette en blanc (pas sans couleur) toutes les cellules qui n'ont pas déjà une couleur. Puis on passe à la feuille suivante et on fait la même chose.

Pour le moment j'ai fait le code suivant, mais rien ne se passe:

Sub formatting()
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    If ws.Cells.Interior.ColorIndex = xlColorIndexNone Then ws.Cells.Interior.ColorIndex = 2
Next ws
End Sub

Si quelqu'un peut m'aider je prends

Merci d'avance!

Bonjour jowil, le forum,

A tester....

Sub formatting()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
 For Each c In ws.Range("A1:Z100")  'plage à adapter
    If c.Interior.ColorIndex = xlColorIndexNone Then c.Interior.ColorIndex = 2
 Next c
Next ws
End Sub

Cordialement,

Bonjour xorsankukai!

Merci pour l'aide, cela marche très bien! Mais est-ce qu'il y a un moyen de définir comme plage l'entière feuille?

Merci d'avance!

Rechercher des sujets similaires à "macro vba formatter feuille"