[Vba-Powerpt] Combobox dépendante d'une autre
Karl Max
-
Karl Max -
Karl Max -
Bonjour, Je cherche à faire un truc assez simple en théorie...Mais bon, je débute!
J'ai 2 combobox dans une présentation powerpoint une "Pays" et une autre "Ville".
Je veux que lorsque j'entre dans la combobox3 le pays(France) l'utilisateur ne puisse choisir que entre les ville Francaise(quimper, Nice, Brest...) dans la combobox4.
Voici mon programme...Rien ne se passe quand je modifie Combobox3
Si quelqu'un voit ou je me suis planté, ca serait très gentil de me le dire!!
Merci
J'ai 2 combobox dans une présentation powerpoint une "Pays" et une autre "Ville".
Je veux que lorsque j'entre dans la combobox3 le pays(France) l'utilisateur ne puisse choisir que entre les ville Francaise(quimper, Nice, Brest...) dans la combobox4.
Voici mon programme...Rien ne se passe quand je modifie Combobox3
Private Sub Slide1_Load()
ComboBox3.Clear
ComboBox1.Clear
ComboBox2.Clear
ComboBox3 = "Country"
ComboBox3.AddItem "France"
ComboBox3.AddItem "Allemagne "
ComboBox3.AddItem "Pays Bas"
ComboBox1 = "France"
ComboBox2 = "Paris"
End Sub
Private Sub ComboBox4_click()
If ComboBox3 = "Allemagne" Then
MsgBox ("open")
ComboBox4.AddItem "Sylt"
ComboBox4.AddItem "Constanza"
ComboBox4.AddItem "Zugspitze"
ComboBox4.AddItem "Gorlitz"
End If
If<code> ComboBox3.Value = France Then
ComboBox1.AddItem "Quimper"
ComboBox1.AddItem "Deauville"
ComboBox1.AddItem "La Rochelle"
ComboBox1.AddItem "Nice"
ComboBox1.AddItem "Brest"
End If
End Sub
Si quelqu'un voit ou je me suis planté, ca serait très gentil de me le dire!!
Merci
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
Merci pour votre réponse;
Voici le code final qui marche, si un jour qqun en a besoin:
Private Sub Slide1_Load()
ComboBox3.Clear
ComboBox1.Clear
ComboBox2.Clear
ComboBox4.Clear
ComboBox3 = "Country"
ComboBox4 = "City"
ComboBox1 = "France"
ComboBox2 = "Paris"
ComboBox3.AddItem "France"
ComboBox3.AddItem "Allemagne"
ComboBox3.AddItem "Pays Bas"
TextBox1 = "DD/MM/YYYY"
TextBox2 = "DD/MM/YYYY"
End Sub
Public Sub ComboBox3_Change()
If ComboBox3 = "France" Then
ComboBox4.Clear
ComboBox4.AddItem "Quimper"
ComboBox4.AddItem "Deauville"
ComboBox4.AddItem "La Rochelle"
ComboBox4.AddItem "Nice"
ComboBox4.AddItem "Brest"
End If
If ComboBox3 = "Allemagne" Then
ComboBox4.Clear
ComboBox4.AddItem "Sylt"
ComboBox4.AddItem "Constanza"
ComboBox4.AddItem "Zugspitze"
ComboBox4.AddItem "Gorlitz"
End If
If ComboBox3 = "Pays Bas" Then
ComboBox4.Clear
ComboBox4.AddItem "Amsterdam"
ComboBox4.AddItem "Den Helder"
ComboBox4.AddItem "Vlissingen"
End If
End Sub -
Bonjour,
Dans la seconde condition, il faudrait mettre des guillemets :
If ComoBox3="France" Then
Ensuite, est-ce bien ComBox1, et non pas ComBox4 ?
J'espère avoir bien répondu.
