Charger plage de données non vides dans combobox

Salut la communauté,

J'éprouve une certaine difficulté sur un projet, et je souhaite le partager sur ce panel.

J'ai un tableau de 13 colonnes, la première qui contient les noms des salariés, et les douze (12) autres

contenant les primes mensuelles correspondantes de janvier à décembre.

J'ai sur mon userform, deux Combobox, le premier pour le choix du mois, et le second pour la sélection

des salariés. Donc bien sûr, je souhaite pour chaque mois choisi, pouvoir charger exclusivement les

salariés qui ont eu des primes (c'est à dire dont la cellule de la colonne du mois en question n'est pas vide

ou égale à zéro).

J'espère que je me suis bien expliqué.

Malheureusement je peux pas joindre le fichier original pour raison de confidentialité. J'ai joint

un classeur simplifié qui peut guider toute bonne volonté sur ce forum.

Merci d'avance!

Bonjour,

Essayez ceci

Private Sub Cbx_Mois_Change()
    Dim Col As Long, DerLig As Long, i As Long
    Dim f1 As Worksheet
    Dim d1 As Object
    Dim C As Variant
    Set f1 = Sheets("PRIMES")
    DerLig = f1.Range("A" & Rows.Count).End(xlUp).Row
    Col = Application.Match(Cbx_Mois, f1.Rows(4), 0)
    Set d1 = CreateObject("Scripting.Dictionary")
    For Each C In f1.Range(Cells(5, Col), Cells(DerLig, Col))
        If C > 0 Then d1.Add C.Offset(0, -Col + 1), ""
    Next
    f1.Range("ZZ1").Resize(d1.Count, 1) = Application.Transpose(d1.keys)
    Cbx_Salariés.List = f1.Range("ZZ1:ZZ" & d1.Count).Value
    f1.Range("ZZ1:ZZ" & d1.Count).ClearContents
End Sub

Cdlt

Bonjour, une proposition qui était en gestation :

Merci infiniment à vous tous pour vos contributions!

Les propositions marchent super bien.

Bien à tous!