[VBA-E] Lancement d'une macro en fonction du contenu d'une cellule

Bonjour,

Je cherche le moyen de changer grâce à un menu déroulant, les données sources d'un, graphique.
Je m'explique : J'ai un tableau qui contient une colonne par mois, et une ligne par fournisseur. Mon graphique affiche l'histogramme pour un fournisseur, et je voudrais par un menu déroulant pouvoir choisir le fournisseur, pour afficher l'histogramme de celui-ci.

Il faudrait donc une macro qui en fonction de l'index du menu déroulant irait changer les données sources du graphique.

J'espère que c'est faisable, merci de l'attention que vous porterez à ma demande.

Je me suis débrouillé avec l'enregistreur de macro pour trouver comment changer la source de donnée. Mais maintenant, j'aimerais savoir comment choisir les différents choix de la liste déroulante, et comment affecter une macro différente à chaque élément de la liste.

Personne a l'air de savoir donc j'ai procédé autrement, j'ai créé une liste à l'intérieur de la cellule même en faisant Données\Validation... et en choisissant liste.
Maintenant mon problème, c'est de lancer une macro en fonction du choix fait dans cette cellule.
Il me faudrait la macro correspondant à ça :

Si la cellule J3 = Fournisseur 1 alors (je lance macro1)
sinon si cellule J3 = Fournisseur 2 alors (je lance macro 2)

et ainsi de suite.. Pitié aidez moi. :oops:

J'ai fait ça :

Code:

---

If ActiveSheet.Range("J3").Value = "fournisseur1" Then

---

et ça ne marche pas, je comprend pas
Pourtant si je met un else et que je met un msgbox après, lui fonctionne.
Si je le met après la première condition, ça ne marche pas.

Qu'est-ce qui ne va pas dans mon code ?


-----

Je précise que fournisseur1 est le contenu de la cellule J3.

Essaie

Code:

---

If lcase(ActiveSheet.Range("J3").Value) = "fournisseur1" Then

---

Tu peux avoir un pb de casse...
A tout hasard

ou remplace value par formula
ou ajoute une ligne

Code:

---

Debug.Print ActiveSheet.Range("J3").Value

---

et affiche la "Fenêtre Exécution" dans l'éditeur VB pour voir ce que ton code "trouve" dans cette cellule

C'était bien un problème de casse -_-

Merci beaucoup.