Liste automatique des onglets d'un fichier [Fermé]

Bonsoir,
Votre formule m'interresse beaucoup, est il possible que l'on ai deux listes de nom de feuilles:
par exemple si l'on a deux couleurs d'onglets ou un autre moyen de distinguer deux series d'onglets dans le même classeur?

Bonsoir,

Pour les couleurs pas par formule, non.
En vba ça pourrait être :

Sub Macro1()
    Dim shresult As Worksheet, sh As Worksheet
    Set shresult = Worksheets("Feuil1")
    For Each sh In Worksheets
        Select Case sh.Tab.ColorIndex
        Case 4
            shresult.[A65536].End(xlUp).Offset(1, 0) = sh.Name
        Case 6
            shresult.[B65536].End(xlUp).Offset(1, 0) = sh.Name
        Case Else
            shresult.[C65536].End(xlUp).Offset(1, 0) = sh.Name
        End Select
    Next sh
End Sub

exemple

Ou bien en se basant sur une partie du nom, par exemple ceux commençant par L_ et T_ ou ceux finissant par 1 et 2 ou ...

eric

merci eriic !

Je crois que ton aide sera précieuse !

re,

Et qu'est ce que cela donne en se basant par le nom!

cordialement

re,
J'ai testé la macro, c'est super! comment faire pour quelle ne rajoute pas les mêmes feuilles à chaque fois que l'on lance l'execution ?

cordialement

Bonjour,

1) ça pourrait être :
...
Select Case Left(sh.Name, 2)
Case "L_", "M_"
shresult.[A65536].End(xlUp).Offset(1, 0) = sh.Name
Case "T_"
shresult.[B65536].End(xlUp).Offset(1, 0) = sh.Name
Case Else
shresult.[C65536].End(xlUp).Offset(1, 0) = sh.Name
End Select
...
Attention aux majuscules/minuscules

2) effacer les réponses précédentes par ex :
Range("A2:C10").clearcontents
ou plus perfectionné....

eric

RE,
Je suis novice en macro, mais apparemment, je vois que tu a affecté un code pour les couleurs.
si j'ai bien pigé, la 4 c'est le vert, le 6 c'est le jaune ?
ou puis-je trouver le code des couleurs, dans l'aide d'excel?

re,

en voir de toutes les couleurs :

Sub couleurs() 
    Dim i As Long 
    For i = 1 To 56 
        Cells(i, 1) = i 
        Cells(i, 2).Interior.ColorIndex = i 
    Next 
End Sub

couleur de la cellule active :

Sub couleur() 
    MsgBox ("couleur : " & ActiveCell.Interior.ColorIndex) 
End Sub

Mais on s'écarte du sujet initial... ;-)

eric

Re,
Merci merci!