Cacher les actions d'une macro

Bonjour Teapot,
Il est vrai, comme AV le rappelle régulièrement, que chaque fois que tu
peux substituer :

Sheets("feuil1").Range("a1").Value = 0

à

Sheets("feuil1").select
Range("a1").select
ActiveCell.FormulaR1C1 = "0"

tu évites des select qui ralentissent l'exécution du code et qu'en outre
tu es obligé de masquer par

l'instruction indiquée.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"teapot" <rntohsopmapmson@skynet.be> a écrit dans le message de
news:%23kmQxwcjEHA.636@TK2MSFTNGP12.phx.gbl...

Merci Super Speedy Gonzales

Bonjour à vous, parce que en plus vous êtes deux

Voilà la commande que je chercahis "screen updating" et moi qui cherche
depuis plus d'une heure dans mes bouquins et sur le groupe et les site
(Excellabo etc) après une commande view hide et bien sûr je ne touvais
pas

ce que je cherchais


Merci beaucoup pour la réponse et la vitesse

En ce qui concerne l'autre bout réponse, je vais voir ce que je peux en
tirer, mais la macro est beaucoup plus longue que ce que j'ai posté

Puisqu'il faut changer la valeur dans la cellule I16 une vingtaine de
fois

(de 0 à 40000) et chaque fois copier et coller les valeurs dans les
rangées

afin de faire un graphique pour connaître les différents points de
"Breakeven"

Mais je vais certainement m'inspirer de ta réponse pour alléger le tout

Une fois de plus un grand merci et à bientôt

P.S. en semaine (du boulot) ma signature est RT Teapot c'est pour le
week-end

Rex


Ceci afin de
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message news:
O$C8XqcjEHA.3428@TK2MSFTNGP11.phx.gbl...

Le seul petit souci est que je voudrais savoir comment faire pour
que

les

actions ne soit pas visible

Sub maMacro()
Application.ScreenUpdating = False
'blablabla
end sub

PS : ta macro pourrait se résumer à :

Sub zzz()
Range("Paramnew!I16").Value = 0
Sheets("Simulation").Rows("59:59") > > Sheets("Simulation").Rows("48:48").Value
End Sub

ou encore :
Sub zzz()
Range("Paramnew!I16").Value = 0
Range("Simulation!59:59") = (Range("Simulation!48:48"))
End Sub

ou même :
Sub zzz()
[Paramnew!I16] = 0
[Simulation!A59:IV59] = [Simulation!A48:IV48].Value
End Sub

AV

ane honni mousse = anonymous : Geedee est obligé à son boulot d'utiliser
l'interface web et si l'on n'y prend pas garde, tous les intervenants
via cette interface signent "anonymous".
Quant à l'âne y choit c'est une ref au pays de GeeDee : Aniche

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 29/08/2004 16:32:

Pardon ????

'l'âne honni mousse"


Là , moi pas comprendre

Pourtant moi aimer jeux de mots


Et plus c'est con plus c'est bon

Mais là je pige pas

Peut-être parce que il y a rien à piger

Rex

"GD" <nomail@nomail.net> a écrit dans le message news:
OtnOY7cjEHA.3944@tk2msftngp13.phx.gbl...

;-)))
rex, teapot ...;
il y a des contributeurs que l'on identifie rapidement et prenne très
vite

la température de ce forum,
comme dirait Philippe c'est toujours avec grand plaisir et affinité
qu'on

leur répond.... ;-)))
moi en semaine c'est trés variable :
on notera : Modeste , geedee, ® © ¿,
mais JPS rétorquera que "j'excelle" dans le domaine de 'l'âne honni

mousse"

tel que l'âne y choît !

;o)))

"teapot" <rntohsopmapmson@skynet.be> a écrit dans le message de
news:eBnRXycjEHA.2140@TK2MSFTNGP15.phx.gbl...

Merci (Super) Speedy Gonzales
Et oui t'as eu trois secondes de retard sur AV

Bonjour

Et comme j'ai répondu à AV la commande que je cherchais étais "screen
updating" et je cherche depuis plus d'une heure dans mes bouquins et

sur

le

groupe et les site (Excellabo etc) après une commande view hide et

bien

sûr je ne touvais pas ce que je cherchais

Je ne connais pas les autres commandes dont tu parle mais je vais y

jeter

un

coup d'oeil

Une fois de plus un grand merci et à bientôt

P.S. en semaine (du boulot) ma signature est RT Teapot c'est pour le
week-end

Rex

"GD" <nomail@nomail.net> a écrit dans le message news:
OFO3qpcjEHA.2544@TK2MSFTNGP10.phx.gbl...

Bonsour® teapot,
;-)))
application.screenupdatingúlse
----les actions
application.screenupdating=true

on peut également utiliser :
application.windowstate=xlminimized
----
les actions
----
application.windowstate=xlmaximized

et une combinaison des deux !!!
;-)))
@+

"teapot" <rntohsopmapmson@skynet.be> a écrit dans le message de
news:ubIcWWcjEHA.1048@tk2msftngp13.phx.gbl...

Bon dimanche à tous

Toute petite question toute simple pour ceux qui ont le savoir
Mais, personnellement impoosible pour moi

J' ai une petite macro (qui fonctionne nickel)
Le seul petit souci est que je voudrais savoir comment faire pour

que

les

actions ne soit pas visible

Elle doit aller chercher des info sur d'autres feuilles etc... et je
voudrais que cela se passe en arrière plan


Voici ce que j'ai pour le moment

************************************************
Sheets("Paramnew").Select
Range("I16").Select
ActiveCell.FormulaR1C1 = "0"
Range("I17").Select
Sheets("Simulation").Select
Rows("48:48").Select
Selection.Copy
Rows("59:59").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,

SkipBlanks: > >>>>

_
False, Transpose:úlse

**************************************************************


Le comble est que j'ai vu passée un message à ce sujet il y à

quelques

temps,
mais je ne connait plus le nom de la commande et je ne sais pas

faire

une

recherche

Merci de toute aide ou coup de pouce dans la bonne direction



Un grand merci

Rex