Activé une macro avec une validation de donée

Résolu
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
Configuration: Windows XP Internet Explorer 6.0

6 réponses

  1. 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
    1. 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
      1. Contributeur
        Je répondais au demandeur du post "merci de votre aide" !!!...

        et il travaille sur 2007 !!!...

        Décourageant...
        1. je n'ai pas mis d'espace après joseph

          je travail sur office 2003 donc c'est userform.show pour ouvrir un formulaire
          1. Contributeur
            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.
            1. 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