Activé une macro avec une validation de donée

Résolu/Fermé
merci_de_votre_aide Messages postés 58 Date d'inscription lundi 11 février 2008 Statut Membre Dernière intervention 22 juin 2010 - 19 janv. 2010 à 06:48
merci_de_votre_aide Messages postés 58 Date d'inscription lundi 11 février 2008 Statut Membre Dernière intervention 22 juin 2010 - 13 févr. 2010 à 23:02
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

6 réponses

garion28 Messages postés 1545 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 406
19 janv. 2010 à 08:29
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
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
19 janv. 2010 à 09:11
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.
0
garion28 Messages postés 1545 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 406
19 janv. 2010 à 09:17
je n'ai pas mis d'espace après joseph

je travail sur office 2003 donc c'est userform.show pour ouvrir un formulaire
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
19 janv. 2010 à 09:20
Je répondais au demandeur du post "merci de votre aide" !!!...

et il travaille sur 2007 !!!...

Décourageant...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
garion28 Messages postés 1545 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 406
19 janv. 2010 à 09:28
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
0
merci_de_votre_aide Messages postés 58 Date d'inscription lundi 11 février 2008 Statut Membre Dernière intervention 22 juin 2010 16
13 févr. 2010 à 23:02
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
0