Tri des feuilles

Le
Jacquouille
Bonjour
Je possède un fichier comprenant 130 feuilles.
J'aimerais que celles-ci soient classées par ordre alphabétique croissant.
(A à gauche et Z à droite) -)
Un grand merci à quiconque me dépannera.(Xl 2000)
Bonne fin de journée
Jacques.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #19492981
Bonjour.
Regarde là :
http://www.excelabo.net/trucs/tri_feuilles
Cordialement.
Daniel

Bonjour
Je possède un fichier comprenant 130 feuilles.
J'aimerais que celles-ci soient classées par ordre alphabétique croissant. (A
à gauche et Z à droite) -)
Un grand merci à quiconque me dépannera.(Xl 2000)
Bonne fin de journée
Jacques.


Daniel.C
Le #19493421
ou, plus rustique :

Sub TriDesFeuilles()
Dim sh As Worksheet
Application.ScreenUpdating = False
Sheets.Add.Name = "temp"
For Each sh In Sheets
If sh.Name <> "temp" Then
ctr = ctr + 1
Cells(ctr, 1) = sh.Name
End If
Next sh
[A:A].Sort Key1:=[A1]
With Sheets("temp")
For i = 1 To Sheets.Count - 1
Sheets(.Cells(i, 1).Value).Move after:=Sheets(i)
Next i
End With
Application.DisplayAlerts = False
Sheets("temp").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Daniel

Bonjour
Je possède un fichier comprenant 130 feuilles.
J'aimerais que celles-ci soient classées par ordre alphabétique croissant. (A
à gauche et Z à droite) -)
Un grand merci à quiconque me dépannera.(Xl 2000)
Bonne fin de journée
Jacques.


FFO
Le #19494361
Salut à toi

Crées toi une feuille "Classement" et dans une macro mets ce code :

Sheets("Classement").Columns("A:A").Clear
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Classement" Then
Sheets("Classement").Range("A65535").End(xlUp).Offset(1, 0) = Sheets(i).Name
End If
Next
Sheets("Classement").Range("A1", "A" &
Sheets("Classement").Range("A65535").End(xlUp).Row).Sort
Key1:=Sheets("Classement").Range("A1"), Order1:=xlAscending
i = 1
Do While i < Sheets("Classement").Range("A65535").End(xlUp).Offset(1, 0).Row
If i > 1 And Sheets("Classement").Range("A" & i) <> "" Then
Sheets(Sheets("Classement").Range("A" & i).Value).Move
After:=Sheets(Sheets("Classement").Range("A" & i - 1).Value)
End If
i = i + 1
Loop

Celà devrait convenir

Dis moi !!!!
Hervé
Le #19500471
Bonjour tout le monde,

Une de plus ? ;o)

Sub TriOnglets()

Dim I As Integer
Dim J As Integer

For I = 1 To Sheets.Count
For J = I + 1 To Sheets.Count
If Sheets(J).Name < Sheets(I).Name Then
Sheets(J).Move Sheets(I)
End If
Next J
Next I

End Sub

Hervé.

"Jacquouille" news:%
Bonjour
Je possède un fichier comprenant 130 feuilles.
J'aimerais que celles-ci soient classées par ordre alphabétique croissant.
(A à gauche et Z à droite) -)
Un grand merci à quiconque me dépannera.(Xl 2000)
Bonne fin de journée
Jacques.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.




Jacquouille
Le #19502601
Un grand merci à mes répondeurs-dépanneurs.
Cela va beaucoup plus vite que de les placer une à une à la main.
Bon WE à vous tous.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Jacquouille" news: %
Bonjour
Je possède un fichier comprenant 130 feuilles.
J'aimerais que celles-ci soient classées par ordre alphabétique croissant.
(A à gauche et Z à droite) -)
Un grand merci à quiconque me dépannera.(Xl 2000)
Bonne fin de journée
Jacques.

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.




Publicité
Poster une réponse
Anonyme