Remplir ListView, avec ComboBox

[MuscatMimi]

Bonjour a tous

J'ai un petit soucis avec ma ListView, qui actuellement
ne rempli pas ma ListView correstement

Je dois pouvoir attribuer un format a chaque colonne

Code Procédure Alim ListView

Private Sub Alim_Listv(j As Byte, Col As Byte)

Dim i As Long, k As Byte

With Sheets("Data")
For i = 10 To .Cells(65536, Col).End(xlUp).Row
If .Cells(i, Col).Text = Controls("Cbx" & j).Text Then
ListView1.ListItems.Add , "K" & i, .Cells(i, 1) '1ère Colonne

ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 2) '2ème Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(.Cells(i, 3), "dd/mm/yyyy") '3ème Colonne

ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 5) ', "dd/mm/yyyy") '5ème Colonne


For k = 3 To 5
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, k + 1) 'Colonne 4 à 6
Next
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(.Cells(i, 7), "# ##0.00") '7èmè Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(.Cells(i, 8), "# ##0.00") '8èmè Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 9) '9 èmè Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 10) '9 èmè Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 11) '9 èmè Colonne
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 12) '9 èmè Colonne

ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , .Cells(i, 13) '9 èmè Colonne

End If
Next
End With

For X = 1 To ListView1.ListItems.Count
If ListView1.ListItems(X) = UCase("P") Then
ListView1.ListItems(X).ForeColor = &HFF0000
For j = 1 To 12
ListView1.ListItems(X).ListSubItems(j).ForeColor = &HFF0000
Next
End If
Next

End Sub

Code ComboBox

Private Sub Cbx1_Click() 'NOM
ListView1.ListItems.Clear
Alim_Listv 1, 1
Vide_Combo 1
TTotal 5, 1
TTotal 9, 2
TTotal 10, 3
End Sub

Merci de votre aide a l'avance

Cordialement

 

[Compte Supprimé 979]

Re : Remplir ListView, avec ComboBox

Bonjour Vaucluse Immo,

Désolé, je dois être aveugle 😛
mais a quel niveau se situe ton problème, je ne vois rien qui cloche 😕

A+

 

[MuscatMimi]

Re : Remplir ListView, avec ComboBox

Bonjour Bruno
Merci pour ta réponse
Ce qui cloche, c'est que je ne peux pas ,quand je passe par "Filtrage Par", afficher les bon formats dans les colonnes de la Listview
Format de Date
Format de Nombres en €
et ce pour chaque Colonne de cette Listview

Cordialement

 

[Compte Supprimé 979]

Re : Remplir ListView, avec ComboBox

Re,

Effectivement, mais c'est normal 🙄

Tu n'utilises pas le même format dans

Private Sub UserForm_Initialize()

que dans

Private Sub Alim_Listv(j As Byte, Col As Byte)

Exemple colonne 7

li.ListSubItems.Add , , Format(Sheets("Data").Cells(i, 7), "dd/mm/yyyy") 'date    '7èmè Colonne

ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Format(.Cells(i, 7), "# ##0.00") '7èmè Colonne

Ou alors, c'est que je ne comprends vraiment rien 😕