Afficher par mot clé les feuilles masquées

Coco-31

XLDnaute Junior
Bonjour le forum,

Meilleurs voeux.

J'ai ce code qui me permet de masquer les feuilles dont le nom contient WX, par contre je cherche désespérement la syntaxe qui me permettrait d'afficher toutes les feuilles du classeur contenant WX.
Je remercie tous les intervenants du forum pour leurs réponses

Private Sub CommandButton1_Click()
Dim x As Worksheet
For Each x In Worksheets
x.Visible = InStr(x.Name, "wx") = 0
Next x
End Sub
 

Pierrot93

XLDnaute Barbatruc
Re : Afficher par mot clé les feuilles masquées

Bonjour coco, james,

regarde ceci, affiche la feuille si le nom contient "wx", sinon la masque, à voir si c'est cela que tu veux... pas sûr :
Code:
Dim x As Worksheet
For Each x In Worksheets
x.Visible = LCase(x.Name) Like "*wx*"
Next x

bonne journée
@+
 

Coco-31

XLDnaute Junior
Re : Afficher par mot clé les feuilles masquées

Bonjour Pierrot meilleurs voeux également.

J'avais également testé ton code qui plante et ne vois pas pourquoi. Autant mon code fonctionne à la perfection pour masquer les feuilles, je n'arrive pas à les afficher.
merci tout de même
 

Pierrot93

XLDnaute Barbatruc
Re : Afficher par mot clé les feuilles masquées

Re,

peut être ceci :
Code:
Dim x As Worksheet
For Each x In Worksheets
    If LCase(x.Name) Like "*wx*" Then x.Visible = xlSheetVisible
Next x

sinon essaie de préciser un peu plus la demande.... voir mettre un tout petit fichier en pièce jointe....
 

Si...

XLDnaute Barbatruc
Re : Afficher par mot clé les feuilles masquées

Salut

autre proposition avec la première formulation (Option Compare pour s'affranchir de la casse)
Code:
Option Compare Text
Private Sub CommandButton1_Click()
  Dim x As Worksheet
  For Each x In Worksheets
    x.Visible = Not InStr(x.Name, "wX") = 0
  Next
End Sub

remarque : pour n'afficher que ces onglets !
 

Coco-31

XLDnaute Junior
Re : Afficher par mot clé les feuilles masquées

Bonjour Si...,

J'avais regardé de ce coté là mais malheureusement sans succès, le code plante et là aussi je ne vois pas pourquoi

Dommage le code est pur mais n'affiche pas les feuilles masquées dont le nom contient wx

merci tout de même, peut être à plus
 

Coco-31

XLDnaute Junior
Re : Afficher par mot clé les feuilles masquées

Salut Si...

Je renouvelle ma réponse qui apparemment ma première s'est perdu ou n'a pas été prise en compte.

J'avais regardé également de ce coté là sans succès, le code plante et là aussi je ne vois pas pourquoi. Dommage le code est pur mais il n'affiche pas les feuilles masquées dont le nom contient wx

Peut être une autre idée, sinon le code de Pierrot me sauve

Merci encore et peu être A+
 

Coco-31

XLDnaute Junior
Re : Afficher par mot clé les feuilles masquées

Merci Pierrot,

Ce dernier code n'affiche pas les feuilles masquées dont le nom contient wx, par contre ton code de 11 h 55 est parfait.
Après on chipote, si mon code initial masque les feuilles on devrait en changeant la syntaxe, pouvoir afficher les feuilles masquées
en tout cas merci pour les réponses
 

Discussions similaires

R
Réponses
2
Affichages
2 K
Roland
R

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof