Mettre en gris les cellules vide par macro

[Myst]

Bonjour le forum
Je cherche a mettre toutes les cellules vides automatiquement en gris ,j'ai actuellement une MFC mais la couleur repasse en blanc lorsque je déplace une cellule
merci

 

[JBARBE]

Re : Mettre en gris les cellules vide par macro

Bonjour à tous,

Un exemple en cliquant sur le bouton "GO"

bonne journée !

 

[Myst]

Re : Mettre en gris les cellules vide par macro

Bonjour JBARBE
Ta solution sous forme de macro est nickel mais si je déplace une cellule celle en dessous reste blanche ,il faut recliquer sur le boutton GO pour la remettre en gris et je voudrais que cela soit automatique
merci

 

[DL_13]

Re : Mettre en gris les cellules vide par macro

Bonjour

a mettre dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
color
End Sub

Bonne journée

 

[Myst]

Re : Mettre en gris les cellules vide par macro

Bonjour DL_13
Magnifique ,un grand merci a vous deux
Bonne journée

 

[Myst]

Re : Mettre en gris les cellules vide par macro

Re
J'ai été un peu vite ,en effet tout fonctionne nickel mais je ne peut pas mettre de la couleur dans les cellules remplis ,la macro me les remet en blanc systématiquement
Merci

 

[DL_13]

Re : Mettre en gris les cellules vide par macro

Bonjours à tous

Il suffit d'enlever une ligne du code de l'ami JBARBE

Option Explicit

Sub color()
Dim r As Object
For Each r In Range("A1:E20")
'r.Interior.ColorIndex = xlNone
If r = "" Then r.Interior.ColorIndex = 15
Next r
End Sub

Bonne journée

 

[Myst]

Re : Mettre en gris les cellules vide par macro

Bonjour DL_13 ,JBARBE ,le forum
C'est parfait ,un grand merci a vous
Bonne journée