Liste onglet dans tableau

Bonjour à tous

J'ai un tableau structuré qui a pour nom "Tbldata2"

Dans ce tableau j'aimerais avoir la liste des onglets.

Voici le code que j'ai mis en place:

Private Sub Worksheet_Activate()
 FRM_Gestion.Hide

 Dim i As Integer

 Sheets("DATA").Range("D9:D60").ClearContents

    For i = 3 To Sheets.Count

             With Sheets("DATA")
                .Range("D9") = Sheets(i).Name
             End With

    Next i
    Application.ScreenUpdating = True
End Sub

La boucle fonctionne , mais je n'ai pas trouvé le moyen d'utilisé le "+i"

Soyer indulgent, je débute

Merci

Bonne journée

.Range("D" & 9+i-3) = Sheets(i).Name

Bonjour pierrep56

Merci ça fonctionne

.Range("D" & 9+i-3) = Sheets(i).Name

Pourquoi le -3 stp

A bientôt

Bonjour,

Pour le fun et Excel 365.
Cdlt.

ledzep a écrit :

Pourquoi le -3 stp

Bonjour LedZep, Jean-Eric

-3 car la boucle commence par i=3 =>

For i = 3 To Sheets.Count

@Jean-Eric : intéressant mais ces fonctions en sont pas dispo sur les vielles versions d'excel :(

Bonjour le forum

pierrep56 pour ton explication.

Jean-Eric, j'avais essayé cette méthode pour mon tableau, mais je suis partie de mon tableau, donc je ne pouvais pas modifier la formule.

Grace à ton explication j'ai compris la manœuvre.

Donc merci à vous deux pour votre aide

Dernière question:

Je peux utiliser le code pour remplacer Range par cells ?

ou faut-il utiliser un autre forme de boucle ?

Dans l'attente de vous relire

A bientôt

Re

L'expression :

.Range("D" & 9+i-3)

est équivalente à :

.Cells(9+i-3,"D" )

Ok merci pierre56

Je continue mon développement, je vais travailler cette nuit dessus et surement que vais poster un nouveau sujet

Sur NB.SI en vba

A bientôt