Activé une macro avec une validation de donée
Résolu
merci_de_votre_aide
Messages postés
61
Statut
Membre
-
merci_de_votre_aide Messages postés 61 Statut Membre -
merci_de_votre_aide Messages postés 61 Statut Membre -
Bonjour,
Y aurait-il quelqu'un qui pourrais m'aider sur mon problème.
Je m'explique, j'aimerais à l'aide d'une validation de donnée exécuter une macro.
Exemple:
dans ma validation de donnée, j'ai deux nom
joseph et isa
si je selectionne joseph, j'aimerais que mon userform 1 s'affiche
et
si je selectionne isa, j'aimerais que mon userform 2 s'affiche
Merci de votre aide et de votre temps pour mon problème
Je me permet de joindre l'exemple de mon problème, en vous remerciant
http://www.cijoint.fr/cjlink.php?file=cj201001/cijhls1Lc6.xlsm
Y aurait-il quelqu'un qui pourrais m'aider sur mon problème.
Je m'explique, j'aimerais à l'aide d'une validation de donnée exécuter une macro.
Exemple:
dans ma validation de donnée, j'ai deux nom
joseph et isa
si je selectionne joseph, j'aimerais que mon userform 1 s'affiche
et
si je selectionne isa, j'aimerais que mon userform 2 s'affiche
Merci de votre aide et de votre temps pour mon problème
Je me permet de joindre l'exemple de mon problème, en vous remerciant
http://www.cijoint.fr/cjlink.php?file=cj201001/cijhls1Lc6.xlsm
Configuration: Windows XP Internet Explorer 6.0
6 réponses
-
si ta valeur est en A1 tu fait:
with sheets("feuil1") select case .range("A1).value case "joseph" userform1.show case "isa" userform2.show end select ou end case (je ne me rappel plus de la syntaxe end with -
Bonjour merci de notre aide
Pourquoi as tu mis un espace après Joseph ? :-(
ci joint macro se déclenchant au changement de valeur dans B1
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then Select Case Target Case Is = "joseph " 'Load UserForm1 UserForm1.Show Case Is = "isa" 'Load UserForm2 UserForm2.Show 'case is.... End Select End If End Sub
pour installer: copier cette macro
clic droit sur l'onglet
visualiser le code
coller
je n'ai pas 2007: il y a peut-être besoin de" Load userform": si oui, tu enlèves l'apostrophe.
-
je n'ai pas mis d'espace après joseph
je travail sur office 2003 donc c'est userform.show pour ouvrir un formulaire -
Je répondais au demandeur du post "merci de votre aide" !!!...
et il travaille sur 2007 !!!...
Décourageant... -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
ah désolé je n'avai pas fait attention au nom du demandeur
ps: ce genre commentaire "décourageant" n'as pas besoin d'être écrit -
Bonsoir Michel,
Désolé d'avoir tardé, mais énormément de travail pour le moment.
J'ai regarder tes informations et ça marche à la perfection.
Je te remercie vivement de ton aide