(Résolu) Bug pour le calcul de feuilles nommées dans la macro

[JBARBE]

Bonjour à tous,
Je n'ai pas trouvé le moyen de contourner le bug dans ma macro pour compter le nb de feuilles désirées dans la macro !
Merci à l'avance

 Option Explicit
    Sub test()
    Dim s As Long, n As Long
    For s = 1 To Worksheets.Count
    Sheets(("Feuil") & s).Select
    n = s
    Next
    End Sub

 

[job75]

Bonsoir JBARBE,

Plus que normal le bug !

S'il s'agit de compter les feuilles dont le nom commence par "Feuil" :

Sub test()
Dim s As Object, n As Long
For Each s In Sheets
If s.Name Like "Feuil*" Then n = n + 1
Next
MsgBox n
End Sub

A+

 

[JBARBE]

Re,
Comment n'y avoir pas pensé !
Merci Job c'est parfait !
Bonne soirée !

 

[Patrice33740]

https://www.developpez.net/forums/d...xcel/bug-calcul-feuilles-nommees/#post9487982