[Vba-Powerpt] Combobox dépendante d'une autre Fermé

Question

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



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

Karl Max · Accepted Answer

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

EBasta · Answer

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.

[Vba-Powerpt] Combobox dépendante d'une autre

2 réponses

Discussions similaires