Tri de liste

[Le Djé]

Bonjour le forum,

Je voudrais savoir s'il est possible de trier une liste par ordre alphabétique sachant que cette liste est alimentée par le nom de mes feuilles.

J'ai aussi une feuille "Récap" et je voudrais que celle-ci ne soit pas dans la liste.

ps : J'ai joint un classeur exemple

Merci de votre patience

Cordialement

Le Djé.

 

[OnErrorResumeNext]

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

 

[Le Djé]

Resolu : Tri de liste

Un seul mot :

Magnifique !

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

Le Djé

 

[OnErrorResumeNext]

de rien Le Djé,

je suis heureux d'avoir pu t'aider,


amicalement