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

Karl Max -
Karl Max - 24 mai 2007 à 14:45

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

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
Mkdir vba ✓ - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum VB / VBA
Vba range avec variable ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

Karl Max

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

Réponse 2 / 2

EBasta Messages postés 37 Date d'inscription Statut Membre Dernière intervention 31

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.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

VBA Excel : sélection d'une plage variable

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires