OVH Cloud OVH Cloud

Tri onglets

2 réponses
Avatar
philippe
Bonjour
j'ai un classeur avec une feuille accueil et d'autres feuilles crées au fil
de l'eau et j'ai cette macro pour trier mes onglets mais je voudrais
toujours avoir l'onglet "ACCUEIL" en tête pouvez-vous m'aider ?
Merci

Sub TriNomsOnglets()
Dim I As Integer, J As Integer
For I = 1 To Sheets.Count
For J = 1 To I - 1
If UCase(Sheets(I).Name) < UCase(Sheets(J).Name) Then
Sheets(I).Move Before:=Sheets(J)
Exit For
End If
Next J
Next I
End Sub

2 réponses

Avatar
jb
Ajouter à la fin:

Sheets("Accueil").Move Before:=Sheets(1)

JB

http://www.excelabo.net/compteclic.php?nom=jb-barreutilitaires
Avatar
philippe
Merci pour votre réponse si rapide. Cela marche
Cordialement
"jb" a écrit dans le message de news:

Ajouter à la fin:

Sheets("Accueil").Move Before:=Sheets(1)

JB

http://www.excelabo.net/compteclic.php?nom=jb-barreutilitaires