MACRO POUR TRIER LES FEUILLES D'UN CLASSEUR EXCEL
coquilledepapillon
Messages postés
3
Date d'inscription
mercredi 24 septembre 2003
Statut
Membre
Dernière intervention
18 février 2004
-
3 déc. 2003 à 17:17
jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 - 6 nov. 2013 à 11:58
jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 - 6 nov. 2013 à 11:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2192-macro-pour-trier-les-feuilles-d-un-classeur-excel
https://codes-sources.commentcamarche.net/source/2192-macro-pour-trier-les-feuilles-d-un-classeur-excel
6 nov. 2013 à 11:58
Si tu as des questions, passe par le forum directement plutôt que de les mettre dans les commentaires d'une source...
http://codes-sources.commentcamarche.net/forum/vba-office-excel-word-1774
Pense à lire la charte du forum avant :
http://codes-sources.commentcamarche.net/contents/11-charte-de-commentcamarche-net-conseils-d-ecriture
Cordialement,
Jordane
6 nov. 2013 à 11:35
14 avril 2011 à 16:40
15 déc. 2009 à 12:43
Je vous propose également le code suivant, je pense que c'est le plus court qu'il soit.
Sub Macro1()
For i = 1 To Worksheets.Count
For j = i + 1 To Worksheets.Count
If Worksheets(i).Name > Worksheets(j).Name Then
Worksheets(j).Move Sheets(i)
End If
Next j
Next i
End Sub
3 déc. 2003 à 17:17
J'ai pour habitude de ne consulter que le site, mais là, je me lance en te proposant une autre macro qui trie les onglets.
Sub trieonglet()
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
ActiveSheet.Name = "ZZZ"
Dim i As Integer
Dim j As Integer
i = 1
j = Sheets.Count
For i = 1 To j
Cells(i, 1).Value = Sheets(i).Name
Next i
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For i = 1 To j - 1
Sheets(Sheets("zzz").Cells(i, 1).Value).Move before:=Sheets(i)
Next i
Application.SendKeys ("~")
Sheets("ZZZ").Delete
End Sub