Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Erreurs d'instruction dans "Quitter"

Erreurs d'instruction dans "Quitter"

7 réponses
Avatar
jacqueline.zerini
Bonjour à tous,

J'ai un classeur qui doit avant de se fermer aller chercher la" feuille Fin"
masquée avec cellule clignotante : ("A bientôt") puis fermer sur la page
d'Accueil.
Voici mes instructions :
Sub Quitter()
Application.ScreenUpdating = False
Sheets("Fin").Visible = True
Sheets("Fin").Select
Range("D8").Select
Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 300
plage.Interior.ColorIndex = 4
plage.Interior.ColorIndex = 5
Next i
plage.Interior.ColorIndex = Fond
Sheets("Fin").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Accueil").Select
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.CommandBars("Worksheet Menu Bar").Enabled = True
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayVerticalScrollBar = True
.DisplayHorizontalScrollBar = True
.DisplayHeadings = True
.DisplayGridlines = True
End With
Application.WindowState = xlMaximized
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
Sheets("Accueil").Select
Application.Quit
End Sub

Les mêmes instructions sont entrées dans "This Workbook before Close" avec
fermeture sur la feuille d'Accueil

Et ça ne marche pas.
Merci beaucoup par avance pour votre aide
Jacqueline
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
Vincent.
Bonjour,
La première ligne du code :
Application.ScreenUpdating = False
empêche le rafraîchissement de l'écran durant l'exécution
de la macro. En particulier, l'écran ne montre pas la
fenêtre fin et n'affiche pas de cellule clignotante...
Il suffit de passer à True l'argument False pour être
certain que ça marche !
Voilà, et s'il y a d'autres pépins dans le code, reviens
nous les signaler !
A+

V.

-----Message d'origine-----
Bonjour à tous,

J'ai un classeur qui doit avant de se fermer aller
chercher la" feuille Fin"

masquée avec cellule clignotante : ("A bientôt") puis
fermer sur la page

d'Accueil.
Voici mes instructions :
Sub Quitter()
Application.ScreenUpdating = False
Sheets("Fin").Visible = True
Sheets("Fin").Select
Range("D8").Select
Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 300
plage.Interior.ColorIndex = 4
plage.Interior.ColorIndex = 5
Next i
plage.Interior.ColorIndex = Fond
Sheets("Fin").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Accueil").Select
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.CommandBars("Worksheet Menu Bar").Enabled = True
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayVerticalScrollBar = True
.DisplayHorizontalScrollBar = True
.DisplayHeadings = True
.DisplayGridlines = True
End With
Application.WindowState = xlMaximized
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
Sheets("Accueil").Select
Application.Quit
End Sub

Les mêmes instructions sont entrées dans "This Workbook
before Close" avec

fermeture sur la feuille d'Accueil

Et ça ne marche pas.
Merci beaucoup par avance pour votre aide
Jacqueline


.



Avatar
AV
Ca veut pas quitter ?
...................
Application.Quit
End
End Sub

??
AV
Avatar
jacqueline.zerini
Merci beaucoup
Maintenant que j'ai remplacé False par True, j'ai ma feuille "Fin" avec
cellule clignotante, mais il ne va pas sur Accueil pour fermer car j'ai un
débogage au niveau : Fond = ActiveCell.Interior.ColorIndex, c'est curieux..
Jacqueline
"Vincent." a écrit dans le message de
news: 003101c3b826$c6c51a60$
Bonjour,
La première ligne du code :
Application.ScreenUpdating = False
empêche le rafraîchissement de l'écran durant l'exécution
de la macro. En particulier, l'écran ne montre pas la
fenêtre fin et n'affiche pas de cellule clignotante...
Il suffit de passer à True l'argument False pour être
certain que ça marche !
Voilà, et s'il y a d'autres pépins dans le code, reviens
nous les signaler !
A+

V.

-----Message d'origine-----
Bonjour à tous,

J'ai un classeur qui doit avant de se fermer aller
chercher la" feuille Fin"

masquée avec cellule clignotante : ("A bientôt") puis
fermer sur la page

d'Accueil.
Voici mes instructions :
Sub Quitter()
Application.ScreenUpdating = False
Sheets("Fin").Visible = True
Sheets("Fin").Select
Range("D8").Select
Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 300
plage.Interior.ColorIndex = 4
plage.Interior.ColorIndex = 5
Next i
plage.Interior.ColorIndex = Fond
Sheets("Fin").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Accueil").Select
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.CommandBars("Worksheet Menu Bar").Enabled = True
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayVerticalScrollBar = True
.DisplayHorizontalScrollBar = True
.DisplayHeadings = True
.DisplayGridlines = True
End With
Application.WindowState = xlMaximized
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
Sheets("Accueil").Select
Application.Quit
End Sub

Les mêmes instructions sont entrées dans "This Workbook
before Close" avec

fermeture sur la feuille d'Accueil

Et ça ne marche pas.
Merci beaucoup par avance pour votre aide
Jacqueline


.



Avatar
jacqueline.zerini
Je ne vais pas vous ennuyer + longtemps avec ça, mais je ne comprends pas ce
débogage.
Le programme reste sur la feuille "Fin" et ne reviens pas sur Accueil pour
fermer.
y'a tout de même du progrès et encore merci
"AV" a écrit dans le message de news:

Ca veut pas quitter ?
...................
Application.Quit
End
End Sub

??
AV




Avatar
Vincent.
;-)
Un peu radical comme code ça !!!

-----Message d'origine-----
Ca veut pas quitter ?
....................
Application.Quit
End
End Sub

??
AV


.



Avatar
jacqueline.zerini
C'est bon, ça marche
Encore merci
Jacqueline
"AV" a écrit dans le message de news:

Ca veut pas quitter ?
...................
Application.Quit
End
End Sub

??
AV




Avatar
Vincent.
Je ne vois vraiment pas pourquoi ça bug...
Essaie avec Fond = Plage.Interior.ColorIndex
Mais c'est vrai que c'est curieux !

-----Message d'origine-----
Merci beaucoup
Maintenant que j'ai remplacé False par True, j'ai ma
feuille "Fin" avec

cellule clignotante, mais il ne va pas sur Accueil pour
fermer car j'ai un

débogage au niveau : Fond =
ActiveCell.Interior.ColorIndex, c'est curieux..

Jacqueline
"Vincent." a écrit
dans le message de

news: 003101c3b826$c6c51a60$
Bonjour,
La première ligne du code :
Application.ScreenUpdating = False
empêche le rafraîchissement de l'écran durant l'exécution
de la macro. En particulier, l'écran ne montre pas la
fenêtre fin et n'affiche pas de cellule clignotante...
Il suffit de passer à True l'argument False pour être
certain que ça marche !
Voilà, et s'il y a d'autres pépins dans le code, reviens
nous les signaler !
A+

V.

-----Message d'origine-----
Bonjour à tous,

J'ai un classeur qui doit avant de se fermer aller
chercher la" feuille Fin"

masquée avec cellule clignotante : ("A bientôt") puis
fermer sur la page

d'Accueil.
Voici mes instructions :
Sub Quitter()
Application.ScreenUpdating = False
Sheets("Fin").Visible = True
Sheets("Fin").Select
Range("D8").Select
Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 300
plage.Interior.ColorIndex = 4
plage.Interior.ColorIndex = 5
Next i
plage.Interior.ColorIndex = Fond
Sheets("Fin").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Accueil").Select
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
With Application
.DisplayFullScreen = False
.CommandBars("Worksheet Menu Bar").Enabled = True
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayVerticalScrollBar = True
.DisplayHorizontalScrollBar = True
.DisplayHeadings = True
.DisplayGridlines = True
End With
Application.WindowState = xlMaximized
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
Sheets("Accueil").Select
Application.Quit
End Sub

Les mêmes instructions sont entrées dans "This Workbook
before Close" avec

fermeture sur la feuille d'Accueil

Et ça ne marche pas.
Merci beaucoup par avance pour votre aide
Jacqueline


.




.