Discussion :

[macat]

Bonjour,

Je souhaiterais classer uniquement les feuilles nommées (NOM PRENOM) par ordre alphabétique.
La première est nommée Récap, les suivantes sont nommées DD MM YY, et elles restent en place en premier.

En pas à pas je lis Next sans For Mais je ne sais pas ce que le code attend.

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
Sub TriChaqueFeuille()
Dim X As Variant
Dim I As Variant
Dim ws As Worksheets
'Trier par ordre alphabétique toutes les feuilles (nominatives)de ce fichier
'sauf la feuille "Récap" et les feuilles nommées numériques
 
For Each X In ActiveWorkbook.Sheets
For I = 2 To ActiveWorkbook.Sheets.Count
 
For Each ws In Worksheets
    If ws.Name <> "Récap" And Not IsNumeric(Left(ws.Name, 2)) Then
Next ws
If Sheets(I - 1).Name > Sheets(I).Name Then
Sheets(I - 1).Move After:=Sheets(I)
End If
Next
Next
End Sub

Merci de votre aide.

[aalex_38]

Vive l'indentation !!!!

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
Sub TriChaqueFeuille()
Dim X As Variant
Dim I As Variant
Dim ws As Worksheets
'Trier par ordre alphabétique toutes les feuilles (nominatives)de ce fichier
'sauf la feuille "Récap" et les feuilles nommées numériques
 
For Each X In ActiveWorkbook.Sheets
    For I = 2 To ActiveWorkbook.Sheets.Count
     
        For Each ws In Worksheets
            If ws.Name <> "Récap" And Not IsNumeric(Left(ws.Name, 2)) Then
'Il manque end if ici
        Next ws
        If Sheets(I - 1).Name > Sheets(I).Name Then
            Sheets(I - 1).Move After:=Sheets(I)
        End If
    Next
Next
End Sub

[Fvandermeulen]

Salut,

Vive l'indentation !!!!

Ca c'est bien vrai, mais je crois que tu as fais une petite coquille, n'est-ce pas après le 'Next ws' qu'il faut le 'End if '?



Sinon, une autre manière de voir...le If sur une ligne qui évite le 'End if'

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
Sub TriChaqueFeuille()
Dim X As Variant
Dim I As Variant
Dim ws As Worksheets
'Trier par ordre alphabétique toutes les feuilles (nominatives)de ce fichier
'sauf la feuille "Récap" et les feuilles nommées numériques
 
For Each X In ActiveWorkbook.Sheets
    For I = 2 To ActiveWorkbook.Sheets.Count
        For Each ws In Worksheets
            If ws.Name <> "Récap" And Not IsNumeric(Left(ws.Name, 2)) Then Resume Next
                If Sheets(I - 1).Name > Sheets(I).Name Then Sheets(I - 1).Move After:=Sheets(I)
        Next ws
    Next I
Next X
End Sub

A+

[macat]

Merci beaucoup

J’ai placé le Next If mais ce n’est pas mieux. Ensuite j’ai essayé avec le dernier code reçu mais toujours rien.

De plus le total ne se fait pas automatiquement sur la dernière personne. Je ne sais pas pourquoi non plus.

J’aimerais tellement « piger » tout ce qui est écrit. !!!

A+

[mercatog]

Avec la feuille Récap en première position , le code que j'ai proposé fonctionne, j'ai fais le test sur ton fichier

[macat]

Moi en pas à pas il me dit Erreur de compilation : procédure attendue, et non un variable.

De plus il y avait une erreur dans le nom du bouton trier, j'avais un "S" en trop

Je cherche toujours

Merci

[mercatog]

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
Dim K As Boolean
Dim I As Integer
 
K = True
Do While K
    K = False
    For I = 1 To ActiveWorkbook.Sheets.Count - 1
        If Sheets(I).Name <> "Récap" And Not IsNumeric(Left(Sheets(I).Name, 2)) Then
            If Sheets(I).Name > Sheets(I + 1).Name Then
                Sheets(I).Move After:=Sheets(I + 1)
                K = True
            End If
        End If
    Next I
Loop

je ferai ceci