Trier le nom des feuilles dans un projet VBA

[b3n]

Bonjour à tous,

Après 1h de recherches infructueuses, je viens poser ma question ici 😉

J'aimerais savoir comment trier les feuilles dans le VBA Project et non les feuilles du classeur excel --> Ce que me donne google à chaque page...
En effet, j'ai un nombre considérable de feuilles qui contiennent chacune des macros. Ayant crée ce fichier au fur et a mesure, le nom des feuilles est mélangé et pas moyen de mettre la main sur la procédure à suivre pour réorganiser tout ça

En remerciant par avance

Benjamin

 

[Theze]

Re : Trier le nom des feuilles dans un projet VBA

Bonjour,

Dans le projet VBA, les modules quels qu'ils soient, sont d'office triés par ordre alphabétique, il n'est donc pas possible d'effectuer un tri "manuel" si ce n'est en les renommant un à un manuellement ou par programmation afin qu'ils collent à l'ordre qu'on désire.
Ci-dessous, une boucle pour renommer les modules (juste pour le test et pour avoir une idée de ce qu'il est possible de faire) :

Sub Renommer()

    'avec "Object" évite de devoir cocher la référence
    Dim CollectionModule As Object
    Dim Module As Object
    Dim I As Integer
    
    Set CollectionModule = ActiveWorkbook.VBProject.VBComponents
    
    For Each Module In CollectionModule
        
        Select Case Module.Type
        
            Case 100
            
                If Module.Name <> "ThisWorkbook" Then
                
                    I = I + 1
                    Module.Name = "MonModuleA_Moi" & I
                
                End If
                
        End Select
        
    Next Module

End Sub

Hervé.

 

[b3n]

Re : Trier le nom des feuilles dans un projet VBA

Merci papa ^^
😀😀😀

 

[Theze]

Re : Trier le nom des feuilles dans un projet VBA

Re,

Hello, je me suis douté que c'était toi ! 😱

 

[b3n]

Re : Trier le nom des feuilles dans un projet VBA

😉

Merci, a+