jokerfidelio
XLDnaute Occasionnel
Bonjour a tous,
Suite a une recherche sur le forum j'aimerais adapter ce code, qui fonctionne tres bien mais lorsque
je protège mes cellules avec un mot de passe, j'ai un message d'erreur.
Comment rendre ce code compatible avec la protection des cellules ?
Merci de votre aide.
Suite a une recherche sur le forum j'aimerais adapter ce code, qui fonctionne tres bien mais lorsque
je protège mes cellules avec un mot de passe, j'ai un message d'erreur.
Comment rendre ce code compatible avec la protection des cellules ?
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("G14:H90")) Is Nothing Then
With Target
If Selection.Interior.ColorIndex = 46 Then
Selection.Interior.ColorIndex = 48
Else
Selection.Interior.ColorIndex = 46
End If
End With
End If
End Sub
Merci de votre aide.