1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
| Function pipo()
'Recherche de l'option sélectionnée
If OptionButton1.Value = True Then
leFiltre = "Toutes"
ElseIf OptionButton2.Value = True Then
leFiltre = "Planifiées"
Else
leFiltre = "Annulées"
End If
'alimente la listbox
Dim col As Byte
Dim lign As Long, drlig As Long
If Cb = "" Then Exit Function
ListBox2.Clear
With Sheets("formations")
drlig = .Range("A" & Rows.Count).End(xlUp).Row
If leFiltre = "Toutes" Then
For lign = 1 To drlig
If .Cells(lign, 2) = Cb Then
ListBox2.AddItem .Cells(lign, 1)
For col = 1 To 9
If col = 7 Then
ListBox2.List(ListBox2.ListCount - 1, col) = .Cells(lign, 23)
Else
ListBox2.List(ListBox2.ListCount - 1, col) = .Cells(lign, col + 1)
End If
Next col
End If
Next lign
Else
For lign = 1 To drlig
If .Cells(lign, 2) = Cb And .Cells(lign, 'METTRE ICI LE N° DE LA COLONNE DANS LAQUELLE SE TROUVE LE FILTRE') = leFiltre Then
ListBox2.AddItem .Cells(lign, 1)
For col = 1 To 9
If col = 7 Then
ListBox2.List(ListBox2.ListCount - 1, col) = .Cells(lign, 23)
Else
ListBox2.List(ListBox2.ListCount - 1, col) = .Cells(lign, col + 1)
End If
Next col
End If
Next lign
End If
End With
End Function |
Partager