superbog
XLDnaute Occasionnel
Bonjour,
J'ai un classeur excel avec plusieurs feuilles, certaines ont un nom numérique (1215,1345...) et d'autres un nom textuel (recap, verif..), je souhaite trier les numériques seulement
J'ai trouvé un code de tri des différentes feuilles mais cela concerne toutes les feuilles, comment réduire aux feuilles portant un nom numérique
J'ai un classeur excel avec plusieurs feuilles, certaines ont un nom numérique (1215,1345...) et d'autres un nom textuel (recap, verif..), je souhaite trier les numériques seulement
J'ai trouvé un code de tri des différentes feuilles mais cela concerne toutes les feuilles, comment réduire aux feuilles portant un nom numérique
Code:
For Boucle = 1 To Sheets.Count
For Compteur = 1 To (Boucle - 1)
If (UCase(Sheets(Boucle).Name) < UCase(Sheets(Compteur).Name)) Then
Sheets(Boucle).Move Before:=Sheets(Compteur)
Exit For
End If
Next Compteur
Next Boucle
MsgBox "opération effectuée"
End Sub