Discussion :

[Esak59]

Bonjour à toutes et à tous.

Je me permet de solliciter votre aide pour un problème en VBA

J'ai crée une Userform avec des combobox que j'alimente par rapport à une base de données. Jusque là, aucuns problèmes, mais j'aimerais que mes liste déroulantes affichent les choix disponibles par ordre croissant. Je vous joint le code VBA de l'userform initialize ()

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
Option Base 1
Private Sub UserForm_Initialize()
Dim LastLig As Long, j As Long
Dim i As Byte
Dim ColCrit
 
ColCrit = Array(2, 3, 4, 6, 7, 8, 9, 13, 15, 18, 19, 20, 23, 26, 27)
With Sheets("bras")
    .AutoFilterMode = False                             
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row    
    For i = 1 To UBound(ColCrit)                                      
        For j = 2 To LastLig
            Me.Controls("ComboBox" & i).Value = .Cells(j, ColCrit(i)).Value
            If Me.Controls("ComboBox" & i).ListIndex = -1 Then Me.Controls("ComboBox" & i).AddItem .Cells(j, ColCrit(i)).Value
            Me.Controls("ComboBox" & i).ListIndex = -1
        Next j
    Next i
End With
End Sub

Merci d'avance pour votre aide . Et si possible pouvez vous m'expliquer à l'aide de commentaires dans le code, merci.

[MarcelG]

Bonjour,

Regarde dans la FAQ par ce lien

TRI

[Esak59]

Merci Marcel.

J'ai encore une question à poser : J'ai entré le code fourni avec le tutoriel mais, il me signale une erreur. Peut-être une erreur de code.
Je suis désole mais je suis vraiment débutant dans la programmation VBA et modifier un code déjà existant sans que l'on m'explique m'est un peu difficile pour avancer.

Merci à tous

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
 Private Sub UserForm_Initialize() 'Mise en forme de USF avec récupération des données sur la BDD
Dim LastLig As Long
Dim j As Long
Dim i As Byte
Dim n As Long
Dim ColCrit
Dim x As Integer, y As Integer
 
ColCrit = Array(4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 16, 17, 18, 19, 20, 21, 22, 23) ' n° de colonnes choisies pour le filtrage
 
With Sheets("bras")
    .AutoFilterMode = False
    LastLig = .Cells(.Rows.Count, 4).End(xlUp).Row 
    For i = 1 To UBound(ColCrit) 
        For j = 4 To LastLig 
            Me.Controls("ComboBox" & i).Value = .Cells(j, ColCrit(i)).Value
            If Me.Controls("ComboBox" & i).ListIndex = -1 Then Me.Controls("ComboBox" & i).AddItem .Cells(j, ColCrit(i)).Value
            Me.Controls("ComboBox" & i).ListIndex = -1
        Next j 
    Next i
     End With
 
    For x = 0 To .ListCount - 1
            For y = 0 To .ListCount - 1
                If .List(x) < .List(y) Then
                    strTemp = .List(x)
                    .List(x) = .List(y)
                    .List(y) = strTemp
                End If
            Next y
        Next x
    End With
End Sub

[MarcelG]

Bonsoir,

Quand tu postes au sujet d'une erreur, il vaut mieux
- indiquer la ligne de code en ereur (surbrillance)
- donner le message d'erreur.

Pas grave du tout.

Il te manque une déclaration

Code :

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

 With Feuil1.ComboBox1

Adapté à ton code, cela donne (je te conseille, du moins au début, de séparer les commandes à l'intérieur de ta procédure pour plus de clarté)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For i = 1 To UBound(ColCrit)
        With Me.Controls("ComboBox" & i)
                For x = 0 To .ListCount - 1
                        For y = 0 To .ListCount - 1
                                If .List(x) < .List(y) Then
                                        strTemp = .List(x)
                                        .List(x) = .List(y)
                                        .List(y) = strTemp
                                End If
                        Next y
                Next x
        End With
Next i

Pour chaque item (List) de chaque combobox(i), ici, tu compares l'une vec la suivante. Si celle-ci lui est inférieure, tu inverses les item en t'aidant d'une valeur temporaire "strtemp".

[Esak59]

Merci pour ces explications claires et nettes Marcel, ça fonctionne très bien.

Je te remercie. J'ai compris comment faire et comment cela fonctionne, et ça c'est le but de l'apprentissage.

Merci encore et bonne continuation.