Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Désactivation de Application.ScreenUpdating perturbe ma macro

Désactivation de Application.ScreenUpdating perturbe ma macro

3 réponses
Avatar
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
Signaler un problème avec ce contenu

3 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
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


Avatar
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

Avatar
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