Soyez le premier à donner votre avis sur cette source.
Snippet vu 28 299 fois - Téléchargée 47 fois
Sub Macro1() Dim i As integer For i = 2 To Worksheets.Count Cells(i - 1, 1) = Worksheets(i).Name Next i Range("A1").Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom For i = Worksheets.Count To 2 Step -1 a = Sheets("Sommaire").Cells(i - 1, 1) Sheets(a).Move after:=Sheets(i) Next i Sheets("Sommaire").Select End Sub
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.