Lister dans une colonne toutes les feuilles dont le nom commence par PP

Bonjour à toutes et à tous ,

Je souhaiterais lister dans la colonne O de ma feuille Lignage toutes les feuilles dont le nom commence par PP.

J'ai essayé le code suivant qui listait parfaitement l'ensemble des feuilles, mais après modification pour ne garder que les feuilles commençant par PP (utilisation de Left), cela ne fonctionne plus , auriez-vous des idées, merci.

Dul

Range("O:O").ClearContents
For r = 4 To ActiveWorkbook.Worksheets.Count
O = O + 1
If Left(r.Name, 2) = "PP" Then
Worksheets("Lignage").Cells(O, 15) = Worksheets(r).Name
End If
Next r

Salut Dul,

tu as la réponse sous tes yeux..

If Left(r.Name, 2) = "PP" Then

Worksheets("Lignage").Cells(O, 15) = Worksheets(r).Name

A+

Salut Curulis,

Merci pour ta réponse, mais je ne la comprends pas, r est bien le numéro de la feuille ?

Cdt,

Oui mais... rien que le n° !!

bonjour dul,curulis57,

Sub PP()
     Worksheets("Lignage").Range("O:O").ClearContents
     For r = 4 To ActiveWorkbook.Worksheets.Count
          If StrComp(Left(Worksheets(r).Name, 2), "PP", 1) = 0 Then
               O = O + 1
               Worksheets("Lignage").Cells(O, 15) = Worksheets(r).Name
          End If
     Next r
End Sub

Bonjour BsAlv, rebonjour Curulis,

Effectivement rien que le numéro faisait un peu court, tout fonctionne à présent, merci pour vos réponses !

Cdt,