Problème avec ComboBox sur VB6 !
said394
Messages postés
65
Date d'inscription
Statut
Membre
Dernière intervention
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonsoir,
J'ai créer une interface sous VB6, et j'y ai mis des ComboBox.
La première Combobox contient ceci :
A, B, C, D
Et la deuxième Combobox Contient ceci:
A1, A2, A3, B1, B2, B3, B4, B5, C1, C2, D1, D2, D3
Mon souci est le suivant:
Je veux que quand je choisi A dans la liste première, VB doit me limité le choix entre A1, A2 et A3 dans la deuxième liste.
J'ai créer une interface sous VB6, et j'y ai mis des ComboBox.
La première Combobox contient ceci :
A, B, C, D
Et la deuxième Combobox Contient ceci:
A1, A2, A3, B1, B2, B3, B4, B5, C1, C2, D1, D2, D3
Mon souci est le suivant:
Je veux que quand je choisi A dans la liste première, VB doit me limité le choix entre A1, A2 et A3 dans la deuxième liste.
A voir également:
- Problème avec ComboBox sur VB6 !
- Vb6 - Télécharger - Divers Utilitaires
- Combobox vba liste déroulante dynamique - Forum Excel
- Remplir combobox vba ✓ - Forum Excel
- Vb6 timer - Forum VB / VBA
- Propriétés combobox vba ✓ - Forum VB / VBA
3 réponses
Bonjour,
Employer un tableau à 4 dimentions
et changer le contenu du ComboBox2 en fonction de la sélection du comboBox1
A+
Employer un tableau à 4 dimentions
Dim Tableau(1 to 4,1 to 3)
Tableau(1,1) = "A1"
Tableau(1,2) = "A2"
Tableau(1,3) = "A3"
Tableau(2,1) = "B1"
Tableau(2,2) = "B2"
Tableau(2,3) = "B3"
Etc...
et changer le contenu du ComboBox2 en fonction de la sélection du comboBox1
A+
Plus simple !! je ne fais que répondre à ta demande.
Un nouveau projet.
deux Combo sur la feuille, Combo1 et Combo2
Copier le code ci-dessous dans le module de la forme.
Et lancer...
A+
Un nouveau projet.
deux Combo sur la feuille, Combo1 et Combo2
Copier le code ci-dessous dans le module de la forme.
Dim Tableau(1, 2)
Private Sub Combo1_Click()
Dim i As Integer
Combo2.Clear
For i = 0 To 2
Combo2.AddItem Tableau(Combo1.ListIndex, i)
Next i
Combo2.ListIndex = 0
End Sub
Private Sub Form_Load()
Dim V1 As Integer, V2 As Integer
For V1 = 0 To 1
For V2 = 0 To 2
Tableau(V1, V2) = Chr(65 + V1) & V2 + 1
Next V2
Next V1
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.ListIndex = 0
End Sub
Et lancer...
A+
