Rester sur une feuille pendant l'exécution d'une macro

pierrejean

XLDnaute Barbatruc

• 6 Octobre 2010

• #2

Re : Rester sur une feuille pendant l'exécution d'une macro

Bonjour ledaf

Oui
mettre en debut de macro:

Code:

Application.ScreenUpdating = False

et avant End Sub

Code:

Application.ScreenUpdating = True

 

Vote positif 0 Vote négatif

L

ledaf

XLDnaute Junior

• 6 Octobre 2010

• #3

Re : Rester sur une feuille pendant l'exécution d'une macro

Super ça fonctionne!
Je te remercie.

 

Vote positif 0 Vote négatif

L

ledaf

XLDnaute Junior

• 6 Octobre 2010

• #4

Re : Rester sur une feuille pendant l'exécution d'une macro

Un dernier point qui peut encore améliorer ma macro, juste à la fin de ma macro, je ferme un classeur, et ça même en ayant mis les paramètres que tu m'as dit, j'ai un écran d'un classeur excel avec aucune feuille d'ouverte qui apparaît pendant une seconde.

Une idée pour ce pb?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Octobre 2010

• #5

Re : Rester sur une feuille pendant l'exécution d'une macro

Re

Sans avoir la macro complete (de preference dans un fichier exemple) il est difficile de d'envisager une solution

 

Vote positif 0 Vote négatif

L

ledaf

XLDnaute Junior

• 6 Octobre 2010

• #6

Re : Rester sur une feuille pendant l'exécution d'une macro

Ca plante à cet endroit.

Code:

'fermer le classeur d'affectation des projets
Workbooks("Affectation Projets S Technique.xls").Activate
ActiveWorkbook.Close savechanges:=True
    
    Application.ScreenUpdating = True
    Sheets("Index").Select
    Range("H12").Interior.ColorIndex = 4
    Range("I10") = "100%"
    Sleep 2000
    Application.ScreenUpdating = False
    
Range("A1").Select
Application.ScreenUpdating = True
Sheets("Index").Select

MsgBox "Mise à jour terminé", vbInformation

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 5 Octobre 2019

• #7

pierrejean à dit:

Re : Rester sur une feuille pendant l'exécution d'une macro

Bonjour ledaf

Oui
mettre en debut de macro:

Code:

Application.ScreenUpdating = False

et avant End Sub

Code:

Application.ScreenUpdating = True

Cliquez pour agrandir...

Bonjour Jean,
Ça marche bien.
Après si je veux renseigner mes champs qui comportent des cellules et combobox.
quand je renseigne les donnes du combobox, les cellules seront verrouillé

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 7 Octobre 2019

• #8

ça marche bien, mais quand j'utilise un combobox je ne peux plus selectionner les cellules

 

Vote positif 0 Vote négatif