[XL-2010] Macro VBA pour trier 35 onglets

salut,
j'ai pas lu ton code mais voici 2 qui fonctionnent de boisgontier

tri des onglets

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub tri_onglet()
    Dim a(256)
    n = Sheets.Count
    For i = 1 To n
        a(i) = Sheets(i).Name
    Next i
    '----  tri
    For i = 1 To n
        For j = i To n
            If a(j) < a(i) Then
                temp = a(j)
                a(j) = a(i)
                a(i) = temp
            End If
        Next j
    Next i
    '---
    For i = 1 To n
        Sheets(a(i)).Move before:=Sheets(i)
    Next i
    Sheets(1).Select
End Sub

sommaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub sommaire_hyper_lien()
    On Error Resume Next
    Err = 0
    Sheets("Accueil").Select
    If Err <> 0 Then
        Sheets.Add before:=Sheets(1)
        ActiveSheet.Name = "Accueil"
        ActiveSheet.Tab.ColorIndex = 3
        On Error GoTo 0
        Range("c4") = "Sommaire"
        ActiveWindow.DisplayGridlines = False
        Range("c4").Font.Bold = True
        Range("c4").Font.Size = 12
        Range("c4").Select
        Range("A1") = Date
        Range("c1").Select
    End If
    '--
    Range("c6").Select
    For i = 2 To Sheets.Count
        X = Sheets(i).Name
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & X & "'" & "!A1", TextToDisplay:=X
        ActiveCell.Offset(1, 0).Select
    Next i
End Sub