Désactivation de Application.ScreenUpdating perturbe ma macro
3 réponses
J
Bonjour à tous
La macro ci-dessous marche bien si je ne mets pas
Application.ScreenUpdating = False
sinon mon volet se fige de façon aléatoire selon les feuilles.
Quelqu'un a une idée pour améliorer cela?
merci
@+
J@@
Sub ToutesMisenForme()
Dim ws As Worksheet
' Application.ScreenUpdating = False 'ça perturbe
For Each ws In Worksheets
ws.Activate
FigeVolet
DeFusionne
Next
End Sub
Sub DeFusionne()
ActiveSheet.UsedRange.Rows.UnMerge
Columns("A:A").HorizontalAlignment = xlLeft
End Sub
Sub FigeVolet()
ActiveWindow.FreezePanes = False
Application.Goto Reference:="R1C1"
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
Application.Goto Reference:="R2C1" 'décacher
End Sub
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
Daniel
Bonjour. J'ai essayé avec XL2003; apparemment, pas de problème. Daniel "J@@" a écrit dans le message de news:
Bonjour à tous La macro ci-dessous marche bien si je ne mets pas Application.ScreenUpdating = False sinon mon volet se fige de façon aléatoire selon les feuilles. Quelqu'un a une idée pour améliorer cela? merci @+ J@@
Sub ToutesMisenForme() Dim ws As Worksheet ' Application.ScreenUpdating = False 'ça perturbe For Each ws In Worksheets ws.Activate FigeVolet DeFusionne Next End Sub
Sub DeFusionne() ActiveSheet.UsedRange.Rows.UnMerge Columns("A:A").HorizontalAlignment = xlLeft End Sub
Sub FigeVolet() ActiveWindow.FreezePanes = False Application.Goto Reference:="R1C1" ActiveWindow.SplitRow = 1 ActiveWindow.FreezePanes = True Application.Goto Reference:="R2C1" 'décacher End Sub
Bonjour.
J'ai essayé avec XL2003; apparemment, pas de problème.
Daniel
"J@@" <jipivert@-ifrance.com> a écrit dans le message de news:
uj0Aqj9zGHA.4972@TK2MSFTNGP03.phx.gbl...
Bonjour à tous
La macro ci-dessous marche bien si je ne mets pas
Application.ScreenUpdating = False
sinon mon volet se fige de façon aléatoire selon les feuilles.
Quelqu'un a une idée pour améliorer cela?
merci
@+
J@@
Sub ToutesMisenForme()
Dim ws As Worksheet
' Application.ScreenUpdating = False 'ça perturbe
For Each ws In Worksheets
ws.Activate
FigeVolet
DeFusionne
Next
End Sub
Sub DeFusionne()
ActiveSheet.UsedRange.Rows.UnMerge
Columns("A:A").HorizontalAlignment = xlLeft
End Sub
Sub FigeVolet()
ActiveWindow.FreezePanes = False
Application.Goto Reference:="R1C1"
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
Application.Goto Reference:="R2C1" 'décacher
End Sub
Bonjour. J'ai essayé avec XL2003; apparemment, pas de problème. Daniel "J@@" a écrit dans le message de news:
Bonjour à tous La macro ci-dessous marche bien si je ne mets pas Application.ScreenUpdating = False sinon mon volet se fige de façon aléatoire selon les feuilles. Quelqu'un a une idée pour améliorer cela? merci @+ J@@
Sub ToutesMisenForme() Dim ws As Worksheet ' Application.ScreenUpdating = False 'ça perturbe For Each ws In Worksheets ws.Activate FigeVolet DeFusionne Next End Sub
Sub DeFusionne() ActiveSheet.UsedRange.Rows.UnMerge Columns("A:A").HorizontalAlignment = xlLeft End Sub
Sub FigeVolet() ActiveWindow.FreezePanes = False Application.Goto Reference:="R1C1" ActiveWindow.SplitRow = 1 ActiveWindow.FreezePanes = True Application.Goto Reference:="R2C1" 'décacher End Sub
Francois L
Bonjour à tous La macro ci-dessous marche bien si je ne mets pas Application.ScreenUpdating = False sinon mon volet se fige de façon aléatoire selon les feuilles. Quelqu'un a une idée pour améliorer cela? merci
Bonjour,
Pas de problème chez moi avec XL2000
-- François L
Bonjour à tous
La macro ci-dessous marche bien si je ne mets pas
Application.ScreenUpdating = False
sinon mon volet se fige de façon aléatoire selon les feuilles.
Quelqu'un a une idée pour améliorer cela?
merci
Bonjour à tous La macro ci-dessous marche bien si je ne mets pas Application.ScreenUpdating = False sinon mon volet se fige de façon aléatoire selon les feuilles. Quelqu'un a une idée pour améliorer cela? merci
Bonjour,
Pas de problème chez moi avec XL2000
-- François L
J
Bonjour François et Daniel
Bon faut que je réduise l'apéritif, alors ;-( Merci pour le test @+ J@@ (Xl2000 aussi)
Bonjour à tous La macro ci-dessous marche bien si je ne mets pas Application.ScreenUpdating = False sinon mon volet se fige de façon aléatoire selon les feuilles. Quelqu'un a une idée pour améliorer cela? merci
Bonjour,
Pas de problème chez moi avec XL2000
-- François L
Bonjour François et Daniel
Bon
faut que je réduise l'apéritif, alors ;-(
Merci pour le test
@+
J@@ (Xl2000 aussi)
Bonjour à tous
La macro ci-dessous marche bien si je ne mets pas
Application.ScreenUpdating = False
sinon mon volet se fige de façon aléatoire selon les feuilles.
Quelqu'un a une idée pour améliorer cela?
merci
Bon faut que je réduise l'apéritif, alors ;-( Merci pour le test @+ J@@ (Xl2000 aussi)
Bonjour à tous La macro ci-dessous marche bien si je ne mets pas Application.ScreenUpdating = False sinon mon volet se fige de façon aléatoire selon les feuilles. Quelqu'un a une idée pour améliorer cela? merci