Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Index de feuilles

  • Initiateur de la discussion Initiateur de la discussion INIME-
  • Date de début Date de début
  • Mots-clés Mots-clés
    vba

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Autre exemple pour le classement des onglets selon leurs noms:
VB:
Sub TriOnglets()
    Dim TabNomsFeuilles() As String
    Dim TempNom As String
    Dim i As Integer
    Dim j As Integer

    With ThisWorkbook
        ReDim TabNomsFeuilles(1 To .Worksheets.Count)

        'Charge la table des noms des feuilles
        For i = 1 To .Worksheets.Count
            TabNomsFeuilles(i) = .Worksheets(i).Name
        Next i

        'Trie la table des noms des feuilles
        For i = 1 To UBound(TabNomsFeuilles) - 1
            For j = i + 1 To UBound(TabNomsFeuilles)
                If TabNomsFeuilles(j) < TabNomsFeuilles(i) Then
                    TempNom = TabNomsFeuilles(j)
                    TabNomsFeuilles(j) = TabNomsFeuilles(i)
                    TabNomsFeuilles(i) = TempNom
                End If
            Next j
        Next i

        'Classement des feuilles selon le tri
        Application.ScreenUpdating = False
        For i = UBound(TabNomsFeuilles) To 1 Step -1
            .Worksheets(TabNomsFeuilles(i)).Move before:=.Worksheets(1)
        Next i
        Application.ScreenUpdating = True
    End With
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
106
Réponses
38
Affichages
1 K
Réponses
6
Affichages
183
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…