Discussion :

[nath-0-0]

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 :

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

[ESVBA]

Deux pistes :

1) c'est pas très logique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cell In Worksheets("Listes").Range("A3").End(xlUp).Row

donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Tableau(i) = .Row  Then

2) Que "A1" à "A3" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cell In Worksheets("Listes").Range("A3").End(xlUp).Row

3) pas faux, mais...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Tableau(1) = Cells(1, 1)

ESVBA