Tri de liste

bonjour le Djé,

tu peux essayer ceci :

-------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Dim num As Integer, indice As Integer, I As Integer, J As Integer
Dim mini As String
num = Worksheets.Count
ReDim TbloAlpha(num)
ReDim tmp(num)

For I = 1 To num
tmp(I) = Sheets(I).Name
Next
For I = 1 To num
mini = tmp(I): indice = I
For J = I To num
If tmp(J) < mini Then
mini = tmp(J): indice = J

End If
Next

TbloAlpha(I) = mini
tmp(indice) = tmp(I)
Next
For I = 1 To num
If TbloAlpha(I) <> "Récap" Then
ComboBox1.AddItem TbloAlpha(I)
End If
Next

End Sub
-------------------------------------------------------------------------

amicalement

Resolu : Tri de liste

Un seul mot :

Magnifique !

De plus, ça m'a appris plein de choses, merci beaucoup !

Le Djé

de rien Le Djé,

je suis heureux d'avoir pu t'aider,


amicalement