Discussion :

[Zak Blayde]

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.

[Zak Blayde]

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.

[Zak Blayde]

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.

[Zak Blayde]

J'ai fait ça :

Code :

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

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.

[ouskel'n'or]

Essaie

Code :

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

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 :

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

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

[Zak Blayde]

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

Merci beaucoup.