Discussion :

[thomas.herremans]

Bonjour,

Je travaille quotidiennement avec un fichier excel qui contient environ une centaine de feuilles.

Cependant, je n'ai jamais besoin de toutes les voir en même temps. Ainsi pendant une heure je vais travailler avec dix feuilles, puis plus tard avec hut autres feuilles etc etc.

Mon problème est que je perds énormément de temps dans les déplacements entre les feuilles. Imaginez que je travaille avec la première feuille puis la 43ème, puis la 17ème puis la 86ème etc etc.

J'ai créé à la dernière page de mon classeur une feuille reprenant en colonne 1 le nom de chaque feuille. Dans la seconde colonne, je peux indiquer 1 (feuille que je souhaite indiquer) ou 0 (feuille que je souhaite masquer). Je souhaiterais développer une macro qui lise les informations de ma dernière feuille et masque les onglets pour lesquels la valeur est 0 et affiche les onglets pour lesquels la valeur est 1.

J'avoue ne pas du tout savoir comment m'y prendre. J'ai créé un exemple dans le fichier en pièce jointe avec 5 feuilles + 1 feuille de choix.

Pourriez-vous m'aider ?

Un grand merci,

Thomas

[Daniel.C]

Bonjour,

Regarde un classeur exemple. Pour faire apparaître la liste des feuilles, où que tu sois, appuie sur les touches Ctrl, Maj et A. Coche les feuilles à afficher et appuie sur OK. Je peux également masquer et faire apparaître la feuille "Choix".

thomas.herremans Forum.xlsm

[Philippe Tulliez]

Bonjour,
En supposant que la plage où se trouve le nom des feuilles et la valeur 1 ou 0 est construite sur deux colonnes et plusieurs lignes est nommée SheetsName avec portabilité feuille sur la feuille où est cette liste et que je nommerai Param
Voici un exemple à placer dans le module de la feuille [Param]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Deactivate()
 Dim tbl() As Variant, Elem As Integer
 tbl = Range("SheetsName")
 For Elem = 1 To UBound(tbl, 1)
  Worksheets(tbl(Elem, 1)).Visible = tbl(Elem, 2)
 Next
End Sub

Dès que tu quitteras la feuille [Param] les feuilles seront visibles ou masquées.
Attention de ne pas mettre dans la liste la feuille Param pour éviter le risque de la masquer
Mais évidemment il y a une solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Deactivate()
 Dim tbl() As Variant, Elem As Integer
 tbl = Range("SheetsName")
 For Elem = 1 To UBound(tbl, 1)
  If Trim(LCase(tbl(Elem, 1))) <> "param" Then
   Worksheets(tbl(Elem, 1)).Visible = tbl(Elem, 2)
  End If
 Next
End Sub

[thomas.herremans]

Bonjour,

Merci pour votre réponse.

Daniel, le seul problème que je dois à chaque fois cocher les feuilles sur lesquelles je veux travailler...

Philippe, je n'ai pas réussi à implémenter ton code correctement (je suis re-débutant). Je place mon fichier en pièce jointe.

Un grand merci,

Thomas

[Daniel.C]

> Daniel, le seul problème que je dois à chaque fois cocher les feuilles sur lesquelles je veux travailler...

J'ai dû rater un épisode... Sauf si les feuilles 1 sont celles sur les quelles tu veux travailler ? J'ai pensé, sans doute à tort que tu voulais faire un choix parmi les feuilles "1". D'un autre côté, si je liste toutes les feuilles, tu pourrais modifier ton choix de feuilles à la volée sans retourner sur la feuille choix qu'on pourrait supprimer. A toi de voir.

[thomas.herremans]

Bonjour Daniel,

L'idée en fait est la suivante: sur la feuille choix le choix se fera sur la deuxième colonne (0 ou 1 indiqué selon que je veux masque ou afficher la feuille). Mais, je compte avoir des colonnes (3,4,5,6,...) afin de pouvoir faire un simple copier (par exemple de la colonne 3 vers la colonne) lorsque je travaille avec une catégorie de personnes (par exemple les professeurs qui donnent le cours de math).

Je ne sais pas si cela peut t'aider...

Bon dimanche,

Thomas

[Theze]

Bonjour,

Dans le module de la feuille servant au choix des feuilles à afficher, colle ce code et teste en passant les valeurs de 0 à 1 et vice versa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
    If Target.Column <> 2 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target.Value = 0 Then Worksheets(Target.Offset(, -1).Value).Visible = False
    If Target.Value = 1 Then Worksheets(Target.Offset(, -1).Value).Visible = True
 
End Sub

Hervé.

Oups, j'ai oublié une partie du code, le voici complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Column <> 2 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target.Value = 0 Then Worksheets(Target.Offset(, -1).Value).Visible = False
    If Target.Value = 1 Then Worksheets(Target.Offset(, -1).Value).Visible = True
 
End Sub