MuscatMimi
XLDnaute Accro
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
Code ComboBox
Merci de votre aide a l'avance
Cordialement
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