Eviter le va et vient d'une fenêtre à l'autre via le activate
8 réponses
remige_paralogique
Je cherche =E0 =E9viter un affichage d=E9sagr=E9able lors de l'ex=E9cution
de ma macro: les .activate utilis=E9s g=E9n=E8rent des va et vient peu
confortables d'une fen=EAtre =E0 l'autre.
Merci pour l'aide que vous m'apporterez pour contourner ce probl=E8me.
Ps: souvent les activates et les sélections sont inutiles...
-- Salutations JJ
a écrit dans le message de news:
Je cherche à éviter un affichage désagréable lors de l'exécution de ma macro: les .activate utilisés génèrent des va et vient peu confortables d'une fenêtre à l'autre. Merci pour l'aide que vous m'apporterez pour contourner ce problème.
Ps: souvent les activates et les sélections sont inutiles...
--
Salutations
JJ
<remige_paralogique@noos.fr> a écrit dans le message de news:
1168503646.523204.225930@77g2000hsv.googlegroups.com...
Je cherche à éviter un affichage désagréable lors de l'exécution
de ma macro: les .activate utilisés génèrent des va et vient peu
confortables d'une fenêtre à l'autre.
Merci pour l'aide que vous m'apporterez pour contourner ce problème.
Ps: souvent les activates et les sélections sont inutiles...
-- Salutations JJ
a écrit dans le message de news:
Je cherche à éviter un affichage désagréable lors de l'exécution de ma macro: les .activate utilisés génèrent des va et vient peu confortables d'une fenêtre à l'autre. Merci pour l'aide que vous m'apporterez pour contourner ce problème.
Jacky
Bonjour Garette
Activate ou select = Même effet
Range("C4").copy range ("D18") ou sheets(1).range("C4").copy sheets(2).range("D18") -- Salutations JJ
"Garette" a écrit dans le message de news: %
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec lesquels on obtient les meme resultats :
Sub Test1() Range("C4").Select Selection.Copy Range("D18").Select ActiveSheet.Paste End Sub
Sub Test2() ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18")) End Sub
Bonjour Garette
Activate ou select = Même effet
Range("C4").copy range ("D18")
ou
sheets(1).range("C4").copy sheets(2).range("D18")
--
Salutations
JJ
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
%23VIfdzVNHHA.4376@TK2MSFTNGP03.phx.gbl...
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec
lesquels on obtient les meme resultats :
Sub Test1()
Range("C4").Select
Selection.Copy
Range("D18").Select
ActiveSheet.Paste
End Sub
Sub Test2()
ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18"))
End Sub
Re... Oupsss...!! J'ai pas vu le "sub Test2()" Excuse..
-- Salutations JJ
"Garette" a écrit dans le message de news: %
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec lesquels on obtient les meme resultats :
Sub Test1() Range("C4").Select Selection.Copy Range("D18").Select ActiveSheet.Paste End Sub
Sub Test2() ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18")) End Sub
Garette
Bonjour Jacky,
Ce n'est pas exactement le meme effet, on ne peut pas faire un Select sur une feuille masquée ... Le Range.copy c'est l'exemple que je donne dans mon précédent Fil ?!...
"Jacky" a écrit dans le message de news: e9sET%
Bonjour Garette
Activate ou select = Même effet
Range("C4").copy range ("D18") ou sheets(1).range("C4").copy sheets(2).range("D18") -- Salutations JJ
"Garette" a écrit dans le message de news: %
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec lesquels on obtient les meme resultats :
Sub Test1() Range("C4").Select Selection.Copy Range("D18").Select ActiveSheet.Paste End Sub
Sub Test2() ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18")) End Sub
Bonjour Jacky,
Ce n'est pas exactement le meme effet, on ne peut pas faire un Select sur
une feuille masquée ...
Le Range.copy c'est l'exemple que je donne dans mon précédent Fil ?!...
"Jacky" <nospams@not> a écrit dans le message de news:
e9sET%23VNHHA.5104@TK2MSFTNGP06.phx.gbl...
Bonjour Garette
Activate ou select = Même effet
Range("C4").copy range ("D18")
ou
sheets(1).range("C4").copy sheets(2).range("D18")
--
Salutations
JJ
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
%23VIfdzVNHHA.4376@TK2MSFTNGP03.phx.gbl...
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec
lesquels on obtient les meme resultats :
Sub Test1()
Range("C4").Select
Selection.Copy
Range("D18").Select
ActiveSheet.Paste
End Sub
Sub Test2()
ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18"))
End Sub
Ce n'est pas exactement le meme effet, on ne peut pas faire un Select sur une feuille masquée ... Le Range.copy c'est l'exemple que je donne dans mon précédent Fil ?!...
"Jacky" a écrit dans le message de news: e9sET%
Bonjour Garette
Activate ou select = Même effet
Range("C4").copy range ("D18") ou sheets(1).range("C4").copy sheets(2).range("D18") -- Salutations JJ
"Garette" a écrit dans le message de news: %
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec lesquels on obtient les meme resultats :
Sub Test1() Range("C4").Select Selection.Copy Range("D18").Select ActiveSheet.Paste End Sub
Sub Test2() ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18")) End Sub
jps
alors, JJ, on ne suit plus, tout ça parce qu'on est allé au fond de la classe avec les mauvais élèves LSteph, FxM, pierre CFI et certains autres que je passe sous silence mais ils se reconnaîtront.... il y a eperluette que Garette il a dit qu'on ne peut pas faire un Select sur une feuille masquée jps
"Garette" a écrit dans le message de news: %23SvS%
Bonjour Jacky,
Ce n'est pas exactement le meme effet, on ne peut pas faire un Select sur une feuille masquée ... Le Range.copy c'est l'exemple que je donne dans mon précédent Fil ?!...
"Jacky" a écrit dans le message de news: e9sET%
Bonjour Garette
Activate ou select = Même effet
Range("C4").copy range ("D18") ou sheets(1).range("C4").copy sheets(2).range("D18") -- Salutations JJ
"Garette" a écrit dans le message de news: %
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec lesquels on obtient les meme resultats :
Sub Test1() Range("C4").Select Selection.Copy Range("D18").Select ActiveSheet.Paste End Sub
Sub Test2() ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18")) End Sub
alors, JJ, on ne suit plus, tout ça parce qu'on est allé au fond de la
classe avec les mauvais élèves LSteph, FxM, pierre CFI et certains autres
que je passe sous silence mais ils se reconnaîtront....
il y a eperluette que Garette il a dit qu'on ne peut pas faire un Select sur
une feuille masquée
jps
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
%23SvS%23UWNHHA.4172@TK2MSFTNGP04.phx.gbl...
Bonjour Jacky,
Ce n'est pas exactement le meme effet, on ne peut pas faire un Select sur
une feuille masquée ...
Le Range.copy c'est l'exemple que je donne dans mon précédent Fil ?!...
"Jacky" <nospams@not> a écrit dans le message de news:
e9sET%23VNHHA.5104@TK2MSFTNGP06.phx.gbl...
Bonjour Garette
Activate ou select = Même effet
Range("C4").copy range ("D18")
ou
sheets(1).range("C4").copy sheets(2).range("D18")
--
Salutations
JJ
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
%23VIfdzVNHHA.4376@TK2MSFTNGP03.phx.gbl...
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec
lesquels on obtient les meme resultats :
Sub Test1()
Range("C4").Select
Selection.Copy
Range("D18").Select
ActiveSheet.Paste
End Sub
Sub Test2()
ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18"))
End Sub
alors, JJ, on ne suit plus, tout ça parce qu'on est allé au fond de la classe avec les mauvais élèves LSteph, FxM, pierre CFI et certains autres que je passe sous silence mais ils se reconnaîtront.... il y a eperluette que Garette il a dit qu'on ne peut pas faire un Select sur une feuille masquée jps
"Garette" a écrit dans le message de news: %23SvS%
Bonjour Jacky,
Ce n'est pas exactement le meme effet, on ne peut pas faire un Select sur une feuille masquée ... Le Range.copy c'est l'exemple que je donne dans mon précédent Fil ?!...
"Jacky" a écrit dans le message de news: e9sET%
Bonjour Garette
Activate ou select = Même effet
Range("C4").copy range ("D18") ou sheets(1).range("C4").copy sheets(2).range("D18") -- Salutations JJ
"Garette" a écrit dans le message de news: %
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec lesquels on obtient les meme resultats :
Sub Test1() Range("C4").Select Selection.Copy Range("D18").Select ActiveSheet.Paste End Sub
Sub Test2() ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18")) End Sub
remige_paralogique
Merci bcp pour le Application.ScreenUpdating = False. Je n'ai déjà plus le mal de mer...
Merci bcp pour le Application.ScreenUpdating = False. Je n'ai déjà
plus le mal de mer...
Merci bcp pour le Application.ScreenUpdating = False. Je n'ai déjà plus le mal de mer...
Jacky
;o))) Avec eux, je veux bien rester au fond de la classe.
Bonjour Jp Je viens de passer en revue mes anciens mails, entre autre celui qui parle de: '----- il n'empeche que la réponse de jacky me donne quand même une idée pour le prochain week end de printemps du mpfe en effet, je le verrais bien se tenir quelque part en alsace, à strasbourg par ex. où nous confierions volontiers l'organisation de cette future manif' aux autochtones.......... '------- S'il y a du sérieux, contacte-moi en bal perso stp. -- Salutations JJ
"jps" a écrit dans le message de news: e$
alors, JJ, on ne suit plus, tout ça parce qu'on est allé au fond de la classe avec les mauvais élèves LSteph, FxM, pierre CFI et certains autres que je passe sous silence mais ils se reconnaîtront.... il y a eperluette que Garette il a dit qu'on ne peut pas faire un Select sur une feuille masquée jps
"Garette" a écrit dans le message de news: %23SvS%
Bonjour Jacky,
Ce n'est pas exactement le meme effet, on ne peut pas faire un Select sur une feuille masquée ... Le Range.copy c'est l'exemple que je donne dans mon précédent Fil ?!...
"Jacky" a écrit dans le message de news: e9sET%
Bonjour Garette
Activate ou select = Même effet
Range("C4").copy range ("D18") ou sheets(1).range("C4").copy sheets(2).range("D18") -- Salutations JJ
"Garette" a écrit dans le message de news: %
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec lesquels on obtient les meme resultats :
Sub Test1() Range("C4").Select Selection.Copy Range("D18").Select ActiveSheet.Paste End Sub
Sub Test2() ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18")) End Sub
;o)))
Avec eux, je veux bien rester au fond de la classe.
Bonjour Jp
Je viens de passer en revue mes anciens mails, entre autre celui qui parle
de:
'-----
il n'empeche que la réponse de jacky me donne quand même une idée pour le
prochain week end de printemps du mpfe
en effet, je le verrais bien se tenir quelque part en alsace, à strasbourg
par ex. où nous confierions volontiers l'organisation de cette future manif'
aux autochtones..........
'-------
S'il y a du sérieux, contacte-moi en bal perso stp.
--
Salutations
JJ
"jps" <vaderetrosp@mas> a écrit dans le message de news:
e$erpyWNHHA.3668@TK2MSFTNGP02.phx.gbl...
alors, JJ, on ne suit plus, tout ça parce qu'on est allé au fond de la
classe avec les mauvais élèves LSteph, FxM, pierre CFI et certains autres
que je passe sous silence mais ils se reconnaîtront....
il y a eperluette que Garette il a dit qu'on ne peut pas faire un Select
sur une feuille masquée
jps
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
%23SvS%23UWNHHA.4172@TK2MSFTNGP04.phx.gbl...
Bonjour Jacky,
Ce n'est pas exactement le meme effet, on ne peut pas faire un Select sur
une feuille masquée ...
Le Range.copy c'est l'exemple que je donne dans mon précédent Fil ?!...
"Jacky" <nospams@not> a écrit dans le message de news:
e9sET%23VNHHA.5104@TK2MSFTNGP06.phx.gbl...
Bonjour Garette
Activate ou select = Même effet
Range("C4").copy range ("D18")
ou
sheets(1).range("C4").copy sheets(2).range("D18")
--
Salutations
JJ
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
%23VIfdzVNHHA.4376@TK2MSFTNGP03.phx.gbl...
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec
lesquels on obtient les meme resultats :
Sub Test1()
Range("C4").Select
Selection.Copy
Range("D18").Select
ActiveSheet.Paste
End Sub
Sub Test2()
ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18"))
End Sub
;o))) Avec eux, je veux bien rester au fond de la classe.
Bonjour Jp Je viens de passer en revue mes anciens mails, entre autre celui qui parle de: '----- il n'empeche que la réponse de jacky me donne quand même une idée pour le prochain week end de printemps du mpfe en effet, je le verrais bien se tenir quelque part en alsace, à strasbourg par ex. où nous confierions volontiers l'organisation de cette future manif' aux autochtones.......... '------- S'il y a du sérieux, contacte-moi en bal perso stp. -- Salutations JJ
"jps" a écrit dans le message de news: e$
alors, JJ, on ne suit plus, tout ça parce qu'on est allé au fond de la classe avec les mauvais élèves LSteph, FxM, pierre CFI et certains autres que je passe sous silence mais ils se reconnaîtront.... il y a eperluette que Garette il a dit qu'on ne peut pas faire un Select sur une feuille masquée jps
"Garette" a écrit dans le message de news: %23SvS%
Bonjour Jacky,
Ce n'est pas exactement le meme effet, on ne peut pas faire un Select sur une feuille masquée ... Le Range.copy c'est l'exemple que je donne dans mon précédent Fil ?!...
"Jacky" a écrit dans le message de news: e9sET%
Bonjour Garette
Activate ou select = Même effet
Range("C4").copy range ("D18") ou sheets(1).range("C4").copy sheets(2).range("D18") -- Salutations JJ
"Garette" a écrit dans le message de news: %
BONJOUR,
soit en utilisant : Application.ScreenUpdating = False
soit en evitant de faire des .activate. Voir exemples ci-dessous avec lesquels on obtient les meme resultats :
Sub Test1() Range("C4").Select Selection.Copy Range("D18").Select ActiveSheet.Paste End Sub
Sub Test2() ActiveSheet.Range("C4").Copy (ActiveSheet.Range("D18")) End Sub
