Sujet Précédent Sujet Suivant

Tri d'un combobox par ordre alphabétique

Fermé
LANGAZOU Messages postés 95 Date d'inscription vendredi 16 janvier 2015 Statut Membre Dernière intervention 8 novembre 2015 - Modifié par LANGAZOU le 4/02/2015 à 21:50
 greg - 16 sept. 2016 à 14:02
Bonjour, 

je voudrais trier par ordre alphabétique ma combobox. voici mon code:

Private Sub UserForm_Initialize()
 For i = 3 To Sheets("CD").Cells(3, 2).End(xlDown).Row
     Me.ComboBox2 = Sheets("CD").Cells(i, 2)      
     If Me.ComboBox2.ListIndex = -1 Then           
       Me.ComboBox2.AddItem Sheets("CD").Cells(i, 2)
     End If
  Next i

End sub


Merci pour votre réponse

2 réponses

Réponse 1 / 2
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
4 févr. 2015 à 22:10
Salut le Forum 

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

Mytå
0
Réponse 2 / 2
LANGAZOU Messages postés 95 Date d'inscription vendredi 16 janvier 2015 Statut Membre Dernière intervention 8 novembre 2015
4 févr. 2015 à 22:14
Merci pour votre réponse.

le problème c'est que suis débutant en VBA et j'ai pas su comment intégrer ton code sur le mien :/
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 949
5 févr. 2015 à 19:36
Re le Forum

Essaye avec ceci : 

Private Sub UserForm_Initialize()
    Dim i As Integer, j As Integer
    Dim strTemp As String

    Me.ComboBox2.Clear

    For i = 3 To Sheets("CD").Cells(3, 2).End(xlDown).Row
        Me.ComboBox2 = Sheets("CD").Cells(i, 2)
        If Me.ComboBox2.ListIndex = -1 Then
            Me.ComboBox2.AddItem Sheets("CD").Cells(i, 2)
        End If
    Next i

    'Tri le contenu du ComboBox par ordre alphabétique
    With Me.ComboBox2
        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

Mytå
0
greg
16 sept. 2016 à 14:02
Bonjour forumeurs,

Petite question bête mais.. cette macro permet elle de trier par ordre alphabétique ou par ordre croissant ???
0