Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Cacher les actions d'une macro

Cacher les actions d'une macro

22 réponses
Avatar
teapot
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:=False

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


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
Signaler un problème avec ce contenu

10 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
1 2 3
Avatar
GD
;-)))
c'est plutot la tienne...
moi je suis déja en avance de 2mn !!!
http://www.horlogeparlante.com/france_lille_328.php
Heure locale et date : 29/08/2004 16:00:32


"AV" a écrit dans le message de
news:
pourtant le tien est daté 3 minutes avant!
Il y a des trucs que je ne m'expliquerai jamais!


Ben la pendule de GD n'est peut-être pas à l'heure ...!

AV






Avatar
teapot
Bonjour

Alors mes félicitations vont à AV (Rendons à César ce qui est à lui -
Avé)

Bons le screen updating est en place et tout est parfait pour demain matin

Alors maintenant je peux un peu jouer

Dans ton code ci-dessous

Si je prends l'option "ou même"
Est-ce qu'il fait exactement ce que je veux

J'explique

Quand je tape le montant en I16 sur la feuille Paranew je dois valider cette
info
car elle déclanche toute une série de calcul sur trois feuille séparées
(automatique)
Puis puis je dois copier une rangée (la 48) et mettre la valeur seulement
dans la rangée 59 quand le montant de I16 est 0
dans la rangée 58 quand le montant de I16 est 5000
dans la rangée 57 quand le montant de I16 est 7500
dans la rangée 56 quand le montant de I16 est 10000
Etc
Il y a une dizaine de cellules sur la rangée 48 qui change suivant le
montant determiné par I16
et c'est ces valeurs là que je dois mettre dans les rangées respectives
Je sais c'est un compliqué mais mon boss est encore plus compliqué

Mais comme j'ai dit
La macro, comme elle est maintenant fonctionne,
donc il n'y a pas le feu

Encore merci et à plus tard

Rex





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







Avatar
GD
;o)))
c'est trop simple....
au boulot je n'ai pas accès aux serveur de news
je passe donc par un site autorisé et utilise la page d'accés aux news
groups :
(en une seule ligne)
http://support.microsoft.com/newsgroups/default.aspx?ICP=GSS3&NewsGroup=microsoft.public.fr.excel&SLCID=FR&sd=GN&id=fh;FR;NEWSGROUPS

c'est ce que l'on nomme l'interface *!#?¿ CDO
et si l'on prend pas garde ou précise explicitement son pseudo
on est alors automatiquement affublé de :


exemple de suite :

@+



"teapot" a écrit dans le message de
news:%


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" a écrit dans le message news:

;-)))
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" a écrit dans le message de
news:
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" a écrit dans le message news:

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" a écrit dans le message de
news:
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






















Avatar
copie :
;o)))
c'est trop simple....
au boulot je n'ai pas accès aux serveur de news
je passe donc par un site autorisé et utilise la page
d'accés aux news groups :
(en une seule ligne)
http://support.microsoft.com/newsgroups/default.aspx?
ICP=GSS3&NewsGroup=microsoft.public.fr.excel&SLCID=FR&sd=G
N&id=fh;FR;NEWSGROUPS

c'est ce que l'on nomme l'interface *!#?¿ CDO
et si l'on prend pas garde ou précise explicitement son
pseudo
on est alors automatiquement affublé de :



@+

-----Message d'origine-----


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" a écrit dans le message news:

;-)))
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" a écrit dans le
message de


news:
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" a écrit dans le message
news:




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" a écrit dans
le message de




news:
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
















.







Avatar
teapot
Ce matin sur la brocante locale il y avait une vielle pendule à vendre pas
cher
J'auris pu l'acheter et vous l'offrir

Le cadran à l'un et les aiguilles à l'autre

et moi j'aurias gardé la clef

Bonne fin de journée

Rex

"GD" a écrit dans le message news:

;-)))
c'est plutot la tienne...
moi je suis déja en avance de 2mn !!!
http://www.horlogeparlante.com/france_lille_328.php
Heure locale et date : 29/08/2004 16:00:32


"AV" a écrit dans le message de
news:
pourtant le tien est daté 3 minutes avant!
Il y a des trucs que je ne m'expliquerai jamais!


Ben la pendule de GD n'est peut-être pas à l'heure ...!

AV










Avatar
teapot
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" a écrit dans le message news:

;-)))
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" a écrit dans le message de
news:
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" a écrit dans le message news:

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" a écrit dans le message de
news:
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


















Avatar
Misange
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" a écrit dans le message news:


;-)))
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" a écrit dans le message de
news:

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" a écrit dans le message news:


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" a écrit dans le message de
news:

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




















Avatar
Philippe.R
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" a écrit dans le message de
news:%
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" a écrit dans le message news:
O$
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









Avatar
AV
Dans ton code ci-dessous
Si je prends l'option "ou même"
Est-ce qu'il fait exactement ce que je veux


Les 3 syntaxes proposées font strictement ce que fais ta macro....avec qques
lignes de codes en moins et pas de souci pour le screenupdating puisqu'il n'y a
pas besoin de sélectionner pour affecter une valeur à une cellule/plage

Suffit de tester ...
AV

Avatar
teapot
Tu vois

Plus c'est con et plus j'aime

Et bien mon cher Ane honni mousse

Merci de ton aide

Et à un de ces jours je suis sûr


Rex



a écrit dans le message news:
23b601c48dd4$26a1fd30$
copie :
;o)))
c'est trop simple....
au boulot je n'ai pas accès aux serveur de news
je passe donc par un site autorisé et utilise la page
d'accés aux news groups :
(en une seule ligne)
http://support.microsoft.com/newsgroups/default.aspx?
ICP=GSS3&NewsGroup=microsoft.public.fr.excel&SLCID=FR&sd=G
N&id=fh;FR;NEWSGROUPS

c'est ce que l'on nomme l'interface *!#?¿ CDO
et si l'on prend pas garde ou précise explicitement son
pseudo
on est alors automatiquement affublé de :



@+

-----Message d'origine-----


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" a écrit dans le message news:

;-)))
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" a écrit dans le
message de


news:
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" a écrit dans le message
news:




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" a écrit dans
le message de




news:
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
















.







1 2 3