pascal_tie
XLDnaute Nouveau
Bonjour,
Je souhaite griser les cellules de ma feuille lorsqu'elles sont vides.
J'ai essayer de modifier le code suivant :
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lejour As Range
For Each Lejour In Range("A4:A32")
If Lejour.Value = "samedi" Or Lejour.Value = "dimanche" Then
Range(Cells(Lejour.Row, 1), Lejour.Offset(0, 5)).Interior.ColorIndex = 15
Else
Range(Cells(Lejour.Row, 1), Lejour.Offset(0, 5)).Interior.ColorIndex = xlNone
End If
Next Lejour
End Sub
Mais je n'y arrive pas.
Merci de votre aide
Pascal
Je souhaite griser les cellules de ma feuille lorsqu'elles sont vides.
J'ai essayer de modifier le code suivant :
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lejour As Range
For Each Lejour In Range("A4:A32")
If Lejour.Value = "samedi" Or Lejour.Value = "dimanche" Then
Range(Cells(Lejour.Row, 1), Lejour.Offset(0, 5)).Interior.ColorIndex = 15
Else
Range(Cells(Lejour.Row, 1), Lejour.Offset(0, 5)).Interior.ColorIndex = xlNone
End If
Next Lejour
End Sub
Mais je n'y arrive pas.
Merci de votre aide
Pascal