Discussion :

[pgtsdvl]

Bonjour à tous,

après avoir trouvé de nombreux renseignements sur ce forum dans les questions déjà posées, j'arrive à mon tour à un problème auquel je n'ai pas trouvé de réponse... Peut être ai-je mal cherché, dans ce cas n'hésitez pas à me re-diriger .

Alors dans un classeur Excel (je suis sur 2003), j'ai une cellule à laquelle j'ai appliqué une validation des données.
Quand l'utilisateur entre une donnée hors liste de validation, apparait une boite de dialogue Excel "La valeur que vous avez tapée n'est pas valide... etc. "
Je voudrais pouvoir déclencher une macro en fonction de la réponse de l'utilisateur à cette boite de dialogue. Y-a-til un moyen, un évènement associé ?...

Merci d'avance !

[Domimart]

Bonjour,

Pourquoi ne pas utiliser l'évènement Worksheet_Change de votre feuille, en changeant la valeur de votre cellule, cela déclancherait une MsgBox et après vous pouvez faire ce que vous voulez.
cela donnerai quelque chose de ce genre:

Pour ceci faire Alt F11, dans le menu déroulate en haut à gauche choisir "Worksheet"
et dans le menu déroulant en haut à droite, choisir l'évènement "Change"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim info As Variant  
If Target.Address(0, 0) = "A1" Then  ' la cellule de modification cible
'MsgBox Oui + Non
Select Case MsgBox("On peut aussi utiliser uneMsgBox ...", vbYesNo + vbInformation, "titre de la MsgBox")
Case vbYes
  CreateObject("Wscript.shell").Popup "Ce message va s'afficher pendant 2 s", 2, "Affichage temporaire...", vbExclamation '= ici votre procédure si click sur Oui
Case vbNo
 MsgBox "Vous avez selectionner la case Non" '= ici votre procédure si click sur Non
Case vbCancel
End ' = procédure si click sur Annuler
End Select

End Sub

avec en prime un affichage temporaire de 2 secondes avec le popup pour faire un effet de style... choisir la durée avec le 2 de la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CreateObject("Wscript.shell").Popup "Ce message va s'afficher pendant 2 s", 2, "Affichage temporaire...", vbExclamation

Cordialement

Dom

[Domimart]

Oubliez la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Case vbCancel

ca c'est pour une MsgBox à trois boutons à choisir avec soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vbYesNo

2 boutons ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 vbYesNoCancel

3 boutons
à vous de voir...

Cdlt
Dom

[pgtsdvl]

Merci pour ces suggestions,

le problème est que si je gère ces changements uniquement par macro, je n'ai plus de liste déroulante dans ma cellule.

Me trompe-je ? Ou bien peut-on créer un menu déroulant dans une cellule par macro ?

Et si je gère à la fois par données/validation et par macros, l'utilisateur verra plusieurs boîtes de dialogue s'afficher : celle de la donnée non valide, et celle de la macro...

[78chris]

Bonjour

Le message n'est pas un événement et aucun code ne peut s'exécuter pendant une saisie.

Donc soit tu laisses ta validation mais ne peux savoir ce que l'utilisateur a saisi avant d'annuler ou changer sa valeur, soit tu l'assouplis en remplaçant arrêt par avertissement mais le message se cumulera avec la macro, donc pas très clair, soit tu gères tout par macro sans validation.

[Domimart]

Re

Alors une autre orientation:
Vous gardez votre liste déroulante avec la validation des données
vous définissez une cellule (x:y) qui est égale à votre cellule où vous avez votre liste déroulante
Ensuite vous créer une TextBox dont la cellule liée est votre cellule (x:y)
mode création, insérer, contrôles ActiveX, Zone de texte.
dessus vous faites un clic droit, propriétés, vous avez une ligne qui s'appelle Linkedcell; là vous mettez votre cellule (x:y)
ensuite toujours avec un clic droit sur votre TextBox , Visualiser le code et là vous mettez le code qui vous intéresse.
A chaque changement de votre TexBox vous pouvez associer la commande ou l'information par MsgBox qui vous intéresse.

Cdlt
Dom

[Domimart]

Alors dans un classeur Excel (je suis sur 2003), j'ai une cellule à laquelle j'ai appliqué une validation des données.

Merci d'avance !

A la place de cette cellule, vous pouvez utilisez une zone de liste déroulante dans l'aquelle la propriété ListFillRange est associée à votre liste de choix.

De cette manière pourl'utilisateur, vous avez votre liste déroulante, il ne peut pas faire d'autre choix, et avec le code vous associez la commande ou l'information désiré.

Il y plusieurs possibilités pour arriver au résultat.

cdlt
Dom

[pgtsdvl]

Merci à tous, j'ai tous les éléments en main avec ça.
Bonne continuation !