Afficher une msgbox si saisie valeur
noemarto
-
jordane45 Messages postés 30426 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 30426 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Cela fait quelques temps que je me tire les cheveux sur un problème simple en apparence.
Sur un fichier Excel, je souhaiterais qu'une fenêtre pop up s'affiche dès qu'on saisie une valeur en particulier.
Par exemple, je saisie dans ma feuille "LE PHARO", une fênetre s'ouvre avec un texte et un bouton ok.
Merci de votre aide ^^
Cela fait quelques temps que je me tire les cheveux sur un problème simple en apparence.
Sur un fichier Excel, je souhaiterais qu'une fenêtre pop up s'affiche dès qu'on saisie une valeur en particulier.
Par exemple, je saisie dans ma feuille "LE PHARO", une fênetre s'ouvre avec un texte et un bouton ok.
Merci de votre aide ^^
2 réponses
-
Bonjour,
Pour détecter la saisi d'un texte dans une feuille tu peux regarder les méthode : Worksheet_Change
Un IF pour comparer avec le texte souhaité
Une msgbox pour afficher ta fenêtre
en gros :Private Sub Worksheet_Change(ByVal Target As Range) Dim ok If Target.Value = "LE PHARO" Then ok = MsgBox("du texte", vbOKOnly, "un titre pour la fenetre") End If End Sub
-
Bonjour,
Merci pour votre aide. Cela fonctionne bien, cependant une fenêtre d'erreur apparaît lorsque j'efface le texte :
Erreur d'exécution '13'
Incompatibilité de type
Aurait-il une solution ?
Cordialement,
Noëmie-
Je ne parviens pas à repdroduire le souci ....
Peux tu nous dire exactement ce que tu fais lorsque ça plante ?
Regarde également sur quelle ligne de code il met l'erreur
A la limite, tu peux éventuellement nous joindre ton fichier (en retirant les données confidentielles) sur le site cijoint.com : https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers
.
-
