CODE VBA ATTACHE à la barre D'espace

Version imprimable

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:

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:

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Valeur = Target.Value
End Sub

Code:

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

23/03/2020, 16h55
Menhir

Remplacer

Code:

If Target = "" Then Target = Valeur

par

Code:

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).
23/03/2020, 18h32
ZHNEE

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

Bonjour,

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

Code:

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

23/03/2020, 20h25
Menhir

Citation:

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.