Macro liste alphabétique à partir de 4 feuilles

Bonjour à tous,

J'ai trouvé et adapté une macro permettant de faire une liste classée par ordre alphabétique sur la feuille "Présences B-J1", à partir de 2 feuilles ("Benjamines" et "Benjamins") et sous 2 conditions ("E1" dans la colonne D ET "OUI" dans la colonne G).

Tout fonctionne bien (par miracle !!) mais quand j'essaie de créer une liste similaire à partir de 4 feuilles cette fois-ci ("Minimes FILLES", "Minimes GARÇONS", "Cadettes" et "Cadets"), la sous-liste des cadettes et cadets écrase la sous-liste des minimes filles et garçons.

S'il-vous-plaît, quelqu'un peut-il me venir en aide pour que les 2 sous-listes se suivent (minimes filles, puis minimes garçons, puis cadettes puis cadets)..? Je joins le fichier pour plus de clarté.

Merci d'avance pour votre aide si précieuse pour des débutants comme moi...

Laurent

Bonjour,

On va se contenter de la modif minimum... dans BilanMCJ1_E1 :

'Cadette
m = k + m

Tu ajoutes cette ligne à cet endroit.

Dans le traitement de Cadette, tu fais également les ajouts suivants :

      With Sheets("Présences MC-J1")
        .Range("a3").Offset(m).Resize(k, 3) = source
        .Range("a3").Offset(m).Resize(k, 3).Sort key1:=.Range("a3"), order1:=xlAscending, Header:=xlNo
        .Range("a3").Offset(m).Resize(k, 3).Interior.Color = RGB(255, 133, 238)
      End With

Et dernier ajout :

'Cadet
k = m + k

à cet endroit.

Cordialement.

Rebonjour à tous,

MFerrand, un énorme merci pour ton temps et ton expertise !!

Tes mini modifs fonctionnent un max !!

Bonne continuation et encore merciiiiiiiiii à MFerrand et au forum en général.

Laurent