Re : remplissage Listview
En effet, Le problème vient du fait que l'on compare une valeur numérique (fichier colonne A) à une valeur Texte dans la combobox2
Or selon les colonnes, tu as du numérique ou du texte. J'ai fait une modification qui fonctionne
Remplace ton code par celui-ci :
Private Sub CommandButton1_Click()
'Stop
If ComboBox2.ListIndex = -1 Then Exit Sub
Dim WS As Worksheet, Cell As Range, NoCol As Byte
Dim NoLig As Integer, DerLig As Long, Var As Variant
Set WS = Worksheets("commande en cours")
DerLig = Cells(Application.Rows.Count, col).End(xlUp).Row
With ListView1
'Utilisation du N° de ligne dans une boucle For ... Next
For i = 3 To DerLig
a = Format(Cells(i, col), "@")
'Selection.NumberFormat = "@"
If a = ComboBox2 Then
.ListItems.Add , , Cells(i, 1)
For k = 2 To 8
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(i, k), , lvwColumnCenter
labelfin:
Next
End If
' ' Stop
Next
End With
Set WS = Nothing