OVH Cloud OVH Cloud

probleme d'indice de selection

4 réponses
Avatar
PHIL
Bonjour,

Je souhaite via un bouton de commande masquer toutes mes feuilles.

j'ai du code avec
Sheets("feuil2").Visible = xlSheetHidden
.....
je masque 5 feuille
et j'ai aussi ce code pour l'une de feuille qui n'est pas encore créer.
Sheets("feuil4").Visible = xlSheetHidden
donc quand j'appuie sur mon code les autre feuilles se masque mais vba me
genere une erreur car la feuille 4 n'existe pas encore,elle existe lorque que
l'on cree cette feuille via un autre bouton de commande
mais au debut comment contourner ceci, c'est a dire dire si la feuille4
n'existe pas alors ne pas la masquer si la feuille4 exciste alors la masquer.

merci

4 réponses

Avatar
FxM
Bonjour,

Je souhaite via un bouton de commande masquer toutes mes feuilles.

j'ai du code avec
Sheets("feuil2").Visible = xlSheetHidden
......
je masque 5 feuille
et j'ai aussi ce code pour l'une de feuille qui n'est pas encore créer.
Sheets("feuil4").Visible = xlSheetHidden
donc quand j'appuie sur mon code les autre feuilles se masque mais vba me
genere une erreur car la feuille 4 n'existe pas encore,elle existe lorque que
l'on cree cette feuille via un autre bouton de commande
mais au debut comment contourner ceci, c'est a dire dire si la feuille4
n'existe pas alors ne pas la masquer si la feuille4 exciste alors la masquer.

merci


Bonsoir,

Sheets("feuil2").Visible = xlSheetHidden
......
je masque 5 feuille
on error resume next
Sheets("feuil4").Visible = xlSheetHidden
on error goto 0

on error resume next ---> en cas d'erreur, passer à la prochaine
instruction et l'executer si c'est possible

on error got 0 ----> reprendre la main en cas d'erreur et demander ce
qui doit être fait (fin / débogage / ...)

@+
FxM

Avatar
Jacquouille
Bonsoir JEAN PHIL et JEAN passe des meilleures,
Le plus con de ton histoire, c'est que tu donnes la réponse dans ta
question.
Relis-toi et tu trouveras.
Un indice : tu ne saurais pas masquer quelque chose qui n'existe pas, si ce
n'est un fantôme.
Sur Excelabo, il y a un truc pour ce faire, mais il faut y aller.
Je te souhaite bonne chance car plus vite tu auras fini, plus vite .....
Mais, de grâce, lis et relis les questions et les réponses. Vas sur le site
Excelabo.... ( 36 ème fois !)

--
Bien amicalmement, ( ????? )
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.

"PHIL" a écrit dans le message de news:

Bonjour,

Je souhaite via un bouton de commande masquer toutes mes feuilles.

j'ai du code avec
Sheets("feuil2").Visible = xlSheetHidden
.....
je masque 5 feuille
et j'ai aussi ce code pour l'une de feuille qui n'est pas encore créer.
Sheets("feuil4").Visible = xlSheetHidden
donc quand j'appuie sur mon code les autre feuilles se masque mais vba me
genere une erreur car la feuille 4 n'existe pas encore,elle existe lorque
que
l'on cree cette feuille via un autre bouton de commande
mais au debut comment contourner ceci, c'est a dire dire si la feuille4
n'existe pas alors ne pas la masquer si la feuille4 exciste alors la
masquer.

merci


Avatar
PHIL
ca a l'air de fonctionner

merci


Bonjour,

Je souhaite via un bouton de commande masquer toutes mes feuilles.

j'ai du code avec
Sheets("feuil2").Visible = xlSheetHidden
......
je masque 5 feuille
et j'ai aussi ce code pour l'une de feuille qui n'est pas encore créer.
Sheets("feuil4").Visible = xlSheetHidden
donc quand j'appuie sur mon code les autre feuilles se masque mais vba me
genere une erreur car la feuille 4 n'existe pas encore,elle existe lorque que
l'on cree cette feuille via un autre bouton de commande
mais au debut comment contourner ceci, c'est a dire dire si la feuille4
n'existe pas alors ne pas la masquer si la feuille4 exciste alors la masquer.

merci


Bonsoir,

Sheets("feuil2").Visible = xlSheetHidden
......
je masque 5 feuille
on error resume next
Sheets("feuil4").Visible = xlSheetHidden
on error goto 0

on error resume next ---> en cas d'erreur, passer à la prochaine
instruction et l'executer si c'est possible

on error got 0 ----> reprendre la main en cas d'erreur et demander ce
qui doit être fait (fin / débogage / ...)

@+
FxM




Avatar
Gaenonius
ca a l'air de fonctionner


Compte tenu de la question ("masquer toutes mes feuilles"), c'est étonnant ! Il
est en affet impossible de masquer toutes les feuilles d'un classeur, Excel
étant ainsi fait qu'"un classeur doit contenir au moins une feuille visible"
(cité de l'injurebox associée à la tentative de masquer la seule feuille d'un
classeur)...
Mais je n'ai peut-être pas bien compris la question.

--
Gaenonius

ca a l'air de fonctionner

merci




Bonjour,

Je souhaite via un bouton de commande masquer toutes mes feuilles.

j'ai du code avec
Sheets("feuil2").Visible = xlSheetHidden
......
je masque 5 feuille
et j'ai aussi ce code pour l'une de feuille qui n'est pas encore créer.
Sheets("feuil4").Visible = xlSheetHidden
donc quand j'appuie sur mon code les autre feuilles se masque mais vba me
genere une erreur car la feuille 4 n'existe pas encore,elle existe lorque que
l'on cree cette feuille via un autre bouton de commande
mais au debut comment contourner ceci, c'est a dire dire si la feuille4
n'existe pas alors ne pas la masquer si la feuille4 exciste alors la masquer.

merci


Bonsoir,

Sheets("feuil2").Visible = xlSheetHidden
......
je masque 5 feuille
on error resume next
Sheets("feuil4").Visible = xlSheetHidden
on error goto 0

on error resume next ---> en cas d'erreur, passer à la prochaine
instruction et l'executer si c'est possible

on error got 0 ----> reprendre la main en cas d'erreur et demander ce
qui doit être fait (fin / débogage / ...)

@+
FxM