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 |
Partager