web-dev-qa-db-fra.com

Réglez la couleur de remplissage de toutes les feuilles sur "No Fill" en utilisant VBA dans Excel

Comment puis-je définir la couleur de remplissage de toutes les feuilles sur No fill en utilisant VBA dans Excel (toutes les cellules). Identique à sélectionner toutes les feuilles, sélectionner toutes les cellules (Ctrl + A) et modifier fill color à No fill.

7
user2991243

Non testé mais devrait faire le travail:

Sub No_Fill_Wb()

Dim ws as worksheet

For each ws in Thisworkbook.Worksheets
    ws.Cells.Interior.ColorIndex = 0
Next ws

End Sub
16
Jordan

J'ai utilisé "0" dans mon code (voir ci-dessous) en travaillant avec Excel 2016 et cela a noirci mes colonnes.

Master.Columns(Col_Start).Interior.Color = 0

L'utilisation de "xlNone" ci-dessous, cependant, a fonctionné pour moi.

Master.Columns(Col_Start).Interior.Color = xlNone 
11
Corrie Steele