Private Sub UserForm_Activate()
Dim Te(), Ts(), Le&, Ls&, C&, TLgnFlt() As Long
'mettre mon user form en pleine écran
Me.StartUpPosition = 3
Me.Width = Application.Width
Me.Height = Application.Height
Me.Left = 0
Me.Top = 0
Te = Feuil1.[A3].Resize(Feuil1.[A60000].End(xlUp).Row - 2, 10).Value ' Affecte au tableau Te la valeur de la plage _
commençant à la cellule A3 de la feuille Excel représenté par l'objet Worksheet nommé Feuil1 dans la rubrique _
Microsoft Excel Objets du projet VBA, pour un nombre de ligne égal au numéro de la dernière cellule non vide au _
dessus de la A60000 diminué de 2 (en effet 2 lignes sont sautées quand on commence à la 3), et pour 10 colonnes.
ReDim TLgnFlt(1 To UBound(Te))
For Le = 1 To UBound(Te)
If IsNumeric(Te(Le, 10)) Then Te(Le, 10) = CDbl(Te(Le, 10)) '///ajout
If Not IsEmpty(Te(Le, 10)) Then Ls = Ls + 1: TLgnFlt(Ls) = Le
Next Le
ReDim Preserve TLgnFlt(1 To Ls)
ReDim Ts(1 To Ls, 1 To 5)
With New TableIndex
.Réinit TLgnFlt
While .Actif: .BInfA = Te(.B, 10) < Te(.A, 10): Wend ' Voir plus haut ce que content Te
Ls = 0
.Parcourir
While .Actif: Le = .Suivant: Ls = Ls + 1: ' Voir module de classe TableIndex
For C = 1 To 5: Ts(Ls, C) = Te(Le, Choose(C, 2, 3, 7, 9, 10))
Next C: Wend: End With
Me.ListBox1.List = Ts
End Sub