compter feuille classeur suivant condition

[JP]

bjr

je cherche à faire une macro permettant de compter certaines feuilles d'un classeur si une condition est remplie (ex: cellule 'a1' = T)
comment faire??

j'ai écris ce code mais cela ne marche pas!!!!
merci

Sub onglet()
Dim I As Integer
For I = 1 To Worksheets.Count
If Range('a1').Value = 'T' Then
I = I + 1
MsgBox 'il y a ' & I
End If
Next
End Sub

 

[PascalXLD]

Bonjour

Essaies

Sub onglet()
Dim I As Integer
dim ws as worksheet
For each ws in worksheets
If Range('a1').Value = 'T' Then
I = I + 1
End If
Next
MsgBox 'il y a ' & I
End Sub

 

[Hervé]

Bonjour JP, pascal, tonton marcel, le monde

Pascal, j'ai compris que JP voulait compter le nombre de feuilles ayant 'T' en cellule A1 (pour chaque feuille)

donc ws.range('a1').value....

non ?

salut

 

[PascalXLD]

RE

Oups merci hervé d'avoir rectifie

Bon je ne vais pas dire que c'est mon clone mais plutot que j'ai pas testé

Pourtant c'est une erreur classique

Bonne journée à toi