Bonjour,
je souhaite charger la combo TabHoraires_Code_horaire en fonction de la valeur de la combo TabHoraires_Client. Je souhaite utiliser la méthode suivante:
la valeur de la première Combo est utilisée comme critère de filtre pour la table TabHoraires, et seules les lignes apparentes de celui-ci alimenteront la deuxième combo. J'ai essayé d'utiliser SpecialCells(xlCellTypeVisible), mais je n'arrive pas au résultat voulu:
voici le code et un classeur test:
Private Sub TabHoraires_Client_Change()
Dim iLigne As Integer
Dim n As Integer
If Me.TabHoraires_Client.ListIndex = -1 And IsError(Application.Match(Me.TabHoraires_Client, choix1, 0)) Then
Me.TabHoraires_Client.List = Filter(choix1, Me.TabHoraires_Client.Text, True, vbTextCompare)
Me.TabHoraires_Client.DropDown
Else
'salarie_a_modifier_click
End If
wksBDD_horaires.ListObjects("TabHoraires").Range.AutoFilter Field:=1
wksBDD_horaires.ListObjects("TabHoraires").Range.AutoFilter Field:=1, Criteria1 _
:=TabHoraires_Client.Value
n = wksBDD_horaires.Range("TabHoraires_Client").End(xlDown).Row - 1
For iLigne = 1 To n
Me.cTabHoraires_Code_horaire.AddItem wksBDD_horaires.Cells(iLigne + 1, Range("TabHoraires_Code_horaire").Column).Value
' c'est ici que j'ai essayé de positionner SpecialCells(xlCellTypeVisible)
Next iLigne
End Sub
merci d'avance