masquer un onglet avec fonction ou formule

[pecheur44]

Bonjour à tous,
Existe-t-il à votre connaissance une fonction ou une formule qui permet, en mettant par exemple un 'x' dans une cellule de déclencher le masquage d'un ou plusieurs onglets de la feuille ?
Merci par avance de l'aide que vous pourrez m'apporter,
Amicalement
🙂

 

[CBernardT]

Bonjour pecheur44,

Tu peux le réaliser avec une macro évènementielle.
Exemple :
cette macro est à placer dans le module de la feuille concernée.
Si tu saisis un x dans la cellule A1, la colonne C est masquée. Si tu effaces ou saisis autre chose, la colonne est affichée.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('A1')) Is Nothing Then
If Range('A1') = 'x' Then
Columns('C:C').EntireColumn.Hidden = True
Else
Columns('C:C').EntireColumn.Hidden = False
End If
End If
End Sub

Cordialement

Bernard

 

[pecheur44]

Bonjour Bernard,
et merci pour cette réponse rapide !
cette astuce fonctionne-t-elle également pour masquer des onglets ?
Amicalement
Pecheur44

 

[CBernardT]

Re pecheur44,

Il faut tout faire ! Lol,

Pour une feuille, la macro devient :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('A1')) Is Nothing Then
If Range('A1') = 'x' Then
Sheets('Feuil2').Visible = False
Else
Sheets('Feuil2').Visible = True
End If
End If
End Sub

Cordialement

Bernard

 

[pecheur44]

oui lol ! (j'avais entamé la démarche lol)
merci beaucoup pour ton aide,
je mets en oeuvre !
bien amicalement
Pecheur44

 

[Jouxte]

Bonjour à tous,à pecheur44 et à CBernardT,

La macro évènementielle pour masquer une colonne peut-elle s'écrire pour masquer des lcolonnes non contigues et également des lignes non contigues

sincères remerciements

 

[Temjeh]

Bonjour à vous

Dans l'ancien forum:

Lien supprimé


Aussi il y a l'option qui affichent et masquentles onglets:

ActiveWindow.DisplayWorkbookTabs = False

ActiveWindow.DisplayWorkbookTabs = True

Temjeh

Message édité par: Temjeh, à: 20/04/2006 13:03

 

[CBernardT]

Re,

Pour répondre à Jouxte, c'est possible.

pour masquer des colonnes contigues ou non, la macro devient :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('A1')) Is Nothing Then
If Range('A1') = 'x' Then
Range('C:C,D😀,F:F').EntireColumn.Hidden = True
Else
Range('C:C,D😀,F:F').EntireColumn.Hidden = False
End If
End If
End Sub

Pour les lignes, c'est idem.

Cordialement

Bernard

 

[pecheur44]

sincèrement désolé, mais je ne réussis pas à faire fonctionner cette astuce...
je joins un fichier 'test' pour exemple.
je ne vois pas où est l'erreur, merci encore pour votre aide !
Amicalement
Pecheur44
[file name=toto_20060420151959.zip size=7149]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/toto_20060420151959.zip[/file]

 

[CBernardT]

Re pecheur44,

Il faut vraiment tout faire ! Lol et relol,

La macro est dans le module de la feuille'Feuil1'.

Le nom de la feuille à masquer était à saisir à la place de 'Feuil3' nom de feuille qui servait d'exemple.

Cordialement

Bernard [file name=TotoV1.zip size=6947]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TotoV1.zip[/file]

 

[pecheur44]

re Bernard,
en voulant 'masquer', je suis 'démasqué' ! lol
eh oui, je débute et ça se voit !
merci pour ta patience et tes précieuses informations.
bien amicalement,
Pecheur44

 

[Jouxte]

Rebonjour à tous,

Je viens de comprendre que range peut se substituer à column ou row si il s'agit d'une plage.

Merci, un peu tardivement, pour tant de sollicitude.