Afficher une msgbox si saisie valeur

Fermé
noemarto - 28 déc. 2016 à 17:03
jordane45 Messages postés 38308 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024 - 29 déc. 2016 à 11:44
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 38308 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024 4 705
28 déc. 2016 à 19:38
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
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 38308 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024 4 705
29 déc. 2016 à 11:44
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