Lier deux conboBox

Version imprimable

11/08/2014, 09h53
dev-junior

Lier deux conboBox

bonjour tout le monde,

je suis débutante en programmation VBA, donc je rencontre un problème avec mon fichier, je n'arrive pas a trouver un code pour lier deux comboBox figurantes sur un userform. (la fonction indirecte dans la validation des données ).
un exemple pour simplifier ma question:

j'ai un fichier excel : sur la colonne A il y a les trimestres
- cellule (A2) : trimestre 1
- cellule (A3): trimestre 2
- cellule (A4): trimestre 3
- cellule (A5): trimestre 4 c'est les choix qui vont figurer sur la comboBox1

sur la colonne B il y a les mois :

alors je veux que quand je choisirai par exemple trimestre 1 dans la comboBox 1, la comboBox 2 m'affiche janvier, février, mars.

merci d'avance.

Bonjour,

Si tu parles d'utiliser Indirect et la validation de données c'est que tes plages de cellules sont nommées.
Les combobox ne sont pas "remplies" par leur propriété RowSource.
Je part de ce principe.
Tu as donc :
- 1 plage nommée "trimestres" (dans laquelle nous trouverons "trimestre_1", "trimestre_2", "trimestre_3" & "trimestre_4")
- 1 plage nommée "trimestre_1" (janvier, février, mars)
- 1 plage nommée "trimestre_2" (avril, mai, juin)
- 1 plage nommée "trimestre_3" (juillet aout septembre)
- 1 plage nommée "trimestre_4" (octobre, novembre, décembre)
!!! ATTENTION. Les données de la plage nommée trimestres doivent être saisies rigoureusement identiques aux noms des plages "trimestre_1" etc...
- 1 Userform
- 2 combobox (1 et 2)

Le code, à l'événement initialize de ton userform sera :
Code:

1 2 3 4 5 Private Sub UserForm_Initialize() ComboBox1.Clear ComboBox1.List = Application.Transpose(Range("trimestres")) ComboBox2.Clear End Sub
Et le code de l'événement Change de ta combobox1 :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub ComboBox1_Change() If ComboBox1.Value = "" Then Exit Sub ComboBox2.Clear Dim NomRange As String NomRange = ComboBox1.Value If NomDefini(NomRange) Then ComboBox2.List = Application.Transpose(Range(NomRange)) Else ComboBox2.AddItem """Aucune donnée""" End If End Sub
Et la fonction vérifiant si le nom correspond à une plage nommée du classeur :
Code:

1 2 3 4 5 6 7 Function NomDefini(Nom As String) As Boolean Dim Noms As Name NomDefini = False For Each Noms In ThisWorkbook.Names If Noms.Name = Nom Then NomDefini = True: Exit Function Next Noms End Function

Bonjour Dev, Pijaku, bonjour le forum,

Avec uniquement 12 données tu pourrais tout écrire en dur...

Code:

1
2
3
4
5
6
Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem "Trimestre 1"
Me.ComboBox1.AddItem "Trimestre 2"
Me.ComboBox1.AddItem "Trimestre 3"
Me.ComboBox1.AddItem "Trimestre 4"
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1.Value = "" Then Me.ComboBox2.Clear: Exit Sub
Me.ComboBox2.Clear
Select Case Me.ComboBox1.Value
    Case "Trimestre 1"
        Me.ComboBox2.AddItem "janvier"
        Me.ComboBox2.AddItem "février"
        Me.ComboBox2.AddItem "mars"
    Case "Trimestre 2"
        Me.ComboBox2.AddItem "avril"
        Me.ComboBox2.AddItem "mai"
        Me.ComboBox2.AddItem "juin"
    Case "Trimestre 3"
        Me.ComboBox2.AddItem "juillet"
        Me.ComboBox2.AddItem "août"
        Me.ComboBox2.AddItem "septembre"
    Case "Trimestre 4"
        Me.ComboBox2.AddItem "octobre"
        Me.ComboBox2.AddItem "novembre"
        Me.ComboBox2.AddItem "décembre"
End Select
End Sub

Mais la méthode de Pijaku est beaucoup mieux j'en conviens...