Liste des onglets avec saut de feuille

Bonjour,

Inexpérimenté en VBA et ayant effectuer de nombreuses recherches infructueuses, je cherche à exclure certaines feuilles dans ma macro qui les liste, sans y parvenir.

Je ne sais pas si je suis au bon endroit mais je tente.

Voici mon code:

Sub Clients()

Dim i As Integer

For i = 1 To Worksheets.Count

Cells(11 + i, 1) = Worksheets(i).Name

If WorkSheet.Name = "AAA" Ten Exit Sub

If WorkSheet.Name = "RECAP" Then Exit Sub

If WorkSheet.Name = "LISTE" Then Exit Sub

End If

Next i

End Sub

mon bloc If ne fonctionne pas. Si je le supprime la liste est complète sans soucis. les trois feuilles à ignorer s'affiche quand même. Je suis coincé.

Merci de votre aide

Bonjour,

Une solution parmi d'autres :

Sub Clients()
    Const sauf As String = ",AAA,RECAP,LISTE,"
    Dim i As Long
    For i = 1 To Worksheets.Count
        If InStr(sauf, "," & Sheets(i).Name & ",") = 0 Then
            ' ton code
            Cells(11 + i, 1) = Sheets(i).Name
        End If
    Next i
End Sub

eric

Salut Vinzz,

logique puisque tu commandes l'affichage du nom des feuilles AVANT de contrôler uniquement le nom de la feuille ACTIVE.

(écrit en direct sans test!)

Sub Clients()
'
Dim i As Integer
iLig=0
'
For i = 1 To Worksheets.Count
If WorkSheet(i).Name <> "AAA" and WorkSheet(i).Name <> "RECAP" and WorkSheet(i).Name <> "LISTE" Then
iLig=iLig+1
Cells(11 + iLig, 1) = Worksheets(i).Name
End If
Next i
'
End Sub

Essaie ça pour voir...

A+

Salut Curulist57

Merci pour le code, avec un petit changement de WorkSheet en WorkSheets cela semble parfaitement fonctionner. encore Merci pour vos réponses.