Dim f
Private Sub UserForm_Initialize()
Set f = Sheets("Temps_cumulé")
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In f.Range("A2:A" & f.[A65000].End(xlUp).Row) ' on explore la colonne de niveau 1
MonDico(c.Value) = "" ' on ajoute l'élément de la famille au dictionnaire
Next c
Me.famille.List = MonDico.keys
End Sub
Private Sub famille_click()
Me.SousFamille.Clear
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In f.Range("A2:A" & f.[A65000].End(xlUp).Row) ' on explore la colonne de niveau 1"
If IsDate(Me.famille) Then
If c = CDate(Me.famille) Then MonDico(c.Offset(, 1).Value) = "" ' si famille alors on ajoute l'élément de la sous-famille au dictionnaire
Else
If c = Me.famille Then MonDico(c.Offset(, 1).Value) = "" ' si famille alors on ajoute l'élément de la sous-famille au dictionnaire
End If
Next c
Me.SousFamille.List = MonDico.keys
End Sub
Private Sub SousFamille_click()
For Each c In f.Range("A2:A" & f.[A65000].End(xlUp).Row) ' on explore la colonne de niveau 1
If IsDate(Me.famille) Then
If c = CDate(Me.famille) And c.Offset(, 1) = Me.SousFamille Then Me.Code = c.Offset(, 2) ' si famille alors on ajoute l'élément de la sous-famille au dictionnaire
If c = CDate(Me.famille) And c.Offset(, 1) = Me.SousFamille Then Me.TextBox1 = c.Offset(, 3)
If c = CDate(Me.famille) And c.Offset(, 1) = Me.SousFamille Then Me.TextBox2 = c.Offset(, 4)
Else
If c = Me.famille And c.Offset(, 1) = Me.SousFamille Then Me.Code = c.Offset(, 2) ' si famille alors on ajoute l'élément de la sous-famille au dictionnaire
If c = Me.famille And c.Offset(, 1) = Me.SousFamille Then Me.TextBox1 = c.Offset(, 3)
If c = Me.famille And c.Offset(, 1) = Me.SousFamille Then Me.TextBox2 = c.Offset(, 4)
End If
Next c
End Sub