Discussion :

[ZHNEE]

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

[Menhir]

Remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

         If Target = "" Then Target = Valeur

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

         If Trim(Target) = "" Then Target = Valeur

Ca prend aussi en compte les cas de plusieurs coup de barre d'espace.

Mais, à mon avis, tu es en train de monter une usine à gaz pour par grand chose.
Sans y réfléchir plus que ça, j'ai une bonne demi-douzaine d'idées qui permettraient de contourner ta procédure, et accessibles à l'utilisateur moyen d'Excel (je ne parle même pas de ceux qui savent un peu trafiquer du VBA).

[ZHNEE]

Génial ça marche ,mais comment changer mon usine à Gaz ???

[Patrice740]

Bonjour,

Pour interdire l'effacement (sans interdire l'écriture de plusieurs espaces consécutifs en les mots) :

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim av, ap
  If Target.Count = 1 Then
    ap = Target.Value
    Application.EnableEvents = False
    Application.Undo
    av = Target.Value
    If Replace(ap, " ", "") = "" Then Target.Value = av Else Target.Value = ap
    Application.EnableEvents = True
  End If
End Sub

[Menhir]

comment changer mon usine à Gaz ???

Avis personnel : discipliner les utilisateurs est généralement plus efficace que de mettre en place des systèmes complexes pour les brider.
Mais c'est juste mon point de vue.