1 pièce(s) jointe(s)
Probléme remplissage d'une listbox et filtrage avec comboBox
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:
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
Pièce jointe 124138
