Table des matières
La routine suivante triera les feuilles d'un classeur par ordre alphabétique. Le drapeau "Sort_Mode_Descending" peut être basculé entre descendant et ascendant selon les besoins. La routine est INSENSIBLE à la casse.
| 1234567891011121314151617181920212223 | Sous-Sor_Feuilles()Dim Sort_Mode_Descending As BooleanDim No_of_Sheets en tant qu'entierDim Outer_Loop en tant qu'entierDim Inner_Loop en tant qu'entierNo_of_Sheets = Sheets.Count'Changer d'indicateur selon le casSort_Mode_Descending = FauxPour Outer_Loop = 1 To No_of_SheetsPour Inner_Loop = 1 à Outer_LoopSi Sort_Mode_Descending = True AlorsSi UCase(Sheets(Outer_Loop).Name) > UCase(Sheets(Inner_Loop).Name) AlorsSheets(Outer_Loop).Déplacer avant :=Sheets(Inner_Loop)Fin siFin siSi Sort_Mode_Descending = False AlorsSi UCase(Sheets(Outer_Loop).Name) < UCase(Sheets(Inner_Loop).Name) AlorsSheets(Outer_Loop).Déplacer avant :=Sheets(Inner_Loop)Fin siFin siBoucle_interne suivanteBoucle_extérieure suivante |
Pour télécharger le fichier .XLSM de cet article, cliquez ici.
