Macro combobox

captaime · 17 Février 2010

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 · 17 Février 2010

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 · 18 Février 2010

Re : Macro combobox

Bonjour Captaime 🙂

captaime à dit:
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 :

Code:

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

Code:

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 😎

Macro combobox

captaime

Guest

captaime

Guest

JNP

XLDnaute Barbatruc

Discussions similaires

Macro combobox

captaime

Guest

captaime

Guest

JNP

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency