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) , (D845) , (H4:H30) si elles ne contiennent pas de valeures ?

Un grand merci pour votre aide

[Larson]

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]

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

[Staple1600]

Bonsoir

EDITION
ou en une seule ligne

Sub EffaceFondSiVide_iii()
Range("A6:A23,D8:D45,H4:H30").SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = xlNone
End Sub

Une autre façon

Sub EffaceFondSiVide_ii()
With Range("A6:A23,D8:D45,H4:H30")
  .SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = xlNone
End With
End Sub