Afficher une msgbox si saisie valeur

noemarto -  
jordane45 Messages postés 38486 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 ^^


A voir également:

2 réponses

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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



1
noemarto
 
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
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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

.
0