VBA Onglet scrutation

Bonjour,
Je travaille sur un fichier excel qui possède plusieurs onglet.
Savez vous comment faire sous vba, une macro qui scrute tous les onglets et qui renvoit un 1 si un des onglets à la même valeur qu'une case prédéfinie (ex:A1) et 0 si aucun onglet ne porte le même nom que cette même case ?


Cdlt.

bonjour,
les onglets sont en fait des Worksheets sous VBA.
Pour les parcourir, tu peux utiliser une boucle, et faire tes tests en conséquences dans la boucle.

Bonjour,
Voici une piste selon ton exemple:

Code:

---

1 2 3 4 5 6 7 8 9

Sub CompteFeuille()   Dim i As Long, MonCompte As Long   For i = 1 To ThisWorkbook.Worksheets.Count If UCase(Sheets(i).Name) = UCase(Sheets(i).Cells(1, 1).Value) Then MonCompte = MonCompte + 1 Next i MsgBox MonCompte & " nom(s) de feuille(s) = texte en A1" End Sub

---

A+

Edit: Doublon avec JPcheck mais moi j'ai mis un exemple ;)
J'ai aussi ajouté une Msgbox pour le fun...