Code listview pour listbox

bonjour a tous et toutes

j'ai un souci que je ne saisi pas bien

je suis en cours de modifier un code de Listview pour une lisbox et je me heurte a

 If UserForm1.ListBox1.ListItems(I).Checked

dans ce code, j'ai du loupé quelque chose mais je ne voie plus

Private Sub ComboBox1_Change()
    Dim I As Integer
    If UserForm1.ComboBox1.ListIndex <> -1 Then
        For I = 1 To UserForm1.ListBox1.ListItems.Count
            If UserForm1.ListBox1.ListItems(I).Checked = True Then UserForm1.ListBox1.ListItems(I).Checked = False
        Next I
    End If

End Sub

Merci par avance

Bonsoir,

ListItems n'est pas une propriété de ListBox...

ListCount renvoie le nombre d'éléments d'une ListBox.

Bonjour à tous,

à tester,

 For I = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(I) = True Then Me.ListBox1.Selected(I) = False

Bonjour

ses pas claire ta listbox voila un exemple

Private Sub UserForm_Initialize()
ComboBox1.List = Array("Rouenel", "Rexel", "Tanguy", "Leader Mat", _
                                        "Castorama", "Point P", "Dispano", "Cedeo", "Kerbrat", "Qama", _
                                        "Foussier", "Wurth", "Berner")
End Sub

Private Sub UserForm_Activate()
'activation du chargement de la listbox
   Call ChargementListBox
End Sub

Sub ChargementListBox()
Set S = Sheets("Feuil1")
'nettoyage
ListBox1.Clear
   With ListBox1
       'source des données sur le feuille
'                    .RowSource = "C7:D2356"
       'affichage entête colonne
       .ListStyle = fmListStyleOption
       .ColumnHeads = False 'où true
       'nombre de colonne
       .ColumnCount = 2
       'largeur de la colonne
       .ColumnWidths = "50;50"
       .List = S.Range("C7:D" & S.Range("C" & Rows.Count).End(xlUp).Row).Value
   End With
End Sub

A+

Maurice

bonsoir Archer, sabsav et le forum

le code de sabsav m'as déja ouvert une voie de réussite, mais le code Archer la continue très bien

Merci a vous

Rechercher des sujets similaires à "code listview listbox"