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
GVentre
Bonjour Appbourse,
essai ceci:
Sub TrierOnglet() Dim I As Integer, J As Integer, K As Integer Application.ScreenUpdating = False For I = 1 To Sheets.Count J = I For K = I + 1 To Sheets.Count If Sheets(K).Name < Sheets(J).Name Then J = K Next K If J <> I Then Sheets(J).Move Sheets(I) Next I End Sub
Cordialement, GVentre
J'ai 60 feuilles excel dans un ficher et je dois les trier par odre numérique, comment puis-je faire ? Merci d'avance
Bonjour Appbourse,
essai ceci:
Sub TrierOnglet()
Dim I As Integer, J As Integer, K As Integer
Application.ScreenUpdating = False
For I = 1 To Sheets.Count
J = I
For K = I + 1 To Sheets.Count
If Sheets(K).Name < Sheets(J).Name Then J = K
Next K
If J <> I Then Sheets(J).Move Sheets(I)
Next I
End Sub
Cordialement,
GVentre
J'ai 60 feuilles excel dans un ficher et je dois les trier par odre
numérique, comment puis-je faire ?
Merci d'avance
Sub TrierOnglet() Dim I As Integer, J As Integer, K As Integer Application.ScreenUpdating = False For I = 1 To Sheets.Count J = I For K = I + 1 To Sheets.Count If Sheets(K).Name < Sheets(J).Name Then J = K Next K If J <> I Then Sheets(J).Move Sheets(I) Next I End Sub
Cordialement, GVentre
J'ai 60 feuilles excel dans un ficher et je dois les trier par odre numérique, comment puis-je faire ? Merci d'avance
