Code VBA qui plante si la feuille est protégée

[rounil09]

Bonjour la liste,

J’ai récupéré sur ce forum une macro VBA qui modifie la couleur de la cellule active. Il fonctionne parfaitement, sauf dans le cas d’une feuille protégée qui comprend des lignes (ou des colonnes) masquées.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If [mémoAdresse] <> "" Then Range([mémoAdresse]).Interior.ColorIndex = [mémoCouleur]
ActiveWorkbook.Names.Add Name:="mémoAdresse", RefersToR1C1:=""
If Not Intersect([D220], Target) Is Nothing And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémoAdresse", RefersToR1C1:="=" & Chr(34) & Target.Address & Chr(34)
ActiveWorkbook.Names.Add Name:="mémoCouleur", RefersToR1C1:="=" & Target.Interior.ColorIndex
Target.Interior.ColorIndex = 36
End If
End Sub

Dans mon cas précis, les lignes 12 à 18 de la feuille peuvent être partiellement ou en totalité masquées, en fonction des valeurs de retour de MsgBox.

J’ai essayé de modifier ce code, (et de jouer sur le contenu autorisé des cellules déverrouillées) mais sans succès. …