liste déroulante

Bonsoir JEAN,

On ne pourra pas dire que tu n'as pas de suite dans les
idéées ;0)

Voici un autre code pour ta demande similaire à un autre
fil pas tellement loin...

Private Sub UserForm_Initialize()
Dim Ligne As Integer
With ComboBox1
.AddItem "Test"
.AddItem "Essai"
.AddItem "Version"
End With

For Ligne = 200 To 204
ComboBox2.AddItem Sheets("Feuil1").Cells(Ligne, 1)
Next Ligne

ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
End Sub

Private Sub ComboBox1_Click()
Dim Ligne As Integer
ComboBox2.Clear
Select Case ComboBox1.Text
Case "Test"
For Ligne = 200 To 204
ComboBox2.AddItem Sheets("Feuil1").Cells
(Ligne, 1)
Next Ligne
Case "Essai"
For Ligne = 205 To 207
ComboBox2.AddItem Sheets("Feuil1").Cells
(Ligne, 1)
Next Ligne
Case "Version"
For Ligne = 208 To 209
ComboBox2.AddItem Sheets("Feuil1").Cells
(Ligne, 1)
Next Ligne
End Select
ComboBox2.ListIndex = 0
End Sub

Starwing

-----Message d'origine-----
bonsoir,

J'ai sur ma feuille 1

a partir de A200: en E200 j'ai
0010 test
0011 test
0012 test
0013 test
0014 test
0015 essai
0078 essai
0043 essai
0032 version
0034 version

je voudrai avoir deux combobox, un combobox 1 ou j'aurai
test essai et

version
quand je selectionne test dans le combobox 1, du coup sur
mon combobox 2

j'aurai juste les valeurs de 0010 Ã 0014
pour essai 0015 0078 et 0043 sur mon combobox 2

merci de votre aide






.