Tri sur plusieurs feuilles d'un classeur

Oui il faut le faire 4 fois ;)

Bonjour

Impossible de trier sur 4 feuilles différentes sauf à composer une macro exprès pour
Mais est ce bien utile si tu n'as qu'une vingtaine de noms par feuille !
Copie plutôt les données des 4 feuilles les unes en dessous des autres sur une nouvelle feuille et tu fais trier toute cette liste, ça ira plus vite !

Cdlmnt

même avec 400 noms c'est plus rapide de tous les mettre sur une même feuille dans une même colonne et de trier !
Mais si tu veux une macro il faut savoir comment est ton fichier , il n 'y a qu'une ou plusieurs colonnes ? Sur chaque feuille les noms doivent être dans la même colonne
Où commence les données ? Y a-t-il une ligne de titre ?

Désolé pas pu envoyer mon fichier avant cause coupure Internet

La feuille Recap (à bien laisser en 1ere place) comporte un bouton qui lance la macro de récupération des infos des autres feuilles et fait le tri alphabétique
Tu peux ajouter autant de feuilles que tu veux et avec les noms que tu veux, même changer celui de Recap pourvu qu'elle reste en 1er

https://www.cjoint.com/?0KgcZz4sNg1

En espérant que c'est ce que tu voulais

Cdlmnt

Bonjour solene

le VBA Microsoft Office n'est pas compatible avec Openoffice donc normal que la macro ne confectionne pas sous Open ou Libre

voila la macro :

Sub recap()
a = 2
' recopie de toutes les feuilles dans recap
For n = 2 To Worksheets.Count - 1
DL = Sheets(n).Range("b" & Rows.Count).End(xlUp).Row
For t = 3 To DL
If Sheets(n).Cells(t, 2) <> "" Then
a = a + 1
For x = 1 To 8
Sheets(1).Cells(a, x) = Sheets(n).Cells(t, x)
Next x
End If
Next t
Next n
' tri alpha
Range("A2:H762").Select
ActiveWorkbook.Worksheets(1).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(1).Sort.SortFields.Add Key:=Range("B3:B762"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(1).Sort
.SetRange Range("A2:H762")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

Reprends ton fichier sous office 2000
fais Alt F11 pour ouvri l'éditeur de macro
puis Insertion et Module et dans le blance de la fenetre de droite tu colles tout le texte de la macro ci-dessus avant de fermer l'éditeur

Après tu peux activer la macro à partir de l'onglet Développeur et Executer

Cdlmnt

Bonsoir

J'ai vérifié il n'y a pas d'erreur !

Il faut bien que les 2 lignes soient à la suite

J'ai refais un copier-coller de la macro postée dans mon message précédent et ça fonctionne

Effaces tout et refais un copier-coller

Crdlmnt

Bonjour solene

Cela doit venir de ta version d'Excel, personnellement je n'ai pas d'erreur ! Donc difficile de dire à distance ce qui cloche Il faudrait quelqu'un de plus calé en VBA que moi pour te dire

Par contre ce que tu peux faire :
Tu supprimes dans la macro toutes les lignes depuis tri alpha jusquà End with
Et soit tu tries manuellement
soit si tu veux un tri automatique, avant de faire le tri manuel tu lances l'enregistreur de macro, et tu appelles ta macro par exemple trialpha, une fois le tri fait tu arrêtes l'enregistrement puis tu retourne dans la macro recap et à la place des lignes enlevées tu mets trialpha, ce qui lancera la macro enregistrée automatiquement à partir de récap

Cdlmnt

Bien content que tu aies pu résoudre ton problème

Bonne suite et bon réveillon !