Discussion :

[vivi4561]

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.

[Jean-Philippe André]

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.

[Fvandermeulen]

Bonjour,
Voici une piste selon ton exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...