listbox à charger à l'initialisation
Bonjour,
Je souhaite charger une liste à l'init de ma form reprenant des valeurs d'une colonne d'une feuille dont voici le 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 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 51
|
Private Sub UserForm_Initialize()
Dim Cell As Range
Dim Tableau()
Dim TempTab As Variant
Dim i As Integer, j As Integer
Dim boolVerif As Boolean
'Dim Obj As control
'Définit le ComboBox à remplir
'Set Obj = Me.Controls("lstBoxContrats")
ReDim Tableau(1 To 1)
Tableau(1) = Cells(1, 1)
'Boucle sur les données de la colonne A, dans la Feuil1
For Each Cell In Worksheets("Listes").Range("A3").End(xlUp).Row
boolVerif = False
'Vérifie si le contenu de la cellule existe déjà dans le tableau
For i = 1 To UBound(Tableau)
'Si la donnée existe déjà dans le tableau
If Tableau(i) = Cell Then
boolVerif = True
Exit For
End If
Next i
'Si la donnée n'existe pas dans le tableau, on augmente la taille du tableau
'et on ajoute la donnée.
If boolVerif = False Then
ReDim Preserve Tableau(1 To UBound(Tableau) + 1)
Tableau(UBound(Tableau)) = Cell
End If
'Tri le contenu du tableau par ordre croissant.
For i = 1 To UBound(Tableau)
For j = 1 To UBound(Tableau)
If Tableau(i) < Tableau(j) Then
TempTab = Tableau(i)
Tableau(i) = Tableau(j)
Tableau(j) = TempTab
End If
Next j
Next i
Next Cell
'Alimente le ComboBox
lstBoxContrats.List = Tableau
End Sub |
eh bein cela ne fonctionne pas, j'ai une erreur :objet requis.
Apparemment la ligne pour la première boucle pose déjà problème
Merci
Nath