Compter le nombre d'onglet

[thierrylon]

Bonjour,
j'aimerais savoir le code de la macro pour que le nombre d'onglet dont le nom contenant un mot précis apparaisse dans une message box.
Par exemple: mon fichier contient 20 onglets: - 10 dont les noms sont Feuil1 à 10
- 10 dont les noms sont Page1 à 10
J'aimerais que dans la message box il me donne le nombre d'onglet dont le nom contient le mot "Page". (la réponse est 10)
Merci d'avance.

 

[ERIC S]

Re : Compter le nombre d'onglet

Bonsoir

non testé

nombre=0
for i=1 to sheets.count
if left(sheets(i).name,4)="Page" then nombre=nombre+1
next
msgbox ("Il y a " & nombre & " Pages)

 

[thierrylon]

Re : Compter le nombre d'onglet

Et si je veux savoir le nombre de feuille avec le chiffre 2 (Page2 et Feuille2)?
Le code ne fonctionne pas.
Merci d'avance

 

[Robert]

Re : Compter le nombre d'onglet

Bonsoir Thierry, Éric, bonsoir le forum,

Ben non, le code d'Éric ne fonctionne pas pour ta deuxième proposition... Remarque c'est dommage car sinon en VBA une seule ligne de code pourrait résoudre tous les problèmes...

Allez ! plus sérieusement, son code signifie :

nombre=0 'définit la variable nombre
for i=1 to sheets.count 'boucle sur tous les onglets du classeur
'condition : si les 4 premières lettres du nom de l'onglet sont "Page", 
'alors la variable nombre s'incrémente de 1
if left(sheets(i).name,4)="Page" then nombre=nombre+1
next 'prochain onglet de la boucle
msgbox ("Il y a " & nombre & " Pages) 'message

Tu comprends maintenant pourquoi ça ne marche pas pour ton deuxième problème...

Tu pourrais remplacer la seconde ligne par :

'condition : si la dernière lettre du nom de l'onglet est "2"
if Right(sheets(i).name,1)="2" then nombre=nombre+1

Mais Si tu as ces trois onglets suivant : "Page2", "Feuille2" et "Page12" le message te renverra 3 onglets alors qu'il ne devrait t'en renvoyer que 2... Sinon elle pourrait te convenir.

 

[thierrylon]

Re : Compter le nombre d'onglet

Merci beaucoup, ça marche.