Voilà, j'ai une macro de masquage des feuilles:
Sub MasquerFeuilles()
Application.ScreenUpdating = False
Worksheets(Array("01", "02", "03", "04", "05", "06", "975",
"Questionnaire")).Select
Sheets("01").Activate
ActiveWindow.SelectedSheets.Visible = False
Range("A20").Select
End Sub
Elle fonctionne bien mais si je la relance une seconde fois (par maladresse
par exemple), elle me retourne une fenêtre de débogage... et pour cause,
elle essaie de masquer des feuilles déjà masquées
Comment ajouter une ligne de code qui évite cet affichage intempestif
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
garnote
Salut Michel,
Je n'ai pas vérifié mais peut-être que On Error Resume Next au début de ta macro.
Serge
"michel-hirard" a écrit dans le message de news: cchatg$bio$
Bonsoir la compagnie,
Voilà, j'ai une macro de masquage des feuilles: Sub MasquerFeuilles() Application.ScreenUpdating = False Worksheets(Array("01", "02", "03", "04", "05", "06", "975", "Questionnaire")).Select Sheets("01").Activate ActiveWindow.SelectedSheets.Visible = False Range("A20").Select End Sub Elle fonctionne bien mais si je la relance une seconde fois (par maladresse
par exemple), elle me retourne une fenêtre de débogage... et pour cause, elle essaie de masquer des feuilles déjà masquées Comment ajouter une ligne de code qui évite cet affichage intempestif
Merci à toutes et tous,
Michel,
Salut Michel,
Je n'ai pas vérifié mais peut-être que
On Error Resume Next
au début de ta macro.
Serge
"michel-hirard" <michel-hirard@wanadoo.fr> a écrit dans le message de news:
cchatg$bio$1@news-reader1.wanadoo.fr...
Bonsoir la compagnie,
Voilà, j'ai une macro de masquage des feuilles:
Sub MasquerFeuilles()
Application.ScreenUpdating = False
Worksheets(Array("01", "02", "03", "04", "05", "06", "975",
"Questionnaire")).Select
Sheets("01").Activate
ActiveWindow.SelectedSheets.Visible = False
Range("A20").Select
End Sub
Elle fonctionne bien mais si je la relance une seconde fois (par
maladresse
par exemple), elle me retourne une fenêtre de débogage... et pour cause,
elle essaie de masquer des feuilles déjà masquées
Comment ajouter une ligne de code qui évite cet affichage intempestif
Je n'ai pas vérifié mais peut-être que On Error Resume Next au début de ta macro.
Serge
"michel-hirard" a écrit dans le message de news: cchatg$bio$
Bonsoir la compagnie,
Voilà, j'ai une macro de masquage des feuilles: Sub MasquerFeuilles() Application.ScreenUpdating = False Worksheets(Array("01", "02", "03", "04", "05", "06", "975", "Questionnaire")).Select Sheets("01").Activate ActiveWindow.SelectedSheets.Visible = False Range("A20").Select End Sub Elle fonctionne bien mais si je la relance une seconde fois (par maladresse
par exemple), elle me retourne une fenêtre de débogage... et pour cause, elle essaie de masquer des feuilles déjà masquées Comment ajouter une ligne de code qui évite cet affichage intempestif
Merci à toutes et tous,
Michel,
michel-hirard
Merci, à Serge, cela marche fort bien en ajoutant "On Error Resume Next" au début de la macro comme tu le suggères J'avais essayé mais en fin de macro (faut dire que je suis assez ignare) Merci encore
Michel,
"garnote" a écrit dans le message de news:8iWGc.7165$
Salut Michel,
Je n'ai pas vérifié mais peut-être que On Error Resume Next au début de ta macro.
Serge
"michel-hirard" a écrit dans le message de news:
cchatg$bio$
Bonsoir la compagnie,
Voilà, j'ai une macro de masquage des feuilles: Sub MasquerFeuilles() Application.ScreenUpdating = False Worksheets(Array("01", "02", "03", "04", "05", "06", "975", "Questionnaire")).Select Sheets("01").Activate ActiveWindow.SelectedSheets.Visible = False Range("A20").Select End Sub Elle fonctionne bien mais si je la relance une seconde fois (par maladresse
par exemple), elle me retourne une fenêtre de débogage... et pour cause, elle essaie de masquer des feuilles déjà masquées Comment ajouter une ligne de code qui évite cet affichage intempestif
Merci à toutes et tous,
Michel,
Merci, à Serge, cela marche fort bien en ajoutant "On Error Resume Next" au
début de la macro comme tu le suggères
J'avais essayé mais en fin de macro (faut dire que je suis assez ignare)
Merci encore
Michel,
"garnote" <rien@absent.net> a écrit dans le message de
news:8iWGc.7165$Rf.2711@edtnps84...
Salut Michel,
Je n'ai pas vérifié mais peut-être que
On Error Resume Next
au début de ta macro.
Serge
"michel-hirard" <michel-hirard@wanadoo.fr> a écrit dans le message de
news:
cchatg$bio$1@news-reader1.wanadoo.fr...
Bonsoir la compagnie,
Voilà, j'ai une macro de masquage des feuilles:
Sub MasquerFeuilles()
Application.ScreenUpdating = False
Worksheets(Array("01", "02", "03", "04", "05", "06", "975",
"Questionnaire")).Select
Sheets("01").Activate
ActiveWindow.SelectedSheets.Visible = False
Range("A20").Select
End Sub
Elle fonctionne bien mais si je la relance une seconde fois (par
maladresse
par exemple), elle me retourne une fenêtre de débogage... et pour cause,
elle essaie de masquer des feuilles déjà masquées
Comment ajouter une ligne de code qui évite cet affichage intempestif
Merci, à Serge, cela marche fort bien en ajoutant "On Error Resume Next" au début de la macro comme tu le suggères J'avais essayé mais en fin de macro (faut dire que je suis assez ignare) Merci encore
Michel,
"garnote" a écrit dans le message de news:8iWGc.7165$
Salut Michel,
Je n'ai pas vérifié mais peut-être que On Error Resume Next au début de ta macro.
Serge
"michel-hirard" a écrit dans le message de news:
cchatg$bio$
Bonsoir la compagnie,
Voilà, j'ai une macro de masquage des feuilles: Sub MasquerFeuilles() Application.ScreenUpdating = False Worksheets(Array("01", "02", "03", "04", "05", "06", "975", "Questionnaire")).Select Sheets("01").Activate ActiveWindow.SelectedSheets.Visible = False Range("A20").Select End Sub Elle fonctionne bien mais si je la relance une seconde fois (par maladresse
par exemple), elle me retourne une fenêtre de débogage... et pour cause, elle essaie de masquer des feuilles déjà masquées Comment ajouter une ligne de code qui évite cet affichage intempestif
Merci à toutes et tous,
Michel,
michdenis
Bonjour Michel,
Pour masquer tes feuilles, ceci devrait suffire :
On error resume next Worksheets(Array("01", "02", "03", "04", "05", "06", "975","Questionnaire")).visible = xlhidden
Salutations!
"michel-hirard" a écrit dans le message de news:cchatg$bio$ Bonsoir la compagnie,
Voilà, j'ai une macro de masquage des feuilles: Sub MasquerFeuilles() Application.ScreenUpdating = False Worksheets(Array("01", "02", "03", "04", "05", "06", "975", "Questionnaire")).Select Sheets("01").Activate ActiveWindow.SelectedSheets.Visible = False Range("A20").Select End Sub Elle fonctionne bien mais si je la relance une seconde fois (par maladresse par exemple), elle me retourne une fenêtre de débogage... et pour cause, elle essaie de masquer des feuilles déjà masquées Comment ajouter une ligne de code qui évite cet affichage intempestif
Merci à toutes et tous,
Michel,
Bonjour Michel,
Pour masquer tes feuilles, ceci devrait suffire :
On error resume next
Worksheets(Array("01", "02", "03", "04", "05", "06", "975","Questionnaire")).visible = xlhidden
Salutations!
"michel-hirard" <michel-hirard@wanadoo.fr> a écrit dans le message de news:cchatg$bio$1@news-reader1.wanadoo.fr...
Bonsoir la compagnie,
Voilà, j'ai une macro de masquage des feuilles:
Sub MasquerFeuilles()
Application.ScreenUpdating = False
Worksheets(Array("01", "02", "03", "04", "05", "06", "975",
"Questionnaire")).Select
Sheets("01").Activate
ActiveWindow.SelectedSheets.Visible = False
Range("A20").Select
End Sub
Elle fonctionne bien mais si je la relance une seconde fois (par maladresse
par exemple), elle me retourne une fenêtre de débogage... et pour cause,
elle essaie de masquer des feuilles déjà masquées
Comment ajouter une ligne de code qui évite cet affichage intempestif
On error resume next Worksheets(Array("01", "02", "03", "04", "05", "06", "975","Questionnaire")).visible = xlhidden
Salutations!
"michel-hirard" a écrit dans le message de news:cchatg$bio$ Bonsoir la compagnie,
Voilà, j'ai une macro de masquage des feuilles: Sub MasquerFeuilles() Application.ScreenUpdating = False Worksheets(Array("01", "02", "03", "04", "05", "06", "975", "Questionnaire")).Select Sheets("01").Activate ActiveWindow.SelectedSheets.Visible = False Range("A20").Select End Sub Elle fonctionne bien mais si je la relance une seconde fois (par maladresse par exemple), elle me retourne une fenêtre de débogage... et pour cause, elle essaie de masquer des feuilles déjà masquées Comment ajouter une ligne de code qui évite cet affichage intempestif
