Voici comment classer vos tables par ordre alphabétique
Trier les données par ordre alphabétique dans vos listes ne pose aucun problème. Mais comment s'y prendre quand on veut ranger les feuilles de calcul par ordre alphabétique selon leurs noms ?
L'illustration suivante montre un registre de feuilles avec une série de feuilles de calcul. Ils doivent être triés par ordre alphabétique afin qu'ils soient plus faciles à trouver.
3
Avec quelques feuilles, vous pouvez faire le travail manuellement de manière fiable. Avec de nombreuses feuilles, cela devient rapidement difficile, long et déroutant. La macro suivante vous aidera davantage :
Sous SortBlaetter ()
Dim Zaehler1 comme entier, Zaehler2 comme entier
Dim Nom en tant que chaîne
Nom = ActiveSheet.Nom
Pour Zaehler1 = 1 Vers Worksheets.Count
Pour Zaehler2 = Zaehler1 Vers Worksheets.Count
Si UCase (Worksheets (Counter2) .Name) <UCase (Worksheets (Counter1) .Name) Then
Feuilles de travail (Zaehler2) .Déplacer avant : = Feuilles de travail (Zaehler1)
Fin si
Compteur suivant2, compteur1
Feuilles de travail (Nom) .Activer
Fin du sous-marin
La macro trie les feuilles de calcul du classeur actif par ordre alphabétique croissant. La figure suivante montre à quoi ressemble l'exemple de classeur après avoir démarré la macro :
Astuce : Si vous souhaitez savoir comment saisir et démarrer des macros dans Excel, vous trouverez une brève description ici : http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros-in-excel-ein.html
