Merci beaucoup à tous ceux qui m'ont permi d'avancer pour le tri des
onglets.
Je désire trier les onglets par ordre alpha, mais cette fois ci uniquement
d'un onglet à l'autre en laissant les extrémités non triés.
Par exemple: les onglets de A à Z, je souhaite trier de C à L.
Merci beaucoup.
Patrick.
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
Hervé
Salut Crel, Il te suffit de paramétrer les compteurs de boucles : Private Sub TriOnglets() Dim I As Integer Dim J As Integer Dim Prem As Integer Dim Der As Integer
Prem = 3 Der = Sheets.Count - 11 For I = Prem To Der For J = I + 1 To Der If Sheets(J).Name < Sheets(I).Name Then Sheets(J).Move Sheets(I) End If Next J Next I End Sub
Hervé.
"Crel" a écrit dans le message news:
Merci beaucoup à tous ceux qui m'ont permi d'avancer pour le tri des onglets. Je désire trier les onglets par ordre alpha, mais cette fois ci uniquement d'un onglet à l'autre en laissant les extrémités non triés. Par exemple: les onglets de A à Z, je souhaite trier de C à L. Merci beaucoup. Patrick.
Salut Crel,
Il te suffit de paramétrer les compteurs de boucles :
Private Sub TriOnglets()
Dim I As Integer
Dim J As Integer
Dim Prem As Integer
Dim Der As Integer
Prem = 3
Der = Sheets.Count - 11
For I = Prem To Der
For J = I + 1 To Der
If Sheets(J).Name < Sheets(I).Name Then
Sheets(J).Move Sheets(I)
End If
Next J
Next I
End Sub
Hervé.
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le message news:
OVdsdprVDHA.1676@TK2MSFTNGP10.phx.gbl...
Merci beaucoup à tous ceux qui m'ont permi d'avancer pour le tri des
onglets.
Je désire trier les onglets par ordre alpha, mais cette fois ci uniquement
d'un onglet à l'autre en laissant les extrémités non triés.
Par exemple: les onglets de A à Z, je souhaite trier de C à L.
Merci beaucoup.
Patrick.
Salut Crel, Il te suffit de paramétrer les compteurs de boucles : Private Sub TriOnglets() Dim I As Integer Dim J As Integer Dim Prem As Integer Dim Der As Integer
Prem = 3 Der = Sheets.Count - 11 For I = Prem To Der For J = I + 1 To Der If Sheets(J).Name < Sheets(I).Name Then Sheets(J).Move Sheets(I) End If Next J Next I End Sub
Hervé.
"Crel" a écrit dans le message news:
Merci beaucoup à tous ceux qui m'ont permi d'avancer pour le tri des onglets. Je désire trier les onglets par ordre alpha, mais cette fois ci uniquement d'un onglet à l'autre en laissant les extrémités non triés. Par exemple: les onglets de A à Z, je souhaite trier de C à L. Merci beaucoup. Patrick.
Crel
Merci beaucoup Hervé, mais le pb c'est que j'insére régulièrement des feuilles.
"Hervé" a écrit dans le message de news: O$m$
Salut Crel, Il te suffit de paramétrer les compteurs de boucles : Private Sub TriOnglets() Dim I As Integer Dim J As Integer Dim Prem As Integer Dim Der As Integer
Prem = 3 Der = Sheets.Count - 11 For I = Prem To Der For J = I + 1 To Der If Sheets(J).Name < Sheets(I).Name Then Sheets(J).Move Sheets(I) End If Next J Next I End Sub
Hervé.
"Crel" a écrit dans le message news:
Merci beaucoup à tous ceux qui m'ont permi d'avancer pour le tri des onglets. Je désire trier les onglets par ordre alpha, mais cette fois ci uniquement
d'un onglet à l'autre en laissant les extrémités non triés. Par exemple: les onglets de A à Z, je souhaite trier de C à L. Merci beaucoup. Patrick.
Merci beaucoup Hervé, mais le pb c'est que j'insére régulièrement des
feuilles.
"Hervé" <hmsilve@wanadoo.fr> a écrit dans le message de news:
O$m$62sVDHA.1984@TK2MSFTNGP11.phx.gbl...
Salut Crel,
Il te suffit de paramétrer les compteurs de boucles :
Private Sub TriOnglets()
Dim I As Integer
Dim J As Integer
Dim Prem As Integer
Dim Der As Integer
Prem = 3
Der = Sheets.Count - 11
For I = Prem To Der
For J = I + 1 To Der
If Sheets(J).Name < Sheets(I).Name Then
Sheets(J).Move Sheets(I)
End If
Next J
Next I
End Sub
Hervé.
"Crel" <nospam-mouedra@club-internet.fr> a écrit dans le message news:
OVdsdprVDHA.1676@TK2MSFTNGP10.phx.gbl...
Merci beaucoup à tous ceux qui m'ont permi d'avancer pour le tri des
onglets.
Je désire trier les onglets par ordre alpha, mais cette fois ci
uniquement
d'un onglet à l'autre en laissant les extrémités non triés.
Par exemple: les onglets de A à Z, je souhaite trier de C à L.
Merci beaucoup.
Patrick.
Merci beaucoup Hervé, mais le pb c'est que j'insére régulièrement des feuilles.
"Hervé" a écrit dans le message de news: O$m$
Salut Crel, Il te suffit de paramétrer les compteurs de boucles : Private Sub TriOnglets() Dim I As Integer Dim J As Integer Dim Prem As Integer Dim Der As Integer
Prem = 3 Der = Sheets.Count - 11 For I = Prem To Der For J = I + 1 To Der If Sheets(J).Name < Sheets(I).Name Then Sheets(J).Move Sheets(I) End If Next J Next I End Sub
Hervé.
"Crel" a écrit dans le message news:
Merci beaucoup à tous ceux qui m'ont permi d'avancer pour le tri des onglets. Je désire trier les onglets par ordre alpha, mais cette fois ci uniquement
d'un onglet à l'autre en laissant les extrémités non triés. Par exemple: les onglets de A à Z, je souhaite trier de C à L. Merci beaucoup. Patrick.