Cellule non vide si je suprime le contenu

[Ilino]

Bonjour Forum
je cherche un code VBA pour afficher la valeur 1 par defaut si je supprime le contenu de la cellule
ex: si dans la cellule F36 = 5 si je le suprime j'aurai par defaut 1( c a d pas de vide) dans la cellule F36
GRAZIE

 

[Papou-net]

Re : Cellule non vide si je suprime le contenu

Bonsoir Ilino,

Ci-joint un classeur exemple avec une procédure événementielle Worksheet_Change dans le module Feuil1.

J'ai arbitrairement fixé la zone d'action aux cellules A1:E10. Il te suffit de modifier cette référence pour l'adapter à ton fichier.

A +

Cordialement.

 

[Ilino]

Re : Cellule non vide si je suprime le contenu

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+

 

[Robert]

Re : Cellule non vide si je suprime le contenu

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 :

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...

 

[patoq]

Re : Cellule non vide si je suprime le contenu

Bonsoir Ilino, bonsoir le forum

Dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "0" Then Target.Value = "1"
End Sub

Cdt
Pat

 

[Ilino]

Re : Cellule non vide si je suprime le contenu

Bonsoir Robert
grazie pour la solution et pour les explications
@ Pat: grazie pour la proposition
A+

 

[Papou-net]

Re : Cellule non vide si je suprime le contenu

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+

Bizarre, j'ai testé et ça fonctionne. Excel a parfois ses préférences?

A tout hasard, et si tu le veux bien, essaies avec le code suivant:

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

Cordialement.


PS: Bonsoir Robert, bonsoir patoq.

 

[Ilino]

Re : Cellule non vide si je suprime le contenu

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 :

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...

Bonsoir Forum, Robert
voila j'ai teste ton code ça marche Nickel MAIS apres avoir l'adapter avec la solution de MODESTE ( dans le fil suivant : https://www.excel-downloads.com/thr...de-deux-tableaux-selon-des-conditions.222330/) j'ai trouvé des dificultés
A+

 

[Robert]

Re : Cellule non vide si je suprime le contenu

Bonsoir le fil, bonsoir le forum,

Plutôt qu'un lien vers une discussion des trois pages, mets donc le fichier en pièce jointe. Ça nous évitera de perdre du temps...

 

[Ilino]

Re : Cellule non vide si je suprime le contenu

Bonsoir Robert
merci, Pblm résolut
A+

 

[Modeste]

Re : Cellule non vide si je suprime le contenu

Re-bonsoir Ilino,
Salut Patoq, Papou-net et Robert,

Ilino, ce n'est pas très sérieux de demander à trois personnes de trouver une solution à un problème que tu n'expliques pas ... simplement parce que tu n'as aucune patience 😡

 

[Ilino]

Re : Cellule non vide si je suprime le contenu

Re
😱 sorry
tu as raison je dois apprendre en coeur le cours de la patience
A+

 

[job75]

Re : Cellule non vide si je suprime le contenu

Bonjour à tous,

Bah pour décrasser les neurones :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
[A1:E10].SpecialCells(xlCellTypeBlanks) = 1
End Sub

A+