Masquer des feuilles

[Luigi]

Bonjour à tous,

j'ai un code qui me permet de masquer dans mon classeur toutes les feuille qui sont dofférentes de mot "A5" voir ci-dessous

Sub Masquer()
Dim oSh As Object
For Each oSh In ThisWorkbook.Sheets
If oSh.Name <> "A5" hen oSh.Visible = False
Next oSh
End Sub
mais le mot "A5" peut faire partie d'un mot d'une feuille que je ne veut pas masquer. pour cela j'ai modifier le code mais il ne fonctionne pas.

Sub Masquer()
Dim oSh As Object
For Each oSh In ThisWorkbook.Sheets
If oSh.Name <> "*" & "A5" & "*" Then oSh.Visible = False
Next oSh
End Sub

Pour résumer je veux masquer toutes les feuille qui ne contiennent pas le mot "A5"

Quelqu'un aurait-il un réponse à mon problème.

D'avance je vous remercie

 

[chris]

Re : Masquer des feuilles

Bonjour

Essayes

If InStr(oSh.Name, "A5") = 0 Then oSh.Visible = False

 

[Pierrot93]

Re : Masquer des feuilles

Bonjour,

essaye peut être comme ceci :

Dim oSh As Object
For Each oSh In ThisWorkbook.Sheets
If Not oSh.Name Like "*A5*" Then oSh.Visible = False
Next oSh

bonne journée
@+

Edition : bonjour Chris
2ème édition : supprimé les 2 "*" &

 

[Pierrot93]

Re : Masquer des feuilles

Re,

A noter, si aucune feuille dans le classeur ne contient la suite de caractères A5, cela plantera.... car au moins une feuille doit être affichée dans un classeur....

 

[Luigi]

Re : Masquer des feuilles

Merci Chris et Pierrot93,

j'utilise la proposition de Pierrot93 "Like"

merci à vous vive le forum