remplir une listbox en sautant une colonne

[stéphanie123]

salut ,


j'ai rempli des combobox , et je souhaiterai remplir à la suite la listbox en sautant la colonne c

cela ai t il possible?

 

[skoobi]

Re : remplir une listbox en sautant une colonne

Bonsoir,

modifie le code du combobox comme ceci (en bleu ajout, en rouge modif)

Private Sub Cmbounité_Change()

    Dim oCollection As New Collection
    Dim I As Long
    Dim balan As Range
     
    
    ' Itération sur chaque cellule de c et appel de la procédure d'ajout
    For Each balan In Feuil4.Range("c2:c" & Feuil4.Range("c" & Rows.Count).End(xlUp).Row)
        If balan(1, 0).Value = Cmbounité.Value Then AjouterItem oCollection, balan[COLOR=Red][B].Offset(0, 1).Value[/B][/COLOR]
    Next balan
    [COLOR=Blue][B]For I = 1 To oCollection.Count
      Liste1.AddItem oCollection(I)
    Next[/B][/COLOR]
End Sub