OVH Cloud OVH Cloud

Macro bricol à remplacer par procédure

2 réponses
Avatar
DC
Bonjour à tous,......................Excel 2000 sous XP

Merci de me lire...!!!..................Bonne Journée...!!!

Voilà; la macro ci-dessous, fonctionne très bien, mais elle à un petit
inconvénient esthétique sur l'écran de la feuille active, répétée 5 fois de
suite, pour récupérer 5 cellules nommées, l'écran oscille comme un
clignoteur,
Est-il possible d'y remedier par une procédure qui n'activerait pas le
classeur source ( ActiveWindow.ActivateNext ) pendant son déroulement,
.........................Merci d'y penser...!!!
'-----------------------------------------------------------
Sub Transfert_sur_Récap()

Windows("Récap.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
ActiveWindow.ActivateNext
Application.Goto Reference:="Numéro"
Selection.Copy
Windows("Récap.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Selection.HorizontalAlignment = xlCenter
ActiveCell.Offset(0, 1).Range("A1").Select
'-------------------------------------------------------------
Cordialement...........Merci d'avance...!!!...................DC

2 réponses

Avatar
Jacky
Bonjour

En debut de macro
Application.ScreenUpdating = False

en fin de macro
Application.ScreenUpdating = True

Salutations
JJ

"DC" a écrit dans le message de
news:43bd1a0d$0$6679$
Bonjour à tous,......................Excel 2000 sous XP

Merci de me lire...!!!..................Bonne Journée...!!!

Voilà; la macro ci-dessous, fonctionne très bien, mais elle à un petit
inconvénient esthétique sur l'écran de la feuille active, répétée 5 fois
de

suite, pour récupérer 5 cellules nommées, l'écran oscille comme un
clignoteur,
Est-il possible d'y remedier par une procédure qui n'activerait pas le
classeur source ( ActiveWindow.ActivateNext ) pendant son déroulement,
.........................Merci d'y penser...!!!
'-----------------------------------------------------------
Sub Transfert_sur_Récap()

Windows("Récap.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
ActiveWindow.ActivateNext
Application.Goto Reference:="Numéro"
Selection.Copy
Windows("Récap.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: > _

False, Transpose:úlse
Selection.HorizontalAlignment = xlCenter
ActiveCell.Offset(0, 1).Range("A1").Select
'-------------------------------------------------------------
Cordialement...........Merci d'avance...!!!...................DC




Avatar
DC
Bonjour à tous,............................Bonjour Jacky,

Merci de ta réponse.... très......très....positive...!!!

J' avais peur d'être obligé de tout reconcevoir, mais toi avec ta baguette
magique, 1 ligne de code en haut + 1 ligne de code en bas et le problème est
résolu........Merci beaucoups, çà fonctionne à merveille, depuis le temps
que je cherchais.........Merci...!!!

Cordialement................Bonne Journée...!!!...........DC

"Jacky" a écrit dans le message de news:
%
Bonjour

En debut de macro
Application.ScreenUpdating = False

en fin de macro
Application.ScreenUpdating = True

Salutations
JJ

"DC" a écrit dans le message de
news:43bd1a0d$0$6679$
Bonjour à tous,......................Excel 2000 sous XP

Merci de me lire...!!!..................Bonne Journée...!!!

Voilà; la macro ci-dessous, fonctionne très bien, mais elle à un petit
inconvénient esthétique sur l'écran de la feuille active, répétée 5 fois
de

suite, pour récupérer 5 cellules nommées, l'écran oscille comme un
clignoteur,
Est-il possible d'y remedier par une procédure qui n'activerait pas le
classeur source ( ActiveWindow.ActivateNext ) pendant son déroulement,
.........................Merci d'y penser...!!!
'-----------------------------------------------------------
Sub Transfert_sur_Récap()

Windows("Récap.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Activate
ActiveWindow.ActivateNext
Application.Goto Reference:="Numéro"
Selection.Copy
Windows("Récap.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks: >> _

False, Transpose:úlse
Selection.HorizontalAlignment = xlCenter
ActiveCell.Offset(0, 1).Range("A1").Select
'-------------------------------------------------------------
Cordialement...........Merci d'avance...!!!...................DC