Bonjour,

J'ai un soucis dans mon code et j'arrive pas à voir pourquoi. A vrai dire je débute en VBA

J'arrive pas à afficher plus de 10 (j'en ai 55 à afficher) éléments dans le tableau. (sous forme de listbox )
voila mon bout de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Private Sub UserForm_Activate()
'Dim Largeur As String
'    'Création de l'instance de la feuille "Données1" afin
'    'FL1 sera utilisé dans toutes les procédures
'    Set FL1 = Worksheets("Feuil1")
'    'Fixe la largeur de colonnes des 13 colonnes "utiles"
'    Largeur = "80;60;60;100;50"
'    Me.ListBoxParquet.ColumnWidths = Largeur
'
'    initialisation ("")
'    Rechercher "", 0
'End Sub
'
''Renseigne le combo ListBoxParquet
'Sub initialisation(Critere As String)
'Dim Tablo() As Variant, Plage As Variant, Cell As Range, Solde As Range
'Dim NoLig As Long, NoCol As Integer
'    If Critere = "" Then 'Signifie qu'on initialise le combo
'        'Utilise la totalité de la plage de données
'        If FL1.FilterMode = True Then FL1.Cells.AutoFilter
'        Plage = FL1.UsedRange.SpecialCells(xlCellTypeVisible).Value
'        Me.ListBoxParquet.Clear
'        Me.ListBoxParquet.List() = Plage
Autres questions:
j'arrive pas à filtrer et lorsque j'ai mis les filtres à partir du comboBox la listBox affiche que des brouillons :p

Merci par avance de votre aide

voila le tableau avec lequel je travaille
BET 2013.xlsx