Tri dans combobox à 2 colonnes

Question

Bonjour à tous, j'ai fait évoluer mon code de combobox pour afficher 2 colonnes et ça marche super ! sauf que j'avais oublié que j'avais aussi un autre code qui me fait un tri par ordre croissant dans la première colonne du combobox. Résultat, le tri se fait bien mais je n'ai plus la bonne correspondance entre premiere et deuxieme colonne de la combobox ! comment faire évoluer le code pour regler se problème et prendre en compte la présence de cette deuxième colonne lorsque j'effectue ce tri ?

Merci par avance pour vos contributions ...

  For Each c In f.Range("A2:A" & f.Range("A" & Rows.Count).End(xlUp).Row)
     If Me.ComboBox1 = c And Me.ComboBox2 = c.Offset(, 1) Then
    Me.ComboBox3.AddItem (c.Offset(, 2).Value)                                      'premiere colonne immatriculation
    Me.ComboBox3.List(Me.ComboBox3.ListCount - 1, 1) = (c.Offset(, 21).Value)        'deuxième colonne désignation
     End If
  Next c

  Me.ComboBox3 = ""

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

pijaku · Accepted Answer

Peut-être : With ComboBox3 For i = 0 To .ListCount - 1 For j = 0 To .ListCount - 1 If .List(i) &lt; .List(j) Then strTemp = .List(i) strTemp2 = .List(i, 1) .List(i) = .List(j) .List(i, 1) = .List(j, 1) .List(j) = strTemp .List(j, 1) = strTemp2 End If Next j Next i End With...