Masquer toutes les feuilles sauf exceptions

Bonjour,

Je me suis inscris sur ce forum après avoir passé plusieurs heures à chercher sur le net afin de trouver réponse à ma question.

Je suis novice en VBA, donc excusez à l'avance pour ceux qui trouve que ma question est facile à résoudre ou carrément impossible en VBA.

En fait je souhaiterai grâce à une macro VBA, masquer toutes les feuilles qui ne contiennent pas une valeure dans une cellule.

Mon classeur contient plusieurs feuilles avec des noms de chantier (ex: Aze1, Aze2, Aze3, Brt1,Brt2, Cpo1, Cpo2, Cpo3, Cpo4).

Grace à une partie recherche, je souhaiterai afficher par exemple tous les travaux Aze et du coup masquer tous les autres onglets.

Pour cela je taperai la lettre Aze dans la cellule B5 par exemple, puis au lancement de ma macro, les onglets Aze1, Aze2 et Aze3 resteront visibles, et les autres seront masquer.

Est-possible?

Merci beaucoup pour votre aide.

Benjamin

Bonjour,

voici une macro, basée sur le contenu de B5 sur la feuille active

Sub masqueronglet()
nom = Range("B5")
For Each c In Worksheets
If UCase(Left(c.Name, Len(nom))) = UCase(nom) Then
c.Visible = True
Else
c.Visible = False
End If
Next
End Sub

Bonjour

Bonjour h2so4

A tester

Super !!!

Merci beaucoup!