Afficher masquer certaines feuilles

[kro54]

Bonjour,

J'ai un classeur avec une centaine de feuille. Je voudrais sur la premiere permettre à l'utilisateur de selectionner seulement celles qui l'interessent.

Je pensais associer une valeur dans une cellule de chaque feuille à un bouton de commande sur la premiere feuille qui masquerait toute les feuilles qui ne contiennent pas la valeur dans la cellule déterminée...

Après nombreux essais et recherches je désespère...Merci pour votre aide.

Ci-joint exemple.

 

[job75]

Re : Afficher masquer certaines feuilles

Bonjour kro54,

Dans le code de la 1ère feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub CommandButton1_Click()
Masque CommandButton1.Caption
End Sub

Private Sub CommandButton2_Click()
Masque CommandButton2.Caption
End Sub

Private Sub CommandButton3_Click()
Masque CommandButton3.Caption
End Sub

Private Sub CommandButton4_Click()
Masque CommandButton4.Caption
End Sub

Sub Masque(x$)
Dim w As Worksheet, c As Range
ActiveCell.Activate 'car autrement c'est le bouton qui est actif...
For Each w In Worksheets
  Set c = w.Cells.Find(x, LookIn:=xlValues, LookAt:=xlWhole) 'ou LookAt:=xlPart
  w.Visible = Not c Is Nothing Or w.Name = Me.Name
Next
End Sub

Fichier joint.

A+

 

[kro54]

Re : Afficher masquer certaines feuilles

Merci...

Le code cherche la valeur du bouton dans toute la feuille...Comment limiter la recherche à une cellule.

Si cellule A2=valeur bouton, visible
Si cellule A2><valeur bouton, masquée

 

[job75]

Re : Afficher masquer certaines feuilles

Re,

Comment limiter la recherche à une cellule.

C'est alors plus simple :

Sub Masque(x$)
Dim w As Worksheet
For Each w In Worksheets
  w.Visible = w.[A2] = x Or w.Name = Me.Name 'ou recherche partielle => InStr(w.[A2], x)
Next
End Sub

A+

 

[kro54]

Re : Afficher masquer certaines feuilles

C'est parfait...un grand merci. Vous m'avez fait gagner beaucoup de temps.