vba : comment compter les feuilles suivant code.name ?

Bonjour,

For s = 1 To Sheets.Count
If Worksheets(s).CodeName Like "*F_Toto*" Then n = n + 1
Next
MsgBox n

JB

On 8 mar, 13:23, "DJ9B" <d...@orange.fr> wrote:

Bonjour tous !
J'ai cr par VBA des codename diff rents suivant le type de feuille d sir e
dans un classeur.

J'aimerai connaitre la syntaxe pour pouvoir compter le nombre
de feuilles du classeur actif suivant leurs "codename"  ?

J'aimerai par exemple compter les feuilles dont le codename contient
"F_toto" .

Merci d'avance pour vos r ponses clair es ;) !

bonjour,

For Each f In Sheets
If Not IsError(Application.Find("F_toto", f.CodeName)) Then x = x + 1
Next

isabelle

Le 2010-03-08 07:23, DJ9B a écrit :

Bonjour à tous !
J'ai créé par VBA des codename différents suivant le type de feuille désirée
dans un classeur.

J'aimerai connaitre la syntaxe pour pouvoir compter le nombre
de feuilles du classeur actif suivant leurs "codename" ?

J'aimerai par exemple compter les feuilles dont le codename contient
"F_toto" .

Merci d'avance pour vos réponses éclairées ;) !

bonjour,


dim sh as object, i as long
for each sh in activeworkbook.sheets
if instr(sh.codename,"F_toto") then i=i+1
next
msgbox i


'--
'LSteph

On 8 mar, 13:23, "DJ9B" <d...@orange.fr> wrote:

Bonjour tous !
J'ai cr par VBA des codename diff rents suivant le type de feuille d sir e
dans un classeur.

J'aimerai connaitre la syntaxe pour pouvoir compter le nombre
de feuilles du classeur actif suivant leurs "codename"  ?

J'aimerai par exemple compter les feuilles dont le codename contient
"F_toto" .

Merci d'avance pour vos r ponses clair es ;) !

Merci beaucoup JB cela fonctionne parfaitement ;) !


"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
3f6405ed-57d3-4535-8dd8-b342571604ae@g19g2000yqe.googlegroups.com...
Bonjour,

For s = 1 To Sheets.Count
If Worksheets(s).CodeName Like "*F_Toto*" Then n = n + 1
Next
MsgBox n

JB

On 8 mar, 13:23, "DJ9B" <d...@orange.fr> wrote:

Bonjour tous !
J'ai cr par VBA des codename diff rents suivant le type de feuille d sir e
dans un classeur.

J'aimerai connaitre la syntaxe pour pouvoir compter le nombre
de feuilles du classeur actif suivant leurs "codename" ?

J'aimerai par exemple compter les feuilles dont le codename contient
"F_toto" .

Merci d'avance pour vos r ponses clair es ;) !

Merci beaucoup Isabelle cela fonctionne parfaitement aussi ;) !


"isabelle" <i@v> a écrit dans le message de news:
u50K56rvKHA.732@TK2MSFTNGP06.phx.gbl...

bonjour,

For Each f In Sheets
If Not IsError(Application.Find("F_toto", f.CodeName)) Then x = x + 1
Next

isabelle

Le 2010-03-08 07:23, DJ9B a écrit :

Bonjour à tous !
J'ai créé par VBA des codename différents suivant le type de feuille
désirée
dans un classeur.

J'aimerai connaitre la syntaxe pour pouvoir compter le nombre
de feuilles du classeur actif suivant leurs "codename" ?

J'aimerai par exemple compter les feuilles dont le codename contient
"F_toto" .

Merci d'avance pour vos réponses éclairées ;) !

Merci beaucoup LSteph cela fonctionne parfaitement aussi ;) !


"LSteph" <gmlsteph@gmail.com> a écrit dans le message de news:
2a2bed6b-cb0b-4b8a-8f91-944dc92bc19d@g11g2000yqe.googlegroups.com...
bonjour,


dim sh as object, i as long
for each sh in activeworkbook.sheets
if instr(sh.codename,"F_toto") then i=i+1
next
msgbox i


'--
'LSteph

On 8 mar, 13:23, "DJ9B" <d...@orange.fr> wrote:

Bonjour tous !
J'ai cr par VBA des codename diff rents suivant le type de feuille d sir e
dans un classeur.

J'aimerai connaitre la syntaxe pour pouvoir compter le nombre
de feuilles du classeur actif suivant leurs "codename" ?

J'aimerai par exemple compter les feuilles dont le codename contient
"F_toto" .

Merci d'avance pour vos r ponses clair es ;) !