Discussion :

[dev-junior]

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.

[pijaku]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thautheme]

Bonjour Dev, Pijaku, bonjour le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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