SmartFAQ is developed by The SmartFactory (http://www.smartfactory.ca), a division of InBox Solutions (http://www.inboxsolutions.net)

[VBA] Comment obtenir le tri alphabétique des onglets ?

Q&R publiée par MyDearFriend! le 29-11-2007 (5523 Lectures)

Voici une façon de faire...

Dans un module de code Standard (exemple : Module1) :

DANS UN MODULE DE CODE STANDARD
Option Explicit
Option Compare Text
 
Sub TriOnglets()
'myDearFriend! - www.mdf-xlpages.com
Dim F As Worksheet, F2 As Worksheet
Application.ScreenUpdating = False
For Each F In Worksheets
For Each F2 In Worksheets
If F2.Name < F.Name Then F2.Move Before:=F
Next F2
Next F
Application.ScreenUpdating = True
End Sub

 


  Imprimer la Q&R Envoyer la Q&R