erreur d'exécution 1004

[ricouvbx]

Bonjour le forum

Je rencontre un souci sur cette macro (voir ci-dessous) lorsque je protége la feuille j'ai un message
Erreur d'exécution 1004

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("b3:Af310")) Is Nothing Then 'Plage à modifie

Select Case Target.Value
Case Is = "CAN"
Target.Interior.ColorIndex = 33
Case Is = "CML"
Target.Interior.ColorIndex = 4
End Select
End If
End Sub

Pourriez-vous m'orienter afin de remédier à ce probléme.
merci d'avance
cordialement
Eric

 

[Robert]

Re : erreur d'exécution 1004

Bonjour Eric, bonjour le forum,

Protéger l'onglet avec une macro événementielle Change me paraît un peu étrange ! Puisque le but de cette macro est de réagir au changement dans une cellule et le but de la protection est d'empêcher le changement...
Un moyen simple d'accepter les deux serait de sélectionner la plage B3:AF310 et déverrouiller les cellules via le menu Format/Cellule... onglet Protection décocher la case Verrouillée.