bonjour,
dans une de mes macros je souhaiterais que certaines feuilles soient masquées.
J'ai un classeur de 80 onglets environ et je trouve ma formule efficace mais pas très optimisée, surtout que je n'ai pas qu'une seule checkbox mais bien une dizaine auxquelles j'applique ce genre de commandes.
Feuil46.Visible = Not CBool(CheckBox1.Value)
Feuil47.Visible = Not CBool(CheckBox1.Value)
Feuil49.Visible = Not CBool(CheckBox1.Value)
Feuil50.Visible = Not CBool(CheckBox1.Value)
Feuil5.Visible = Not CBool(CheckBox1.Value)
Feuil51.Visible = Not CBool(CheckBox1.Value)
Feuil52.Visible = Not CBool(CheckBox1.Value)
Feuil54.Visible = Not CBool(CheckBox1.Value)
Feuil55.Visible = Not CBool(CheckBox1.Value)
Feuil56.Visible = Not CBool(CheckBox1.Value)
Existe - t il une façon d'optimiser ce code ?
Merci d'avance
ed
dans une de mes macros je souhaiterais que certaines feuilles soient masquées.
J'ai un classeur de 80 onglets environ et je trouve ma formule efficace mais pas très optimisée, surtout que je n'ai pas qu'une seule checkbox mais bien une dizaine auxquelles j'applique ce genre de commandes.
Feuil46.Visible = Not CBool(CheckBox1.Value)
Feuil47.Visible = Not CBool(CheckBox1.Value)
Feuil49.Visible = Not CBool(CheckBox1.Value)
Feuil50.Visible = Not CBool(CheckBox1.Value)
Feuil5.Visible = Not CBool(CheckBox1.Value)
Feuil51.Visible = Not CBool(CheckBox1.Value)
Feuil52.Visible = Not CBool(CheckBox1.Value)
Feuil54.Visible = Not CBool(CheckBox1.Value)
Feuil55.Visible = Not CBool(CheckBox1.Value)
Feuil56.Visible = Not CBool(CheckBox1.Value)
Existe - t il une façon d'optimiser ce code ?
Merci d'avance
ed