Silverjet59
XLDnaute Nouveau
bonjour a tous.
je voudrai savoir comment changer mon code de ma listview car je voudrai la remplacer par une listbox
(erreur de compatibilité)
voici le code
"Private Sub userform_initialize()
Sheets("feuil1").Activate
With ListView1
With .ColumnHeaders
.Clear
.Add , , Range("B8"), Range("B8").Width
.Add , , Range("C8"), Range("C8").Width, lvwColumnCenter
End With
End With
ListView1.View = lvwReport
liglist = 1
For n = 7 To Range("B65536").End(xlUp).Row
If Range("C" & n) <> "" And Range("C" & n) < Now - TextBox5.Value Then
ListView1.ListItems.Add , , Range("B" & n).Value
ListView1.ListItems(liglist).ListSubItems.Add , , Range("C" & n).Value
liglist = liglist + 1
End If
Next n
end sub"
merci
je voudrai savoir comment changer mon code de ma listview car je voudrai la remplacer par une listbox
(erreur de compatibilité)
voici le code
"Private Sub userform_initialize()
Sheets("feuil1").Activate
With ListView1
With .ColumnHeaders
.Clear
.Add , , Range("B8"), Range("B8").Width
.Add , , Range("C8"), Range("C8").Width, lvwColumnCenter
End With
End With
ListView1.View = lvwReport
liglist = 1
For n = 7 To Range("B65536").End(xlUp).Row
If Range("C" & n) <> "" And Range("C" & n) < Now - TextBox5.Value Then
ListView1.ListItems.Add , , Range("B" & n).Value
ListView1.ListItems(liglist).ListSubItems.Add , , Range("C" & n).Value
liglist = liglist + 1
End If
Next n
end sub"
merci