Pas de remplissage si cellule vide

[isa44]

Bonjour à tous,
Comment avec un code VBA ne pas mettre de remplissage de fond de cellule sur les cellules (A6:A23) , (D8😀45) , (H4:H30) si elles ne contiennent pas de valeures ?

Un grand merci pour votre aide

 

[Larson]

Re : Pas de remplissage si cellule vide

Bonjour,

regarde si ceci peux te convenir :

Sub EffaceFondSiVide()

For Each CelluleTraitée In Range("A6:A23,D8:D45,H4:H30")
    If CelluleTraitée = "" Then CelluleTraitée.Interior.ColorIndex = xlColorIndexNone
Next

End Sub

 

[isa44]

Re : Pas de remplissage si cellule vide

Merci Larson, ta macro semble fonctionner parfaitement.
Je vais la tester dans tout les sens .
A bientôt