application.screenupdating

[Droussel]

Bonjour

j'ai entré une instruction "application.screenupdating = false" dans une macro pour bloquer l'affichage

or cette propriété reste toujours à "vrai"
bien que la macro s'execute

quelqu'un aurait-il une piste ?
merci d'avance

denis

 

[tototiti2008]

Re : application.screenupdating

Bonjour Droussel,

peux-tu nous poster un bout de code pour que l'on voit dans quel contexte ?

 

[Staple1600]

Re : application.screenupdating

Bonjkour


Tu devrais poster ton code VBA qu'on puisse le lire.

EDITION: bonjour tototiti2008, houps Bing !

 

[Droussel]

Re : application.screenupdating

ci-dessous c'est une macro qui s'execute à l'ouverture d'un classeur mais que l'on déclenche par un bouton
ce n'est pas une "auto open"

merci d'avance

Sub ouverttemp()
Workbooks("BULLETIN QUERCY DR.XLS").Worksheets("MENU").Activate
Sheets("MENU").Select
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True
Application.DisplayAlerts = False
ActiveWindow.DisplayHeadings = False
With ActiveWindow
.WindowState = xlMaximized
.DisplayWorkbookTabs = False
End With
With Application
.ScreenUpdating = False
.DisplayScrollBars = False
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With

End Sub

 

[Staple1600]

Re : application.screenupdating

Rebonjour


Et ainsi rédigée, il se passe quoi ?

[FONT=Courier New][COLOR=darkblue]Sub[/COLOR] ouverttemp()
    [COLOR=darkblue]With[/COLOR] Application
        .ScreenUpdating = [COLOR=darkblue]False[/COLOR]
        .DisplayScrollBars = [COLOR=darkblue]False[/COLOR]
        .DisplayFormulaBar = [COLOR=darkblue]False[/COLOR]
        .DisplayStatusBar = [COLOR=darkblue]False[/COLOR]
        .DisplayAlerts = [COLOR=darkblue]False[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    
    [COLOR=darkblue]With[/COLOR] Workbooks("BULLETIN QUERCY DR.XLS")
        [COLOR=darkblue]With[/COLOR] .Worksheets("MENU")
            .Activate
            .Range("A1").Select
            .Protect DrawingObjects:=True, contents:=True, Scenarios:=True
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    
    [COLOR=darkblue]With[/COLOR] ActiveWindow
        .WindowState = xlMaximized
        .DisplayWorkbookTabs = [COLOR=darkblue]False[/COLOR]
        .DisplayHeadings = [COLOR=darkblue]False[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[/FONT]

 

[tototiti2008]

Re : application.screenupdating

Re,
Bonjour Staple,

Application.ScreenUpdating = False

sert à dire : pour les actions que la macro va réaliser à partir de là, je ne veux pas qu'elles apparaissent à l'écran. Ensuite on remet généralement cette propriété à True. Il faut savoir que la plupart du temps, si le code rencontre un End Sub, Application.Screenupdating se remet à True.

 

[Droussel]

Re : application.screenupdating

merci pour les d'eux reponses mais cela ne change rien
en fait quand on passe en mode pas à pas avec F8 et qu'on passe sur l'instruction
le fait de deplacer la souris sur la ligne de macro nous donne la valeur de la ligne d'instruction et si toutes les autres lignes changent, celle-ci reste toujours à "vrai"
c'est incroyable
il doit y avoir un parametre quelconque qui condamne cette instruction
je vais chercher et faire des essais
merci quand meme

denis

 

[tototiti2008]

Re : application.screenupdating

Re,

à tester dans un classeur contenant au moins 3 feuilles

Sub test()
Application.ScreenUpdating = False
ThisWorkbook.Worksheets(1).Activate
ThisWorkbook.Worksheets(2).Activate
ThisWorkbook.Worksheets(3).Activate
ThisWorkbook.Worksheets(1).Activate
MsgBox Application.ScreenUpdating
Application.ScreenUpdating = True
End Sub

Il faut savoir qu'en pas à pas, l'écran affiche toujours les opérations réalisées.

 

[Droussel]

Re : application.screenupdating

bonjour

j'ai fait plusieurs tests et j'ai finalement trouvé
j'aurai du lire plus attentivement le post de tototiti2008

je ne peux pas mettre cette instruction dans une macro d'ouverture
il faut que je la mette avant le code principal

effectivement le "end sub" la remet à vrai

il y a par contre un pb sur l'affichage de l'info-bulle qui reste toujours à vrai mais ce n'est qu'un probleme sans importance

merci encore de votre sollicitude
a plus
denis