Masquer/Afficher un onglet avec CheckBox

[Amilo]

Bonsoir le Forum,

Voici un code que j'ai réalisé avec l'enregistrement de macro.

Ce code masque et affiche l'onglet nommé "Page 2" puis la séléction revient toujours se positionner sur la cellule B14 de la feuille "Page 1"

Ma question, comme il s'agit d'une macro enregistrée, peut-on simplifier davantage le code ??

Si je souhaite simplifier, parce-que j'aurais d'autres macros à rajouter dans ce classeur, aussi je désire que tous les codes soient le plus simple possible.

Merci d'avance

Cordialement

 

[Robert]

Re : Masquer/Afficher un onglet avec CheckBox

Bonsoir Amilo, bonsoir le forum,

peut-être comme ça :

Private Sub CheckBox1_Click()
'la proprété "visible" de l'onglet prend le contraire de la propriété "Value" de la Checkbox
Sheets("Page 2").Visible = Not CheckBox1.Value
Sheets("Page 1").Select 'sélectionne l'onglet "Page 1"
Range("B14").Select 'sélectionne la cellule B14
End Sub

 

[Amilo]

Re : Masquer/Afficher un onglet avec CheckBox

Bonsoir Amilo, bonsoir le forum,

peut-être comme ça :

Private Sub CheckBox1_Click()
'la proprété "visible" de l'onglet prend le contraire de la propriété "Value" de la Checkbox
Sheets("Page 2").Visible = Not CheckBox1.Value
Sheets("Page 1").Select 'sélectionne l'onglet "Page 1"
Range("B14").Select 'sélectionne la cellule B14
End Sub

Bonsoir Robert,

Merci pour ce nouveau code, je viens de le tester et il fonctionne.
Comme souhaité, il est plus court et plus simple que le mien.

Je pense qu'il y en a pleins d'autres plus ou moins similaires mais celui me convient déjà.

Merci encore

Bonne soirée à tous.