Sub afficheQualité()
' Afficher les données des clients
Dim wsFClient As Worksheet
Dim Lig As Long
Dim Cumul As Currency
Dim derLig As Long
Dim LigList As Long
Dim laCle As String
Dim Choix As String
Dim QltOK As Boolean
Set wsFClient = Worksheets("BD")
' Initialisation de la ligne dans le listview
LigList = 1
With ListView1
' Vider le contenu du listview
.ListItems.Clear
' Dernière ligne en colonne A
derLig = wsFClient.Range("A" & Cells.Rows.Count).End(xlUp).Row
If derLig < 2 Then Exit Sub
' Boucle de la ligne 2 à la dernière
For Lig = 2 To derLig
laCle = "F" & Lig
' Test des choix pour l'affichage de la ligne
QltOK = False
If OptionButton1.Value = True And OptionButton2.Value = True Then
QltOK = True
ElseIf OptionButton1.Value = True And wsFClient.Range("D" & Lig).Value = "Remis" Then
QltOK = True
ElseIf OptionButton2.Value = True And wsFClient.Range("D" & Lig).Value = "Non Remis" Then
QltOK = True
End If
' Affichage autorisée de la ligne
If QltOK = True Then
If Year(wsFClient.Range("C" & Lig).Value) <> CDbl(textbox_année) And Year(wsFClient.Range("e" & Lig).Value) <> CDbl(textbox_année) Then GoTo ici
' Remplir la première colonne
.ListItems.Add , laCle, wsFClient.Range("A" & Lig).Value
'Remplissage colonnes 2 à 6
.ListItems(.ListItems.Count).ListSubItems.Add , , MonthName(Month(wsFClient.Range("B" & Lig).Value)) & " " & Right(wsFClient.Range("B" & Lig).Value, 4)
.ListItems(.ListItems.Count).ListSubItems.Add , , wsFClient.Range("C" & Lig).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , wsFClient.Range("D" & Lig).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , wsFClient.Range("E" & Lig).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , wsFClient.Range("F" & Lig).Value
'.ListItems(.ListItems.Count).ListSubItems.Add , , wsFClient.Range("G" & Lig).Value
LigList = LigList + 1
End If
ici:
Next Lig
' Si la liste est remplie, se positionner sur le 1er client de la liste
If .ListItems.Count > 0 Then
.ListItems(1).Selected = True
LigClient = CLng(Replace(.ListItems(.SelectedItem.Index).Key, "F", ""))
End If
End With
End Sub