compter le nombre d'onglet suivant un nom

[Ataahualpa]

Bonjour à tous

Dans un classeur, j'aimerai compter le nombre d'onglet suivant le nom !

ex : "onglet n°1", "onglet n°2", "feuille n°1" etc
Combien de feuille comporte le nom "onglet" ?


Intrution !
Left$(sheet.Name, 16)
InStr(Feuille.Name, "Onglet")


Merci d'avance pour votre aide

 

[VDAVID]

Re : compter le nombre d'onglet suivant un nom

Bonjour Ataahualpa,

Peut-être comme ceci:

Sub CompterFeuill()
Dim i As Integer, z As Integer

For i = 1 To Sheets.Count

If Sheets(i).Name Like "*onglet*" Then z = z +1

Next i

MsgBox "Le nombre de feuille portant le nom onglet est de " & z
End Sub

Bonne journée!

 

[Ataahualpa]

Re : compter le nombre d'onglet suivant un nom

Merci , excellent