trier les onglets numériques seulement

[superbog]

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

    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

 

[Papou-net]

Re : trier les onglets numériques seulement

Bonsoir superbog,

Voici une possibilité:

For boucle = 1 To Sheets.Count
  If IsNumeric(Sheets(boucle).Name) Then
    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
  End If
Next boucle
MsgBox "opération effectuée"

>Cordialement.

 

[superbog]

Re : trier les onglets numériques seulement

super merci bien