Adapter ce code à des CheckBox

[Provence Vintage]

Bonjour, la je cale...

Je souhaite adapter ce code à une CheckBox (valeur recherchée dans une colonne), plutôt qu'un Combo:

Private Sub InitCombo(LCombo As Object, nomCol As String)
Dim lig As Long
Dim nbElement As Integer
Dim trouveElm As Boolean

LCombo.Clear

' Boucle de la ligne 2 à la dernière ligne dans la colonne nomCol
For lig = 2 To Range(nomCol & Cells.Rows.Count).End(xlUp).Row
trouveElm = False

' Vérifier que l'élément à ajouter dans la liste n'existe pas déjà
For nbElement = 0 To LCombo.ListCount - 1
' L'élément est déjà présent dans la liste, sortie de la boucle
If LCombo.List(nbElement) = Range(nomCol & lig).Value Then
trouveElm = True
Exit For
End If
Next nbElement

' Elément non trouvé dans la liste, l'ajouter
If trouveElm = False Then LCombo.AddItem Range(nomCol & lig).Value
Next lig
End Sub


Si quelqu'un a une idée, je suis preneur!
Merci🙄

 

[kllmoon]

Re : Adapter ce code à des CheckBox

Ta checkbox renvoi une valeur vrai ou faux lorsqu'on la coche ou non alors de simples If then End If feront le travail.

 

[youky(BJ)]

Re : Adapter ce code à des CheckBox

Bonjour le forum,
ceci est déja plus simple

A+
Private Sub InitCombo(LCombo As Object, nomCol As String)
    Dim lig As Integer
   For lig = 2 To Range(nomCol & Cells.Rows.Count).End(xlUp).Row
       LCombo =range(nomCol & lig)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range(nomCol & lig)
    Next 
End Sub