Bonjour

Je suis arrivée grâce à plusieurs procédures (cf ci-dessous) à limiter les modifications dans une plage de cellules non protégées :
Cependant je voudrai également interdire l'effacement du contenu avec la " barre d'espacement ".
Je cherche depuis plusieurs heures sans résultat.Merci de votre aide encore une fois ....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim Valeur As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim rng As Range
    If Not Intersect(Target, Range("A2:N57")) Is Nothing Then
        Application.EnableEvents = False
        If Target = "" Then Target = Valeur
        Application.EnableEvents = True
    End If
End Sub

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Valeur = Target.Value
End Sub

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target <> "" Then
  If MsgBox("Etes-vous sûr de vouloir modifier la cellule?", vbYesNo) = vbNo Then
  MsgBox "Cellule non modifiée"
  Exit Sub
  Target = InputBox("Entrez le nouveau contenu de la cellule")
  End If
  End If
End Sub