Bonjour le forum,
Je ne parviens pas à trouver la bonne solution afin de sélectionner toutes les cases à cocher de mon listview.
Voici le code que j'utilise :
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim Check As ListItem
Dim J As Integer
TextBoxConte = 0
For Each Check In ListView1.ListItems
If Check.Checked = True Then J = J + 1: TextBoxConte = J
Next
If J > 3 Or J < 54 Then TextBoxConte.BackColor = &H80FF80
If J < 4 Or J > 54 Or J = 7 Then TextBoxConte.BackColor = &H8080FF
End Sub
Private Sub UserForm_initialize()
Dim cel As Range
Dim i As Integer
Dim Tablo
Nbterrain = 0
Tablo = Sheets("INSCRIPTIONS").Range("J3:J" & Sheets("INSCRIPTIONS").Range("J" & Rows.Count).End(xlUp).Row)
'----- remplissage ListView------------------------
With ListView1.ColumnHeaders 'Définit le nombre de colonnes et Entêtes
.Add , , "N° jetons et INSCRIPTIONS des membres", 125
End With
i = 1
ListView1.CheckBoxes = True
For Each cel In Sheets("INSCRIPTIONS").Range("J3:J" & Sheets("INSCRIPTIONS").[j65000].End(xlUp).Row)
With ListView1.ListItems
.Add = cel
End With
ListView1.ListItems(i).Checked = False
i = i + 1
Next
ListView1.View = lvwReport 'Spécifie l'affichage en mode "Détails"
End Sub
Merci beaucoup
Je ne parviens pas à trouver la bonne solution afin de sélectionner toutes les cases à cocher de mon listview.
Voici le code que j'utilise :
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim Check As ListItem
Dim J As Integer
TextBoxConte = 0
For Each Check In ListView1.ListItems
If Check.Checked = True Then J = J + 1: TextBoxConte = J
Next
If J > 3 Or J < 54 Then TextBoxConte.BackColor = &H80FF80
If J < 4 Or J > 54 Or J = 7 Then TextBoxConte.BackColor = &H8080FF
End Sub
Private Sub UserForm_initialize()
Dim cel As Range
Dim i As Integer
Dim Tablo
Nbterrain = 0
Tablo = Sheets("INSCRIPTIONS").Range("J3:J" & Sheets("INSCRIPTIONS").Range("J" & Rows.Count).End(xlUp).Row)
'----- remplissage ListView------------------------
With ListView1.ColumnHeaders 'Définit le nombre de colonnes et Entêtes
.Add , , "N° jetons et INSCRIPTIONS des membres", 125
End With
i = 1
ListView1.CheckBoxes = True
For Each cel In Sheets("INSCRIPTIONS").Range("J3:J" & Sheets("INSCRIPTIONS").[j65000].End(xlUp).Row)
With ListView1.ListItems
.Add = cel
End With
ListView1.ListItems(i).Checked = False
i = i + 1
Next
ListView1.View = lvwReport 'Spécifie l'affichage en mode "Détails"
End Sub
Merci beaucoup