nom et index des feuilles

**graphikris** · 31/07/2025, 16h02

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.

**tototiti2008** · 31/07/2025, 16h10

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**graphikris** · 31/07/2025, 16h19

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".

**tototiti2008** · 31/07/2025, 16h17

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Activate

(ici avec le Name)
mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1.Activate

(ici avec le CodeName)

**tototiti2008** · 31/07/2025, 16h26

Re,

Dis-moi où tu vois ces numéros d'index dans Visual Basic

**Philippe Tulliez** · 31/07/2025, 16h36

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.

**graphikris** · 31/07/2025, 16h39

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.

**graphikris** · 31/07/2025, 16h38

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
Nom : Image1.png
Affichages : 70
Taille : 4,5 Ko

Nom : Image1.png
Affichages : 70
Taille : 4,5 Ko

Ce qui ferait :
Nom : Image2.png
Affichages : 66
Taille : 10,4 Ko

**tototiti2008** · 31/07/2025, 16h46

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

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

**graphikris** · 31/07/2025, 17h23

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.

**tototiti2008** · 31/07/2025, 17h56

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

**graphikris** · 31/07/2025, 18h22

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
Nom : Image3.png
Affichages : 68
Taille : 27,4 Ko

Nom : Image3.png
Affichages : 68
Taille : 27,4 Ko

**tototiti2008** · 31/07/2025, 19h00

Re,

Oui mais en VBA, si tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Valtrase** · 31/07/2025, 19h54

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**graphikris** · 01/08/2025, 09h00

Envoyé par tototiti2008

Re,

Oui mais en VBA, si tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

nom et index des feuilles [XL-2016]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager