Bannir les effacementsRésolu

Question

Bonsoir j'ai une feuille Excel nommée (feuille1) avec des données en cellules (I6:J19) ce que je voudrais: 
Sur cette feuille ne pas pouvoir effacer ce qui est inscris dans ces cellules en clair, bannir le clic droit "effacer le contenu" et la touche 'del du clavier" sur cette feuille. Mais autoriser l'écriture, merci à vous.

ucfoutu · Accepted Answer

Private avant As String

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("I1:J19")) Is Nothing Then
     If avant <> "" And Target.Value "" Then Target.Value avant
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("I1:J19")) Is Nothing Then
     If Target.Count > 1 Then Target.Cells(1, 1).Select
     avant = Target.Cells(1, 1).Value
  End If
End Sub




________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Bonsoir,
juste pour te dire que tu es lassant d'ouvrir une fois de plus tes discussions dans la section Forum > Visual Basic 6 alors qu'il t'a déjà été dit que les problèmes VBA/Excel sont traités dans la section Langages dérivés > VBA
Je vais donc attendre qu'un administrateur veuille bien (s'il n'est pas à son tour trop lassé de ce manège) déplacer la présente discussion.
Il n'y a qu'ainsi que tu finiras par comprendre l'intérêt que TU as à prendre le plus grand soin à ce que tu fais, je pense. 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

djfa94 · Answer

Oui désolé j'ai du mal avec toutes ces sections.

NHenry · Answer

Message encore déplacé, merci de faire attention.

djfa94 · Answer

Cette macro fonctionne à merveille, bravo et merci à toi.

Bannir les effacements

5 réponses

Votre réponse

Discussions similaires