Excel combobox

Question

Bonjour a a tous voila mon probleme 

Je cherche a cr&#233;er 2 combobox avec les fonctions suivantes

Dans la premiere je veux choisir "Chiffre" ou "Lettre"

Si jai choisi chiffre, je veux afficher une liste d&#233;roulante type     1         dans la 2&#232;me
                                                                                                               2
                                                                                                               3
                                                                                                               4
                                                                                                               5

Si jai choisi lettre, je veux afficher une liste d&#233;roulante type     un           dans la 2&#232;me
                                                                                                             deux
                                                                                                              trois
                                                                                                               quatre
                                                                                                               cinq

Je n'arrive pas a faire ceci car je suis d&#233;butant en la matiere
si quelqun pouvait me donner un exemple de code pour que je puisse commencer

Merci a vous

jpleroisse · Answer

bonjour,



Private Sub ComboBox1_Click()

Dim i, str1()

ComboBox2.Clear

If ComboBox1.Text = "Chiffres" Then

    For i = 1 To 5

    ComboBox2.AddItem (i)

Next i

ElseIf ComboBox1.Text = "Lettres" Then

    ReDim str1(0 To 4)

    str1(0) = "un"

    str1(1) = "deux"

    str1(2) = "trois"

    str1(3) = "quattre"

    str1(4) = "cinq"

For i = 0 To 4

    ComboBox2.AddItem str1(i)

    Next i

End If

End Sub



Private Sub UserForm_Initialize()

ComboBox1.AddItem "Chiffres"

ComboBox1.AddItem "Lettres"

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

takin55 · Answer

Je te remercie vraiment beuacoup jpleroisse  c'est exactement c que je voulais 

Je vais pouvoir commencer ma macro comme ca 

Si j'ai d'autres questions j'esp&#232;re que tu pourras m'aider

takin55 · Answer

Maintenant je vais essayer de cr&#233;er une autre COMBOBOX et si j'ai choisi

***chiffre***

et

***1***

je veux afficher dans la 3eme

***Vert***

Je vais tester

Excel combobox

3 réponses

Discussions similaires