Cellule non vide si je suprime le contenu

Ilino à dit:

Bonjour Papou net
merci pour la réponse mais malheureusement ça n'a pas marché j'ai un message d'erreur 28 Espace pile insuffisant
A+

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("A1:E10"), Target) Is Nothing Then
  Target = IIf(Target = "", 1, Target)
End If
Application.EnableEvents = True
End Sub

Robert à dit:

Bonsoir Ilino, bonsoir le forum,

Ilino, rien ne t'empêche de mettre un petit fichier exemple en pièce jointe pour illustrer tes problèmes. Ça nous éviterait de le faire à ta place...
En pièce jointe, un exemple avec le code commenté ci-dessous :

Code:

Private TEST As Boolean 'déclare la variable TEST

Private Sub Worksheet_Change(ByVal Target As Range)
Dim PL As Range 'déclare la variable pl (PLage)

If TEST = True Then TEST = False: Exit Sub 'si TEST est vrai, TEST devient faux, sort de la procédure
Set PL = Range("A1:A10") 'définit la plage PL (à adapter à ton cas)
If Application.Intersect(Target, PL) Is Nothing Then Exit Sub 'si le cha gement a lieu ailleurs que dans la plage PL, sort de la procédure
If Target.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sélectionnées, sort de la procédure
If Target.Value = "" Then 'condition : si la cellule est effacée
    TEST = True 'définit la variable TEST
    Target.Value = 1 'écrit 1 dans la cellule
End If 'fin de la condition
End Sub

Le fichier :

[Édition]
Se faire griller par Papou-net m'est coutumier, mais se faire humilier de la sorte avec un code aussi limpide que bref c'est à se photographier avant/après pour une pub pour les lotions capillaires...

Cliquez pour agrandir...