Macro combobox

[captaime]

Bonjour,

je sèche ... (encore)

j'ai fait un userform, avec dedans un combobox.
j'alimente ce combobox via propriété et une liste dans une feuille paramètres.

mon souhait c'est que chaque choix dans le combobox déclenche une macro de tri.

j'arrive bien à faire exécuter la première macro mais je ne parviens pas à exécuter les suivantes.
mes lacunes ne me laissent aucune chance lol.

Private Sub ComboBox1_Click()
If ComboBox1.Value = "ville1" Then
Call ville 1
If ComboBox1.Value = "ville 2" Then
Call Ville 2

End If
End Sub

j'ai essayé d'adapter un peu tout ce que j'ai lu et vu mais écrire un code ne s'improvise pas !!!...

Quelqu'un peut-il m'aider ??

Merci

Stéphane

 

[captaime]

Re : Macro combobox

Oupssssssssss


j'ai trouvé ma solution, j'ai honte c'est sur un autre forum ..

pour celui éventuellement comme moi cherche partout à " profiter " du savoir des autres, voici la solution.

Private Sub ComboBox1_Change()
Select Case ComboBox1.Text
Case "ville" case sélectionnée dans la feuille via les paramètres
ville nom de la macro
Case "ville 1"
ville 1
End Select
End Sub


enfin c'est ce que j'ai cru comprendre .. en tous cas ça marche

Stéphane

 

[JNP]

Re : Macro combobox

Bonjour Captaime 🙂

Oupssssssssss
j'ai trouvé ma solution, j'ai honte c'est sur un autre forum ..
L'essentiel est de trouver une solution (mais ça m'étonnerait que ce type de code avec Select Case soit absent du forum, rien que moi, j'en ai parlé plusieurs fois 😛)
enfin c'est ce que j'ai cru comprendre .. en tous cas ça marche
C'est ce qui compte 😉

En ce qui concerne ton premier code, le deuxième test ne pouvait pas marcher vu qu'il découlait du premier, en gros, Si Ville1, je teste Si Ville2, mais pas Si pas Ville1...
Le code correct :

Private Sub ComboBox1_Click()
If ComboBox1.Value = "ville1" Then
Call ville 1
[COLOR=red][B]End If[/B][/COLOR]
If ComboBox1.Value = "ville 2" Then
Call Ville 2
End If
End Sub

qui quand on a 1 seule instruction conditionnelle peut être raccourci ainsi

Private Sub ComboBox1_Click()
If ComboBox1.Value = "ville1" Then Call ville 1
If ComboBox1.Value = "ville 2" Then Call Ville 2
End Sub

Bonne journée 😎