Discussion :

[lumpys]

Bonjour,

J'ai réalisé un formulaire dans lequel j'ai créé une zone de liste qui après sélection dans celle-ci permet d'afficher le contenu des autres champs du formulaires. Son contenu reprend les éléments de la colonne B, hors ce contenu n'est pas classé par ordre alphabétique. Je ne peux pas le faire depuis la feuille car celle-ci doit rester classée d'après un autre critère.

Savez-vous s'il est possible de faire en sorte que l'affichage de la zone de liste se fasse par ordre alphabétique sans affecter l'ordre dans la feuille Excel ?

Ci-dessous le code qui me permet d'afficher le contenu de la zone de liste :

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
Private Sub Nom_Change()
 
    If Stop_Event = True Then Exit Sub
 
    If Nom.ListIndex = -1 Then Exit Sub
 
    Stop_Event = True
 
    NumOrdre.ListIndex = Nom.ListIndex 'N° ordre est dans la colonne A
 
    Ligne = Nom.ListIndex + 2
 
    Call AffecterValeurs
 
    Stop_Event = False
 
End Sub

[Gado2600]

Bonjour,

J'ai eu à le faire une fois et ce que j'ai fait c'est :
Copier les données concernées dans une nouvelle feuille
Appliquer le tri dont j'ai besoin dans cette nouvelle feuille
Alimenter ta liste en fonction de
Supprimer ta feuille

Option 2 :
Tu récupères tes données dans un tableau numérique et tu le tri via une fonction. (il existe des codes sur le net pour cela si besoin)

Cordialement,

[lumpys]

J'ai finalement trouvé ce que je cherchais sur le site suivant :

http://boisgontierjacques.free.fr/pa...lairebases.htm

(voir recherche par nom + prénom)

Merci

[Sebphyto]

il y avait ceci aussi:

Comment trier le contenu d'un ComboBox par ordre alphabétique ?

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
Sub TriAlpha_ComboBox()
    Dim i As Integer, j As Integer
    Dim strTemp As String
 
    'Supprime le contenu du ComboBox
    Feuil1.ComboBox1.Clear
    'Alimente le ComboBox
    Feuil1.ComboBox1.List() = Array("mimi", "nono", "bibi", "fifi", "lolo")
 
 
    'Tri le contenu du ComboBox par ordre alphabétique
    With Feuil1.ComboBox1
        For i = 0 To .ListCount - 1
            For j = 0 To .ListCount - 1
                If .List(i) < .List(j) Then
                    strTemp = .List(i)
                    .List(i) = .List(j)
                    .List(j) = strTemp
                End If
            Next j
        Next i
    End With
End Sub

lien vers la source

A+

[boisgontierjacques]

Bonsoir,

Exemple de ce qu'il ne faut surtout pas faire. C'est la méthode la +lente que l'on puisse imaginer:
1- Algorithme de tri le plus lent qui existe (essayer avec 10.000 items)
2 -Trier directement dans un combobox est beaucoup + lent qu'un tri dans un Array

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
 
Sub TriAlpha_ComboBox()
    Dim i As Integer, j As Integer
    Dim strTemp As String
 
    'Supprime le contenu du ComboBox
    Feuil1.ComboBox1.Clear
    'Alimente le ComboBox
    Feuil1.ComboBox1.List() = Array("mimi", "nono", "bibi", "fifi", "lolo")
 
 
    'Tri le contenu du ComboBox par ordre alphabétique
    With Feuil1.ComboBox1
        For i = 0 To .ListCount - 1
            For j = 0 To .ListCount - 1
                If .List(i) < .List(j) Then
                    strTemp = .List(i)
                    .List(i) = .List(j)
                    .List(j) = strTemp
                End If
            Next j
        Next i
    End With
End Sub

Jacques Boisgontier