Detecter feuilles ?

Re Forum,

Possible de m'aider sur le fichier ci-joint?

Il s'agit bien de lister les feuilles d'un classeur en une seule colonnes pour proceder ensuite à une formule "="

Crdt,

bonjour,

suis pas sur d'avoir bien compris...

Sub test()
With Worksheets(1)
    For i = 2 To Worksheets.Count
        Z = Worksheets(i).Name
        .Cells(4 + i, 1) = Z
        .Cells(4 + i, 2).Formula = "=" & Z & "!B5"
        .Cells(4 + i, 3).Formula = "=" & Z & "!D7"
        .Cells(4 + i, 4).Formula = "=" & Z & "!E9"
    Next
End With
End Sub

A+

Re le forum,

Oui Galopin01 c'est exactement ce que je cherche.

J'expose donc mon but final: realiser ta macro à cette condition:

Si nom de la feuille commence par "FF" donc:

.Cells(4 + i, 2).Formula = "=" & Z & "!B5"
        .Cells(4 + i, 3).Formula = "=" & Z & "!D7"
        .Cells(4 + i, 4).Formula = "=" & Z & "!E9"

Et si nom de la feuille commence par "TT" donc:

.Cells(4 + i, 2).Formula = "=" & Z & "!B6"
        .Cells(4 + i, 3).Formula = "=" & Z & "!D8"
        .Cells(4 + i, 4).Formula = "=" & Z & "!E10"

Possible?

Sinceres remerciements

Salut le forum

En ajoutant une condition de test

Sub test()
  Dim Z As String
  Dim I As Byte

With Worksheets(1)
  For I = 2 To Worksheets.Count
        Z = Worksheets(I).Name
    If Left(Z, 2) = "FF" Then
        .Cells(4 + I, 1) = Z
        .Cells(4 + I, 2).Formula = "=" & Z & "!B5"
        .Cells(4 + I, 3).Formula = "=" & Z & "!D7"
        .Cells(4 + I, 4).Formula = "=" & Z & "!E9"
    ElseIf Left(Z, 2) = "TT" Then
        .Cells(4 + I, 1) = Z
        .Cells(4 + I, 2).Formula = "=" & Z & "!B6"
        .Cells(4 + I, 3).Formula = "=" & Z & "!D8"
        .Cells(4 + I, 4).Formula = "=" & Z & "!E10"
    End If
  Next I
End With

End Sub

Mytå

Bonjour le forum,

C'est impecable Mytâ !

Je te remercie infiniment.

Bonne journée.