Discussion :

[Anna_2013]

Bonjour,

Je rencontre un problème pour modifier la syntaxe de la macro que j'ai créer pour trier plus de 35 onglets dans un fichier excel.

J'ai joint le code (Macro Trier les onglets) et les onglets à trier. Chaque onglet commence par NOTE puis un numéro lui est associé.

Pourriez vous svp m'aider à modifier la syntaxe. Je suis débutante sur VBA et j'ai essayé de la modifer mais cela ne fonctionne pas. D'autre part une page créant la liste des onglets devraient s'afficher mais cela ne fonctionne pas avc le nombre d'onglet.

Par avance merci pour votre aide,

Anna

[Oliv-]

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

tri des onglets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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