Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Inputbox apparait lorsque je supprime le contenu d'une cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion SiD88
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

SiD88

Guest
Bonjour le forum,

Exposé du problème:

1. Je saisie un texte dans une cellule
2. Une box apparait me demandant de choisir entre Vrai ou Faux
3. Selon le choix, la cellule se remplit de la couleur Bleu ou verte
4. Le texte que je viens de saisir ne me convient pas ou je souhaites simplement supprimer le contenu de la cellule. J'efface le texte à l'aide de la touche "suppr" ou de la touche "Retour arrière" (au-dessus de la touche entrée)
5. La box apparait me demandant de choisir entre vrai ou faux

Comment faire pour que l'étape 5. ne se produise pas?

Merci à l'avance pour vos idées ou solutions.
 

Pièces jointes

Trier par date Trier par votes
Re : Inputbox apparait lorsque je supprime le contenu d'une cellule

Bonjour,

Peut-être ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A11")) Is Nothing Then
saisie:
If Target.Value = "" Then Exit Sub
reponse = UCase(InputBox("Choisir la nature du produit V (vraix) ou F (faux)"))
'If reponse <> "V" And reponse <> "F" Then GoTo saisie 'ou target.interior.colorindex=0
If reponse = "V" Then Target.Interior.ColorIndex = 33
If reponse = "F" Then Target.Interior.ColorIndex = 4
Else: Exit Sub
End If
End Su
 
Vote positif 0 Vote négatif
Re : Inputbox apparait lorsque je supprime le contenu d'une cellule

Bonjour,

@ Bonjour Chalet , pas vu
essaies comme ceci :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A2:A11")) Is Nothing And Target <> "" Then
saisie:
   reponse = UCase(InputBox("Choisir la nature du produit V (vraix) ou F (faux)"))
       'If reponse <> "V" And reponse <> "F" Then GoTo saisie 'ou target.interior.colorindex=0
   If reponse = "V" Then Target.Interior.ColorIndex = 33
   If reponse = "F" Then Target.Interior.ColorIndex = 4
 End If
End Sub
 
Vote positif 0 Vote négatif
Re : Inputbox apparait lorsque je supprime le contenu d'une cellule

Re bonjour Sid

pourquoi ne pas poser la question sur le premier fil de discussion

avec ce code:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A11")) Is Nothing Then
If Target = "" Then Exit Sub
saisie:
............................
................................
.................................
...........................
.........................
......................
..............
End Sub

la modif concerne l'ajout de:
If Target = "" Then Exit Sub

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Inputbox apparait lorsque je supprime le contenu d'une cellule

Bonjour à tous les 3,

Les 2 solutions fonctionnent à merveille.

@phlaurent55 Je ne sais pas, dans mon esprit un problème = un fil de discussion

Merci!
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Inputbox apparait lorsque je supprime le contenu d'une cellule

Re,

avant qu'un nouveau fil de discussion soit ouvert 🙂 en ce qui concerne l'effacement de la couleur lors de la suppression du contenu de la cellule:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A11")) Is Nothing Then
If Target = "" Then
Target.Interior.ColorIndex = -4142
Exit Sub
End If
.................................
...............................
.............................
...............................
................
.............
..........
End If
End Sub

à+
Philippe
 
Vote positif 0 Vote négatif
Re : Inputbox apparait lorsque je supprime le contenu d'une cellule

Re,

Encore mieux, j'avais mis une mise en forme conditionnelle à la base.

Le seul point à améliorer est, lorsque je sélectionne plusieurs cellules dont j'en supprime le contenu à l'aide de la touche "Suppr", le message d'erreur d'exécution "13" apparait (Incompatibilité de type).

Au débogage, l'erreur se trouve au niveau du: If Target = "" Then

Une idée?

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
  • Question Question
Microsoft 365 Formule qui retourne le contenu de la cellule sélectionnée
Réponses
5
Affichages
462
Guy_M
G
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
B
  • Question Question
XL 2016 Extraire un nombre d'une chaine de caractère
2
Réponses
18
Affichages
666
Eric 45
E
D
  • Résolu(e)
Microsoft 365 Comment réduire efficacement cette formule trop importante pour Excel
Réponses
6
Affichages
561
dacunha
D
C
  • Question Question
Microsoft 365 Insérer le contenu d'une cellule dans le texte d'une autre cellule
Réponses
2
Affichages
605
chris427
C
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
478
sylvanu
  • Question Question
XL pour MAC Mise en forme conditionnelle de cellules adjacentes en fonction du contenu d'une cellule
Réponses
8
Affichages
360
sylvanu
Z
  • Question Question
Microsoft 365 Exporter le visuel d'une cellule vers un fichier PNG
Réponses
4
Affichages
387
patricktoulon
W
  • Question Question
XL 2019 Changer la graisse et la taille avant le deuxième retour à la ligne dans une cellule
Réponses
6
Affichages
248
Webperegrino
W
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
545
crocrocro
C
F
  • Question Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
520
fuioplde
F
D
  • Question Question
XL 2021 figer le contenu d'une cellule en fonction d'une date
Réponses
3
Affichages
595
JHA
J
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
854
crocrocro
C
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
527
TomJoad
T
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
641
Phil69970
N
  • Résolu(e)
Microsoft 365 Transformer le résulta d'une formule en Date
Réponses
2
Affichages
473
Nathan027
N
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
3 K
AtTheOne
C
  • Question Question
XL 2021 Comment intégrer le contenu d'une cellule dans une formule
Réponses
1
Affichages
428
chris
  • Résolu(e)
Autres InputBox
Réponses
8
Affichages
942
dysorthographie
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
618
Chaton77
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…