compter feuille classeur suivant condition

JP · 29 Décembre 2005

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 · 29 Décembre 2005

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é · 29 Décembre 2005

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 · 29 Décembre 2005

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

compter feuille classeur suivant condition

JP

Guest

PascalXLD

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Discussions similaires