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
AV
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
GD
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
LeSteph
C'est curieux le message de GD est apparu avant celui-ci
pourtant le tien est daté 3 minutes avant!
Il y a des trucs que je ne m'expliquerai jamais!

"AV" a écrit dans le message de
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
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
GD
;-)))
l'heure du post est correcte !!!
AV à été le plus rapide, mais son fournisseur (wana na tou dou !) n'est pas
réputé pour sa diligence !!!
et puis surtout le rafraichissement de news.microsoft.com situé sur le
campus à Seattle n'a lieu que toute les trois minutes !!!

@+
@+
"LeSteph" a écrit dans le message de
news:4131d8a9$0$29655$
C'est curieux le message de GD est apparu avant celui-ci
pourtant le tien est daté 3 minutes avant!
Il y a des trucs que je ne m'expliquerai jamais!

"AV" a écrit dans le message de
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
teapot
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
GD
;-)))
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
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
Eh ben toi

Tu cherche encore à comprendre quelque chose au fonctionement d'internet
toi!!!!

Moi y longtemps que j'ai abandonné

A plus tard

Rex


"LeSteph" a écrit dans le message news:
4131d8a9$0$29655$
C'est curieux le message de GD est apparu avant celui-ci
pourtant le tien est daté 3 minutes avant!
Il y a des trucs que je ne m'expliquerai jamais!

"AV" a écrit dans le message de
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
LeSteph
Eh ben toi
ben voui

Tu cherche encore à comprendre quelque chose au fonctionement d'internet
j'ai peut-être tort

Moi y longtemps que j'ai abandonné
on s'use vite

A plus tard
avec plaisir


LeSteph


"teapot" a écrit dans le message de
news:
Eh ben toi

Tu cherche encore à comprendre quelque chose au fonctionement d'internet
toi!!!!

Moi y longtemps que j'ai abandonné

A plus tard

Rex


"LeSteph" a écrit dans le message news:
4131d8a9$0$29655$
C'est curieux le message de GD est apparu avant celui-ci
pourtant le tien est daté 3 minutes avant!
Il y a des trucs que je ne m'expliquerai jamais!

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













1 2 3