Discussion :

[jbchb]

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 !
Merci à l'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
    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

[Patrice740]

bonjour,

Cette macro ne compte rien !
Quel est le but recherché ?
Pour compter le nombre de feuilles de calcul dont le nom commence par "Feuil" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
Sub test()
Dim f As Worksheet
Dim n As Long
  For Each f In Worksheets
    If Left(f.Name, 5) = "Feuil" Then n = n + 1
  Next f
  MsgBox n
End Sub

[jbchb]

Bonsoir à tous,
C'est parfait !
Merci de ton aide !
Bonne soirée