OVH Cloud OVH Cloud

liste déroulante et changement

4 réponses
Avatar
JEAN
Bonjour,

Sur ma feuille 1,

J'ai toute une liste de données:

avec
periode1 janvier
periode1 fevrier
periode1 mars
periode1 avril
periode1 mai
periode 2 juin
periode 2 juillet
periode 2 aout
periode 2 septembre
periode 2 Octobre
periode 3 novembre
periode 3 decembre

je souhaite avoir un combobox qui me permettra de selectionner la periode 1
ou la periode 2 ou la periode 3

si je selectionne la periode 1,dans le combobox1
j'aurai sur mon combobox 2 les valeurs de janvier à mai
si je selectionne la periode 2 dans le combobox 1
j'aurai sur mon combobox 2 les valeurs de juin à octobre.
et si dans le combobox1 je met periode 3
j'aurai dans mon combobox2 les valeurs de novembre et décembre.

merci de votre aide.

4 réponses

Avatar
Hervé
Bonsoir Jean,
En parlant des valeurs je pense que ce sont les noms de mois que tu veux
dans le combobox2. A mettre dans le module de ta Form car je suppose aussi
que les combos se trouvent sur un UserForm :

Private Sub UserForm_Initialize()
Dim I As Integer
For I = 1 To 3
ComboBox1.AddItem "Période " & I
Next I
For I = 1 To 5
ComboBox2.AddItem MonthName(I)
Next I
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
End Sub

Private Sub ComboBox1_Click()
Dim I As Integer
ComboBox2.Clear
Select Case ComboBox1.Text
Case "Période 1"
For I = 1 To 5
ComboBox2.AddItem MonthName(I)
Next I
Case "Période 2"
For I = 6 To 10
ComboBox2.AddItem MonthName(I)
Next I
Case "Période 3"
For I = 11 To 12
ComboBox2.AddItem MonthName(I)
Next I
End Select
ComboBox2.ListIndex = 0
End Sub

Hervé.

"JEAN" a écrit dans le message news:

Bonjour,

Sur ma feuille 1,

J'ai toute une liste de données:

avec
periode1 janvier
periode1 fevrier
periode1 mars
periode1 avril
periode1 mai
periode 2 juin
periode 2 juillet
periode 2 aout
periode 2 septembre
periode 2 Octobre
periode 3 novembre
periode 3 decembre

je souhaite avoir un combobox qui me permettra de selectionner la periode
1

ou la periode 2 ou la periode 3

si je selectionne la periode 1,dans le combobox1
j'aurai sur mon combobox 2 les valeurs de janvier à mai
si je selectionne la periode 2 dans le combobox 1
j'aurai sur mon combobox 2 les valeurs de juin à octobre.
et si dans le combobox1 je met periode 3
j'aurai dans mon combobox2 les valeurs de novembre et décembre.

merci de votre aide.




Avatar
Starwing
Bonjour JEAN,

Et pour faire suite à la procédure de Hervé, n'oublie pas de créer un autre
classeur Excel...

--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing

--
"Hervé" a écrit dans le message de
news:
Bonsoir Jean,
En parlant des valeurs je pense que ce sont les noms de mois que tu veux
dans le combobox2. A mettre dans le module de ta Form car je suppose aussi
que les combos se trouvent sur un UserForm :

Private Sub UserForm_Initialize()
Dim I As Integer
For I = 1 To 3
ComboBox1.AddItem "Période " & I
Next I
For I = 1 To 5
ComboBox2.AddItem MonthName(I)
Next I
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
End Sub

Private Sub ComboBox1_Click()
Dim I As Integer
ComboBox2.Clear
Select Case ComboBox1.Text
Case "Période 1"
For I = 1 To 5
ComboBox2.AddItem MonthName(I)
Next I
Case "Période 2"
For I = 6 To 10
ComboBox2.AddItem MonthName(I)
Next I
Case "Période 3"
For I = 11 To 12
ComboBox2.AddItem MonthName(I)
Next I
End Select
ComboBox2.ListIndex = 0
End Sub

Hervé.

"JEAN" a écrit dans le message news:

Bonjour,

Sur ma feuille 1,

J'ai toute une liste de données:

avec
periode1 janvier
periode1 fevrier
periode1 mars
periode1 avril
periode1 mai
periode 2 juin
periode 2 juillet
periode 2 aout
periode 2 septembre
periode 2 Octobre
periode 3 novembre
periode 3 decembre

je souhaite avoir un combobox qui me permettra de selectionner la
periode


1
ou la periode 2 ou la periode 3

si je selectionne la periode 1,dans le combobox1
j'aurai sur mon combobox 2 les valeurs de janvier à mai
si je selectionne la periode 2 dans le combobox 1
j'aurai sur mon combobox 2 les valeurs de juin à octobre.
et si dans le combobox1 je met periode 3
j'aurai dans mon combobox2 les valeurs de novembre et décembre.

merci de votre aide.








Avatar
JEAN
excuse moi mais ce n'est pas periode 1 2 et 3 que j'ai au fait je me suit
trompé.

c'est ASP
BHL
ISX

c'est des codes que j'ai alla place de ma periode 1 2 et 3

du couop comment s'ecrit mon code.

merci



Bonsoir Jean,
En parlant des valeurs je pense que ce sont les noms de mois que tu veux
dans le combobox2. A mettre dans le module de ta Form car je suppose aussi
que les combos se trouvent sur un UserForm :

Private Sub UserForm_Initialize()
Dim I As Integer
For I = 1 To 3
ComboBox1.AddItem "Période " & I
Next I
For I = 1 To 5
ComboBox2.AddItem MonthName(I)
Next I
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
End Sub

Private Sub ComboBox1_Click()
Dim I As Integer
ComboBox2.Clear
Select Case ComboBox1.Text
Case "Période 1"
For I = 1 To 5
ComboBox2.AddItem MonthName(I)
Next I
Case "Période 2"
For I = 6 To 10
ComboBox2.AddItem MonthName(I)
Next I
Case "Période 3"
For I = 11 To 12
ComboBox2.AddItem MonthName(I)
Next I
End Select
ComboBox2.ListIndex = 0
End Sub

Hervé.

"JEAN" a écrit dans le message news:

Bonjour,

Sur ma feuille 1,

J'ai toute une liste de données:

avec
periode1 janvier
periode1 fevrier
periode1 mars
periode1 avril
periode1 mai
periode 2 juin
periode 2 juillet
periode 2 aout
periode 2 septembre
periode 2 Octobre
periode 3 novembre
periode 3 decembre

je souhaite avoir un combobox qui me permettra de selectionner la periode
1

ou la periode 2 ou la periode 3

si je selectionne la periode 1,dans le combobox1
j'aurai sur mon combobox 2 les valeurs de janvier à mai
si je selectionne la periode 2 dans le combobox 1
j'aurai sur mon combobox 2 les valeurs de juin à octobre.
et si dans le combobox1 je met periode 3
j'aurai dans mon combobox2 les valeurs de novembre et décembre.

merci de votre aide.









Avatar
Starwing
Bonsoir JEAN,

N'oublie pas de bien formuler ta question au départ. De
cette façon, tu gagneras du temps et tu avanceras plus
rapidement. De plus, les bénévoles de ce site n'auront pas
l'impression d'avoir répondu pour rien.

Voici une deuxième réponse, en fonction de ta deuxième
demande. J'espère que cette fois tu ne t'ai pas trompé. ;0)

Private Sub UserForm_Initialize()
Dim I As Integer
With ComboBox1
.AddItem "ASP"
.AddItem "BHL"
.AddItem "ISX"
End With
For I = 1 To 5
ComboBox2.AddItem MonthName(I)
Next I
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
End Sub

Private Sub ComboBox1_Click()
Dim I As Integer
ComboBox2.Clear
Select Case ComboBox1.Text
Case "ASP"
For I = 1 To 5
ComboBox2.AddItem MonthName(I)
Next I
Case "BHL"
For I = 6 To 10
ComboBox2.AddItem MonthName(I)
Next I
Case "ISX"
For I = 11 To 12
ComboBox2.AddItem MonthName(I)
Next I
End Select
ComboBox2.ListIndex = 0
End Sub

Starwing