Menu déroulant

G

gimx

Guest

• 12 Janvier 2008

• #2

Re : Menu déroulant

Un exemple fictif de ce que je voudrais faire.

Merci 🙂

 

Pièces jointes

• exemple_gimx.xls

  27 KB · Affichages: 60

Vote positif 0 Vote négatif

G

gimx

Guest

• 13 Janvier 2008

• #3

Re : Menu déroulant

Ca n'inspire personne ? 🙂

 

Vote positif 0 Vote négatif

T

tirex28

XLDnaute Occasionnel

• 13 Janvier 2008

• #4

Re : Menu déroulant

Bonsoir,

A mettre dans le code de ta feuille C, ta combobox doit contenir les noms de tes feuilles de données.

Code:

Private Sub ComboBox1_Change()
     Me.ChartObjects("Graphique 1").Chart.SetSourceData _
            Source:=Sheets(ComboBox1.Value).Range("A1:A10"), PlotBy:=xlColumns
End Sub

Cordialement,

Tirex28/

 

Vote positif 0 Vote négatif

G

gimx

Guest

• 13 Janvier 2008

• #5

Re : Menu déroulant

Comme je ne connais pas VBA, j'ai mis un exemple bateau pour dire ce que je voulais. Mais en réalité il y a 2 colonnes de sources de données (donc deux courbes par feuilles).
Comment je fais pour mettre les deux courbes svp ?

Logiquement, je ferais ça en supposant qu'il y a la colonne A et B en source :

Code:

Source:=Sheets(ComboBox1.Value).Range("A1:A10"), PlotBy:=xlColumns
Source:=Sheets(ComboBox1.Value).Range("B1:B10"), PlotBy:=xlColumns

Merci 🙂

 

Vote positif 0 Vote négatif

T

tirex28

XLDnaute Occasionnel

• 13 Janvier 2008

• #6

Re : Menu déroulant

Bonsoir,

Essaye plutot:

Code:

Source:=Sheets(ComboBox1.Value).Range("A1:B10"), PlotBy:=xlColumns

Cordialement,

Tirex28/

 

Vote positif 0 Vote négatif