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

JBARBE · 26 Juillet 2017

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

Code:

 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 · 26 Juillet 2017

Bonsoir JBARBE,

Plus que normal le bug !

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

Code:

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 · 26 Juillet 2017

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

Patrice33740 · 26 Juillet 2017

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

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

JBARBE

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

JBARBE

XLDnaute Barbatruc

Patrice33740

XLDnaute Impliqué

Discussions similaires