Bonjour,
Dans le fichier ci-joint, j’ai une macro qui me permet d’ôter ou remettre le signe X dans mes colonnes C et D par un simple double-clic dans la cellule concernée. Comme je voudrais empêcher toutes modifications autres que l’écriture ou l’effacement de ces X, j’ai placé une protection sur la feuille qui est enlevée et remise en place dans mon code.
Tout fonctionne assez bien à l’exception que j’ai à chaque fois un message d’erreur qui apparaît. J’ai bien essayé de le supprimer par les instructions Application.DisplayAlerts = False/True, mais rien n’y fait.
Avez-vous une idée pour m’aider ?
Voici le code concerné :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Plage
Set Plage = Application.Intersect(Target, Range("C3:D" & Range("A" & Rows.Count).End(xlUp).Row))
ActiveSheet.Unprotect
If Not Plage Is Nothing Then Target = IIf(Target = "", "X", "")
Application.DisplayAlerts = False
ActiveSheet.Protect
Application.DisplayAlerts = True
End Sub
Cordialement.