nom et index des feuilles

Version imprimable

31/07/2025, 16h02
graphikris

nom et index des feuilles

Bonjour la communauté,

J'ai beau chercher je ne trouve nulle par un code VBA me permettant de lister dans une feuille, les noms de mes feuilles en colonne A et l'index de ces memes feuilles en colonnes B. J'ai un classeur de plus de 300 feuilles et mes macros sont basées sur les index de mes feuilles. Cela me permet de modifier le nom de mes feuilles sans pour autant aller remodifier mes macros.

Quelqu'un aurait il un code sous la main.
Le seul code que j'ai trouvé me liste en colonne A le nom de mes feuilles par ordre alphabétique mais pas les N° d'index associés.

Cordialement,
Graphikris.

Bonjour,

un essai
ça écrit la liste des feuilles à partir de la cellule sélectionnée

Code:

1
2
3
4
5
6
7
8
9
Sub ListFeuil()
Dim Tablo(), i As Long
    ReDim Tablo(1 To Sheets.Count, 1 To 2)
    For i = 1 To Sheets.Count
        Tablo(i, 1) = Sheets(i).Name
        Tablo(i, 2) = i
    Next
    ActiveCell.Resize(UBound(Tablo, 1), 2).Value = Tablo
End Sub

31/07/2025, 16h17
tototiti2008

Re,

Sinon pour éviter le problème des noms des feuilles on peut utiliser le CodeName plutôt que le nom de l'onglet

Dans les propriété d'une feuille, le Name est le nom de l'onglet, le (Name) entre parenthèses est le CodeName
Le CodeName ne peut pas contenir d'espace

L'appel des feuille ne se fait plus du type

Code:

Sheets("Feuil1").Activate

(ici avec le Name)
mais

Code:

Feuil1.Activate

(ici avec le CodeName)
31/07/2025, 16h19
graphikris

Bonjour et merci pour ta reponse rapide mais ca me donne la liste des noms des feuilles mais les N° ne correspondent pas aux vrais N° d'index des feuilles que l'on voit dans "Visual Basic".
31/07/2025, 16h26
tototiti2008

Re,

Dis-moi où tu vois ces numéros d'index dans Visual Basic
31/07/2025, 16h36
Philippe Tulliez
Bonjour,
Comme l'a écrit dans un post précédent tototiti2008, que je salue au passage, la façon la plus sûre de gérer les feuilles d'un classeur excel, c'est le CodeName
J'ai écrit deux billets sur ce sujet
- VBA Excel - Comment s’affranchir de la modification du nom de la feuille en utilisant son CodeName
- Excel - Vba - Renvoyer un objet feuille d'un autre classeur en fonction de son CodeName
Si ce que vous appelez l'index d'une feuille, c'est par exemple Worksheets(1), oubliez vite cette façon de faire car le numéro dépend de sa position dans le classeur en partant de la gauche. Il suffit que l'utilisateur déplace sa feuille pour que ce soit la catastrophe.
31/07/2025, 16h38
graphikris

2 pièce(s) jointe(s)

en exemple un classeur de 4 feuilles qui ont été renommées. Je voudrais que dans la feuille 5 apparaisse en colonne A le nom des feuilles par ordre alphabetique et en colonne B leur Index
Pièce jointe 669119
Ce qui ferait :
Pièce jointe 669120
31/07/2025, 16h39
graphikris
Citation:
Envoyé par Philippe Tulliez

Bonjour,
Comme l'a écrit dans un post précédent tototiti2008, que je salue au passage, la façon la plus sûre de gérer les feuilles d'un classeur excel, c'est le CodeName
J'ai écrit deux billets sur ce sujet

VBA Excel - Comment s’affranchir de la modification du nom de la feuille en utilisant son CodeName
Excel - Vba - Renvoyer un objet feuille d'un autre classeur en fonction de son CodeName

Si ce que vous appelez l'index d'une feuille, c'est par exemple Worksheets(1), oubliez vite cette façon de faire car le numéro dépend de sa position dans le classeur en partant de la gauche. Il suffit que l'utilisateur déplace sa feuille pour que ce soit la catastrophe.
Merci pour votre reponse. Pour ma part, j'ai une macro qui classe les feuilles de gauche a droite par ordre alphabetique.
31/07/2025, 16h46
tototiti2008

Re,
Bonjour Philippe,

Ma macro devrait faire ce que tu demande, si ce n'est que les noms des feuilles ne sont pas triés
mais comme

Citation:

Pour ma part, j'ai une macro qui classe les feuilles de gauche a droite par ordre alphabetique

ça ne devrait pas poser de soucis, je suppose ?

Et en effet, je plussoie la remarque de Philippe, c'est source d'erreur de chercher les feuilles en fonction de leur numéro d'index, qui n'indique que la position des feuilles dans le classeur
31/07/2025, 17h23
graphikris

Citation:

Envoyé par tototiti2008

Re,
Bonjour Philippe,

Ma macro devrait faire ce que tu demande, si ce n'est que les noms des feuilles ne sont pas triés
mais comme

ça ne devrait pas poser de soucis, je suppose ?

Et en effet, je plussoie la remarque de Philippe, c'est source d'erreur de chercher les feuilles en fonction de leur numéro d'index, qui n'indique que la position des feuilles dans le classeur

Pour ma part ce ne fonctionne pas.
31/07/2025, 17h56
tototiti2008

Re,

Si tu n'explique pas ce qui ne fonctionne pas, ce que ça donne et en comparaison, ce que ça devrait donner, je ne vois pas comment corriger
31/07/2025, 18h22
graphikris

1 pièce(s) jointe(s)

Citation:

Envoyé par tototiti2008

Re,

Si tu n'explique pas ce qui ne fonctionne pas, ce que ça donne et en comparaison, ce que ça devrait donner, je ne vois pas comment corriger

Dans mon exemple ci dessous, j'ai supprimé la feuille 1 puis dans la feuille nommée vba, j'ai déclenché ta macro et là on s'aperçois qu'il y a pas la meme numerotation que dans le projet vba. avec ta macro la feuille calcul a lae N° 1 alors que dans le projet vba, elle a le N° 2
Pièce jointe 669130

Re,

Oui mais en VBA, si tu écris

Code:

Sheets(1)

ça pointera bien sur Calculs, même si son CodeName est Feuil2

si tu veux le CodeName des feuilles, tu peux essayer
Code:

1 2 3 4 5 6 7 8 9 10 Sub ListFeuil2() Dim Tablo(), i As Long ReDim Tablo(1 To Sheets.Count, 1 To 2) For i = 1 To Sheets.Count Tablo(i, 1) = Sheets(i).Name Tablo(i, 2) = Sheets(i).CodeName Next ActiveCell.Resize(UBound(Tablo, 1), 2).Value = Tablo End Sub

Bonjour à tous,
On peut concaténer le nom et son index, puis faire un tri...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Function GetSortedSheets() As Variant
 
    ReDim sheetInfo(1 To ThisWorkbook.Sheets.Count)
 
    ' Parcourir toutes les feuilles et stocker leur nom et index
    Dim i As Long
    i = 1
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        ' Utiliser un séparateur unique pour stocker les deux informations
        sheetInfo(i) = ws.Name & "|" & ws.Index  ' Index basé sur 0 pour être cohérent avec d'autres langages
        i = i + 1
    Next ws
 
    ' // On tri les feuilles
    For i = LBound(sheetInfo) To UBound(sheetInfo) - 1
        Dim j As Long
        For j = i + 1 To UBound(sheetInfo)
            ' // Comparer les noms des feuilles (avant le séparateur "|")
            If Left(sheetInfo(i), InStr(sheetInfo(i), "|") - 1) > Left(sheetInfo(j), InStr(sheetInfo(j), "|") - 1) Then
                ' // Échanger les éléments si l'ordre est incorrect
                Dim temp As String
                temp = sheetInfo(i)
                sheetInfo(i) = sheetInfo(j)
                sheetInfo(j) = temp
            End If
        Next j
    Next i
 
    ' // Préparer le tableau final pour le résultat (Nom, Index)
    Dim resultArray() As Variant
    ReDim resultArray(1 To UBound(sheetInfo), 1 To 2) ' Deux colonnes : Nom et Index
 
    ' // Remplir le tableau final avec les données triées
    For i = LBound(sheetInfo) To UBound(sheetInfo)
        Dim parts As Variant
        parts = Split(sheetInfo(i), "|")
        resultArray(i, 1) = parts(0) ' Nom de la feuille
        resultArray(i, 2) = CInt(parts(1)) ' Index de la feuille (converti en entier)
    Next i
 
     GetSortedSheets = resultArray
 
End Function

Petit exemple d'utilisation. ATTENTION L'ECRITURE SE FAIT SUR LA FEUILLE ACTIVE.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test101()
    ' // Sélection de la feuille active pour renvoyer les infos
    With ActiveSheet
        .Columns("A:B").ClearContents
        .Cells(1, 1).Value = "Nom de la feuille"
        .Cells(1, 2).Value = "Index de la feuille"
        .Range("A1:B1").Font.Bold = True
 
        Dim sheetData As Variant
        sheetData = GetSortedSheets()
 
        If Not IsEmpty(sheetData) Then
            .Range("A2").Resize(UBound(sheetData, 1), UBound(sheetData, 2)).Value = sheetData
            .Columns("A:B").AutoFit
        Else
            MsgBox "Aucune information de feuille trouvée ou une erreur est survenue.", vbExclamation
        End If
    End With
End Sub

Citation:
Envoyé par tototiti2008
Re,

Oui mais en VBA, si tu écris

Code:

Sheets(1)

ça pointera bien sur Calculs, même si son CodeName est Feuil2

si tu veux le CodeName des feuilles, tu peux essayer
Code:

1 2 3 4 5 6 7 8 9 10 Sub ListFeuil2() Dim Tablo(), i As Long ReDim Tablo(1 To Sheets.Count, 1 To 2) For i = 1 To Sheets.Count Tablo(i, 1) = Sheets(i).Name Tablo(i, 2) = Sheets(i).CodeName Next ActiveCell.Resize(UBound(Tablo, 1), 2).Value = Tablo End Sub
Merci à toi, c'est vraiment ça que je voulais.