Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS

[NONO14]

Bonjour le forum,
J'alimente une comboActiveX (Cmb_Code) qui se trouve dans la feuille "CalculHS" avec les données d'un TS (t_Noms) qui se trouve dans la feuille "Liste_agents".
Ma Combo s'alimente à l'activation de la feuille "CalculHS". Je souhaiterai que les codes déjà présent dans la colonne "Code agent" du TS "t-Heures" de la feuille "CalculHS" soient supprimés de la liste.
Voici mon début de code mais je n'arrive pas à insérer cette information. Pouvez-vous m'aider s'il vous plaît ?
Merci par avance

Sub AlimenterComboBox()
    Dim WsCalculHS As Worksheet
    Dim WsListe As Worksheet
    Dim Tbl As ListObject
    Dim Cell As Range
    Dim Cbx As ComboBox

    ' Définir les feuilles de calcul
    Set WsCalculHS = ThisWorkbook.Sheets("CalculHS") ' Feuille de calcul contenant la ComboBox
    Set WsListe = ThisWorkbook.Sheets("Liste_agents") ' Feuille de calcul contenant le tableau structuré

    ' Définir le tableau structuré
    Set Tbl = WsListe.ListObjects("t_Noms") ' Nom du tableau structuré

    ' Définir la ComboBox en utilisant OLEObjects
    Set Cbx = WsCalculHS.OLEObjects("Cmb_Code").Object

    ' Vider la ComboBox avant de la remplir
    Cbx.Clear
    Cbx.AddItem ""
    
    ' Parcourir chaque cellule de la colonne "Code agent" du tableau structuré et ajouter les valeurs à la ComboBox
    For Each Cell In Tbl.ListColumns("Code agent").DataBodyRange
        Cbx.AddItem Cell.Value
    Next Cell

End Sub

 

[NONO14]

tu ne cherches vraiment pas beaucoup..
il faut faire le meme test avec le tableau de la feuille CalculHS

If tblHeures.ListRows.Count <> 0 Then
For Each Cell In tblHeures.ListColumns("Code agent").DataBodyRange

J'ai réussi à corriger l'erreur voici le code et ça fonctionne :

    ' Supprimer les codes présents dans la colonne "Code agent" de la ComboBox
    If Not tblHeures.DataBodyRange Is Nothing Then
    For Each Cell In tblHeures.ListColumns("Code agent").DataBodyRange
        Me.Cmb_Code = Cell 'on place la valeur dans le combo
        If Me.Cmb_Code.ListIndex <> -1 Then 'si ca correspond à un listindex ==> ca veut dire que le code est listé dans le combo
            Me.Cmb_Code.RemoveItem Me.Cmb_Code.ListIndex 'on supprime l'élement du combo
        End If

    Next Cell
    End If

 

[NONO14]

TooFatBoy, je vois que tu éclates de rire, n'est-ce pas ce que tu me suggérais ?

 

[TooFatBoy]

Non, ce n'est pas tout à fait ce que je suggérais, mais c'est une solution que je trouve très jolie.
Pour quelqu'un qui n'avait pas compris ma suggestion, tu t'es pas mal débrouillé.

 

[NONO14]

Non, ce n'est pas tout à fait ce que je suggérais, mais c'est une solution que je trouve très jolie.
Pour quelqu'un qui n'avait pas compris ma suggestion, tu t'es pas mal débrouillé.

Une lumière a du s'allumer à un étage.
Merci pour ton commentaire.