[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
A voir également:
- [Vba-Powerpt] Combobox dépendante d'une autre
- Liste déroulante dépendante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Vba sleep ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
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
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
