|
|
|
|
Configuration: Windows XP Firefox 2.0.0.6
Bonjour,
Rouler cette macro !
Sub TrierOnglets()
Dim Boucle As Integer, Compteur As Integer
For Boucle = 1 To Sheets.Count
For Compteur = 1 To (Boucle - 1)
If (UCase(Sheets(Boucle).Name) < UCase(Sheets(Compteur).Name)) Then
Sheets(Boucle).Move before:=Sheets(Compteur)
Exit For
End If
Next Compteur
Next Boucle
End Sub
'
Lupin |
Bonjour!
c'est exactement ce que je cherchais!!! merci beaucoup |