Interdire touche supprimer

Bonjour à tous,

je souhaiterai savoir s'il était possible d'empêcher la touche supprimer dans une plage de cellule par exemple C2 à D40

Merci d'avance,

Cordialement,

Jéjé

Bonjour,

Tu peux tester le code suivant .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim rng As Range
  If Not Application.Intersect(Target, Me.Range("C2:D40")) Is Nothing Then
      For Each rng In Application.Intersect(Target, Me.Range("C2:D40"))
         Application.OnKey "{DEL}", ""
      Next rng
  Else
      Application.OnKey "{DEL}"
  End If
End Sub

En espèrant que cela t'aide ...

Bonjour

Merci pour ton code.

Cependant Excel me renvoi un message d'erreur :

"Erreur de compilation Nom ambigu détecté : Worksheet_SelectionChange"

Est-ce du au fait qu'il y a une liste de données de validation dans chaque cellule ?

Peux-tu m'aider stp?

Cordialement,

Jéjé

Bonjour,

Le message que tu indiques ... signifie tout simplement ...

que dans ta feuille il existe déjà une macro évènementielle qui a exactement le même nom ...

Bonjour,

génial ça fonctionne, j'ai ajouté le code à la suite de la macro évènementielle.

Peut-on avoir aussi la même chose pour la touche backspace ?

Merci encore.

Cordialement,

Jéjé

Re,

Content que cela fonctionne ...

Merci .. pour tes remerciements ...

Si tu cherches à utiliser le même principe OnKey pour la touche Backspace ...

il te faut utiliser {BS} au lieu de {DEL}

Bonjour,

merci beaucoup

A bientôt

Jéjé

Rebonjour,

j'ai crié victoire trop vite.

Les touches supp et backspace sont bloquées dans toute la feuille or je souhaite qu'elles soient bloquées uniquement sur une plage donnée.

peux-tu me dire également ou je dois insérer dans le code mon message box ("MsgBox "pour supprimer la valeur, vous devez la remplacer par 0") dès lors que l'on veux utiliser les touches supp ou backspace.

Merci d'avance,

Cordialement,

Jéjé

Re,

Si tu reprends mon message # 2 ...

tu te rendras compte .. que seule la plage indiquée est affectée ...