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."
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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.
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.
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
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.
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.
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
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 !!!!
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
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é
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" a écrit dans le message de 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.
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" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news:%23v4bWLd5JHA.3860@TK2MSFTNGP05.phx.gbl...
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."
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" a écrit dans le message de 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
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" a écrit dans le message de 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.
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" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: %23v4bWLd5JHA.3860@TK2MSFTNGP05.phx.gbl...
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."
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" a écrit dans le message de 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."