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
Bonjour James et meilleurs voeux et merci pour ta réponse, oui j'ai essayé plusieurs combinaisons, si je remplace 0 par une autre valeur, ça plante mon code.
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
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
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
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