Effectifs de classe sur plusieurs feuilles

Bonjour,
Merci pour ta réponse,
mais rien ne se passe quand je lance le code... :(
Bonne journée

Bonjour et merci pour ta réponse. Ca marche super bien.
Par contre, si je veux ajouter d'autres colonnes pour rentrer d'autres données, comment faire pour qu'elles soient aussi prises en compte dans les feuilles?
Et est-il possible de faire en sorte que, dans les feuilles, les élèves soient triés dans l'ordre alphabétique de leur adresse?
Par ailleurs, quand j'ouvre le développeur, je ne vois que les macros qui concernent les CE2. Je ne vois pas ce qu'il faut faire pour voir les autres?
Merci et bonne journée!

C'était bien à toi M-12 que je répondais. ;)
Encore merci.
Je te rejoins mon fichier complet (j'ai enlevé les données confidentielles) :
https://www.cjoint.com/c/KIimO4Pm07c
J'aimerais qu'on mette dans la feuille 2 (1CA) tous les élèves qui ont niveau "1CA" de la colonne H. Feuille 3 (1CB), ceux de 1CB, etc... jusque 2CF. Et en les triant par ordre alphabétique du nom de famille à chaque fois.
Ensuite, j'aimerais qu'on mette dans la feuille "flûte" tous les élèves qui sont inscrits en "flûte" de la colonne (I), puis tous ceux de saxophone dans la feuille "saxophone", etc... Et en les triant par ordre de niveau (colonne J).
Voilà exactement ce que j'attends... Désolé d'avoir fait en plusieurs fois, mais je pensais que ce serait plus simple........
Bonne journée

Je t'avais donné une base de travail, mais cela n'a pas eu l'air de t'intéresser!

je retente la chose avec les classes. Il te suffira de l'adapter pour les instruments de musique

a mettre dans un module:

Option Explicit
Sub boucleclasse()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim DerniereLigneUtilisee As Long
    Set FL1 = Worksheets("GLOBAL")
    NoCol = 8 'lecture de la colonne H
    For NoLig = 3 To Split(FL1.UsedRange.Address, "$")(4)
     Var = FL1.Cells(NoLig, NoCol)
        Select Case Var
        Case Is = "1CA"
        DerniereLigneUtilisee = Worksheets("FM1CA").Range("A" & Rows.Count).End(xlUp).Row + 1
       FL1.Range("A" & NoLig & ":AR" & NoLig).Copy _
    Destination:=Worksheets("FM1CA").Range("A" & DerniereLigneUtilisee)
        Case Is = "1CB"
              DerniereLigneUtilisee = Worksheets("FM1CB").Range("A" & Rows.Count).End(xlUp).Row + 1
        FL1.Range("A" & NoLig & ":AR" & NoLig).Copy _
    Destination:=Worksheets("FM1CB").Range("A" & DerniereLigneUtilisee)
        Case Is = "1CC"
              DerniereLigneUtilisee = Worksheets("FM1CC").Range("A" & Rows.Count).End(xlUp).Row + 1
        FL1.Range("A" & NoLig & ":AR" & NoLig).Copy _
    Destination:=Worksheets("FM1CC").Range("A" & DerniereLigneUtilisee)
        Case Is = "1CF"
        DerniereLigneUtilisee = Worksheets("FM1CF").Range("A" & Rows.Count).End(xlUp).Row + 1
       FL1.Range("A" & NoLig & ":AR" & NoLig).Copy _
    Destination:=Worksheets("FM1CF").Range("A" & DerniereLigneUtilisee)
        Case Is = "2CA"
              DerniereLigneUtilisee = Worksheets("FM2CA").Range("A" & Rows.Count).End(xlUp).Row + 1
        FL1.Range("A" & NoLig & ":AR" & NoLig).Copy _
    Destination:=Worksheets("FM2CA").Range("A" & DerniereLigneUtilisee)
        Case Is = "2CB"
              DerniereLigneUtilisee = Worksheets("FM2CB").Range("A" & Rows.Count).End(xlUp).Row + 1
        FL1.Range("A" & NoLig & ":AR" & NoLig).Copy _
    Destination:=Worksheets("FM2CB").Range("A" & DerniereLigneUtilisee)
        End Select
    Next
    Set FL1 = Nothing
    tri ("FM1CA")
    tri ("FM1CB")
    tri ("FM1CC")
    tri ("FM1CF")
    tri ("FM2CA")
    tri ("FM2CB")
End Sub
Sub tri(ByVal feuille As String)
ActiveWorkbook.Worksheets(feuille).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(feuille).Sort.SortFields.Add Key:=Range("A2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(feuille).Sort
        .SetRange Range("A2:AR82")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    End Sub

a associer à un bouton ou un raccourci clavier

nb changer A3 en A2 dans le tri

nb changer For NoLig = 2 en For NoLig = 3 dans boucleclasse

@+ Le Pivert

questions

pour la 1 ne pas en tenir compte, j'ai rectifié le code sur ce post

pour la 2 dans la macro tri, changer "A2" par "J2"

pour la 3 mettre ceci:

Sub reinitialiser(ByVal feuille As String)
 Worksheets(feuille).Range("A2:AR82").ClearContents
End Sub

et au début de la macro boucleclasse ceci:

Sub boucleclasse()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim DerniereLigneUtilisee As Long
    Set FL1 = Worksheets("GLOBAL")
    NoCol = 8 'lecture de la colonne H
    reinitialiser ("FM1CA")
    reinitialiser ("FM1CB")
    reinitialiser ("FM1CC")
    reinitialiser ("FM1CF")
    reinitialiser ("FM2CA")
    reinitialiser ("FM2CB")
    For NoLig = 3 To Split(FL1.UsedRange.Address, "$")(4)
     Var = FL1.Cells(NoLig, NoCol)
'et la suite

et enfin la 4 voir ceci:

https://fr.extendoffice.com/documents/excel/5102-excel-assign-hotkey-to-macro.html


Bon courage

@+ Le Pivert

Bonjour,

remplacer

For NoLig = 3 To Split(FL1.UsedRange.Address, "$")(4)

par
 
For NoLig = 3 To 110

@+ Le Pivert