Bonjour
Je dispose d'une macro faisant des calculs assez longs.
Je voudrais, le temps du calcul, afficher une fen=EAtre sans
bouton "Calcul en cours" et la faire disparaitre =E0 la fin
de la macro.
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
AV
Sans se casser la tête : Tu dessines une zone de texte sur ta feuille en la positionnant où tu veux Tu écris ce que tu veux et colore.etc. Tu la nommes (sélection => taper le nom dans la barre des noms (Ex :"Info") => valider)
Sub TaMacro() ActiveSheet.DrawingObjects("Info").Visible = True 'tes intructions '------- 'fin des intructions ActiveSheet.DrawingObjects("Info").Visible = False End Sub
AV
"Jean-Marc" a écrit dans le message news: 00c201c36937$67f7b2b0$ Bonjour Je dispose d'une macro faisant des calculs assez longs. Je voudrais, le temps du calcul, afficher une fenêtre sans bouton "Calcul en cours" et la faire disparaitre à la fin de la macro.
Quelle est la commande à utiliser ?
Sans se casser la tête :
Tu dessines une zone de texte sur ta feuille en la positionnant où tu veux
Tu écris ce que tu veux et colore.etc.
Tu la nommes (sélection => taper le nom dans la barre des noms (Ex :"Info") =>
valider)
Sub TaMacro()
ActiveSheet.DrawingObjects("Info").Visible = True
'tes intructions
'-------
'fin des intructions
ActiveSheet.DrawingObjects("Info").Visible = False
End Sub
AV
"Jean-Marc" <FourcadeJm@free.fr> a écrit dans le message news:
00c201c36937$67f7b2b0$a001280a@phx.gbl...
Bonjour
Je dispose d'une macro faisant des calculs assez longs.
Je voudrais, le temps du calcul, afficher une fenêtre sans
bouton "Calcul en cours" et la faire disparaitre à la fin
de la macro.
Sans se casser la tête : Tu dessines une zone de texte sur ta feuille en la positionnant où tu veux Tu écris ce que tu veux et colore.etc. Tu la nommes (sélection => taper le nom dans la barre des noms (Ex :"Info") => valider)
Sub TaMacro() ActiveSheet.DrawingObjects("Info").Visible = True 'tes intructions '------- 'fin des intructions ActiveSheet.DrawingObjects("Info").Visible = False End Sub
AV
"Jean-Marc" a écrit dans le message news: 00c201c36937$67f7b2b0$ Bonjour Je dispose d'une macro faisant des calculs assez longs. Je voudrais, le temps du calcul, afficher une fenêtre sans bouton "Calcul en cours" et la faire disparaitre à la fin de la macro.
Quelle est la commande à utiliser ?
Jacky
Bonjour AV
Je suis intéressé par cette solution, mais j'ai un problème pour donner un nom à la zone de texte sous XL97 sr2. Es-ce que je me débrouille mal ou faut 'il se contenter du nom par défaut (zone de texte 10) sous XL97.
JJ
"AV" a écrit dans le message news: #
Sans se casser la tête : Tu dessines une zone de texte sur ta feuille en la positionnant où tu veux Tu écris ce que tu veux et colore.etc. Tu la nommes (sélection => taper le nom dans la barre des noms (Ex :"Info") =>
valider)
Sub TaMacro() ActiveSheet.DrawingObjects("Info").Visible = True 'tes intructions '------- 'fin des intructions ActiveSheet.DrawingObjects("Info").Visible = False End Sub
AV
"Jean-Marc" a écrit dans le message news: 00c201c36937$67f7b2b0$ Bonjour Je dispose d'une macro faisant des calculs assez longs. Je voudrais, le temps du calcul, afficher une fenêtre sans bouton "Calcul en cours" et la faire disparaitre à la fin de la macro.
Quelle est la commande à utiliser ?
Bonjour AV
Je suis intéressé par cette solution, mais j'ai un problème pour donner un
nom à la zone de texte sous XL97 sr2.
Es-ce que je me débrouille mal ou faut 'il se contenter du nom par défaut
(zone de texte 10) sous XL97.
JJ
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message news:
#j3dthTaDHA.1384@TK2MSFTNGP10.phx.gbl...
Sans se casser la tête :
Tu dessines une zone de texte sur ta feuille en la positionnant où tu veux
Tu écris ce que tu veux et colore.etc.
Tu la nommes (sélection => taper le nom dans la barre des noms (Ex
:"Info") =>
valider)
Sub TaMacro()
ActiveSheet.DrawingObjects("Info").Visible = True
'tes intructions
'-------
'fin des intructions
ActiveSheet.DrawingObjects("Info").Visible = False
End Sub
AV
"Jean-Marc" <FourcadeJm@free.fr> a écrit dans le message news:
00c201c36937$67f7b2b0$a001280a@phx.gbl...
Bonjour
Je dispose d'une macro faisant des calculs assez longs.
Je voudrais, le temps du calcul, afficher une fenêtre sans
bouton "Calcul en cours" et la faire disparaitre à la fin
de la macro.
Je suis intéressé par cette solution, mais j'ai un problème pour donner un nom à la zone de texte sous XL97 sr2. Es-ce que je me débrouille mal ou faut 'il se contenter du nom par défaut (zone de texte 10) sous XL97.
JJ
"AV" a écrit dans le message news: #
Sans se casser la tête : Tu dessines une zone de texte sur ta feuille en la positionnant où tu veux Tu écris ce que tu veux et colore.etc. Tu la nommes (sélection => taper le nom dans la barre des noms (Ex :"Info") =>
valider)
Sub TaMacro() ActiveSheet.DrawingObjects("Info").Visible = True 'tes intructions '------- 'fin des intructions ActiveSheet.DrawingObjects("Info").Visible = False End Sub
AV
"Jean-Marc" a écrit dans le message news: 00c201c36937$67f7b2b0$ Bonjour Je dispose d'une macro faisant des calculs assez longs. Je voudrais, le temps du calcul, afficher une fenêtre sans bouton "Calcul en cours" et la faire disparaitre à la fin de la macro.
Quelle est la commande à utiliser ?
AV
Sélectionne la bordure de ta zone de texte, saisi un nom dans la barre des noms (mais tu peux aussi garde le nom par défaut si tu veux) et valide
AV
"Jacky" a écrit dans le message news: eVZF6$
Bonjour AV
Je suis intéressé par cette solution, mais j'ai un problème pour donner un nom à la zone de texte sous XL97 sr2. Es-ce que je me débrouille mal ou faut 'il se contenter du nom par défaut (zone de texte 10) sous XL97.
JJ
"AV" a écrit dans le message news: #
Sans se casser la tête : Tu dessines une zone de texte sur ta feuille en la positionnant où tu veux Tu écris ce que tu veux et colore.etc. Tu la nommes (sélection => taper le nom dans la barre des noms (Ex :"Info") =>
valider)
Sub TaMacro() ActiveSheet.DrawingObjects("Info").Visible = True 'tes intructions '------- 'fin des intructions ActiveSheet.DrawingObjects("Info").Visible = False End Sub
AV
"Jean-Marc" a écrit dans le message news: 00c201c36937$67f7b2b0$ Bonjour Je dispose d'une macro faisant des calculs assez longs. Je voudrais, le temps du calcul, afficher une fenêtre sans bouton "Calcul en cours" et la faire disparaitre à la fin de la macro.
Quelle est la commande à utiliser ?
Sélectionne la bordure de ta zone de texte, saisi un nom dans la barre des noms
(mais tu peux aussi garde le nom par défaut si tu veux) et valide
AV
"Jacky" <Jacky.jaeg@wanadoo.fr> a écrit dans le message news:
eVZF6$UaDHA.1128@tk2msftngp13.phx.gbl...
Bonjour AV
Je suis intéressé par cette solution, mais j'ai un problème pour donner un
nom à la zone de texte sous XL97 sr2.
Es-ce que je me débrouille mal ou faut 'il se contenter du nom par défaut
(zone de texte 10) sous XL97.
JJ
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message news:
#j3dthTaDHA.1384@TK2MSFTNGP10.phx.gbl...
Sans se casser la tête :
Tu dessines une zone de texte sur ta feuille en la positionnant où tu veux
Tu écris ce que tu veux et colore.etc.
Tu la nommes (sélection => taper le nom dans la barre des noms (Ex
:"Info") =>
valider)
Sub TaMacro()
ActiveSheet.DrawingObjects("Info").Visible = True
'tes intructions
'-------
'fin des intructions
ActiveSheet.DrawingObjects("Info").Visible = False
End Sub
AV
"Jean-Marc" <FourcadeJm@free.fr> a écrit dans le message news:
00c201c36937$67f7b2b0$a001280a@phx.gbl...
Bonjour
Je dispose d'une macro faisant des calculs assez longs.
Je voudrais, le temps du calcul, afficher une fenêtre sans
bouton "Calcul en cours" et la faire disparaitre à la fin
de la macro.
Sélectionne la bordure de ta zone de texte, saisi un nom dans la barre des noms (mais tu peux aussi garde le nom par défaut si tu veux) et valide
AV
"Jacky" a écrit dans le message news: eVZF6$
Bonjour AV
Je suis intéressé par cette solution, mais j'ai un problème pour donner un nom à la zone de texte sous XL97 sr2. Es-ce que je me débrouille mal ou faut 'il se contenter du nom par défaut (zone de texte 10) sous XL97.
JJ
"AV" a écrit dans le message news: #
Sans se casser la tête : Tu dessines une zone de texte sur ta feuille en la positionnant où tu veux Tu écris ce que tu veux et colore.etc. Tu la nommes (sélection => taper le nom dans la barre des noms (Ex :"Info") =>
valider)
Sub TaMacro() ActiveSheet.DrawingObjects("Info").Visible = True 'tes intructions '------- 'fin des intructions ActiveSheet.DrawingObjects("Info").Visible = False End Sub
AV
"Jean-Marc" a écrit dans le message news: 00c201c36937$67f7b2b0$ Bonjour Je dispose d'une macro faisant des calculs assez longs. Je voudrais, le temps du calcul, afficher une fenêtre sans bouton "Calcul en cours" et la faire disparaitre à la fin de la macro.
Quelle est la commande à utiliser ?
Jacky
OK c'est parfait Merci
"AV" a écrit dans le message news:
Sélectionne la bordure de ta zone de texte, saisi un nom dans la barre des noms
(mais tu peux aussi garde le nom par défaut si tu veux) et valide
AV
"Jacky" a écrit dans le message news: eVZF6$
Bonjour AV
Je suis intéressé par cette solution, mais j'ai un problème pour donner un
nom à la zone de texte sous XL97 sr2. Es-ce que je me débrouille mal ou faut 'il se contenter du nom par défaut
(zone de texte 10) sous XL97.
JJ
"AV" a écrit dans le message news: #
Sans se casser la tête : Tu dessines une zone de texte sur ta feuille en la positionnant où tu veux
Tu écris ce que tu veux et colore.etc. Tu la nommes (sélection => taper le nom dans la barre des noms (Ex :"Info") =>
valider)
Sub TaMacro() ActiveSheet.DrawingObjects("Info").Visible = True 'tes intructions '------- 'fin des intructions ActiveSheet.DrawingObjects("Info").Visible = False End Sub
AV
"Jean-Marc" a écrit dans le message news: 00c201c36937$67f7b2b0$ Bonjour Je dispose d'une macro faisant des calculs assez longs. Je voudrais, le temps du calcul, afficher une fenêtre sans bouton "Calcul en cours" et la faire disparaitre à la fin de la macro.
Quelle est la commande à utiliser ?
OK c'est parfait
Merci
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message news:
ulYpTDVaDHA.3436@tk2msftngp13.phx.gbl...
Sélectionne la bordure de ta zone de texte, saisi un nom dans la barre des
noms
(mais tu peux aussi garde le nom par défaut si tu veux) et valide
AV
"Jacky" <Jacky.jaeg@wanadoo.fr> a écrit dans le message news:
eVZF6$UaDHA.1128@tk2msftngp13.phx.gbl...
Bonjour AV
Je suis intéressé par cette solution, mais j'ai un problème pour donner
un
nom à la zone de texte sous XL97 sr2.
Es-ce que je me débrouille mal ou faut 'il se contenter du nom par
défaut
(zone de texte 10) sous XL97.
JJ
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message news:
#j3dthTaDHA.1384@TK2MSFTNGP10.phx.gbl...
Sans se casser la tête :
Tu dessines une zone de texte sur ta feuille en la positionnant où tu
veux
Tu écris ce que tu veux et colore.etc.
Tu la nommes (sélection => taper le nom dans la barre des noms (Ex
:"Info") =>
valider)
Sub TaMacro()
ActiveSheet.DrawingObjects("Info").Visible = True
'tes intructions
'-------
'fin des intructions
ActiveSheet.DrawingObjects("Info").Visible = False
End Sub
AV
"Jean-Marc" <FourcadeJm@free.fr> a écrit dans le message news:
00c201c36937$67f7b2b0$a001280a@phx.gbl...
Bonjour
Je dispose d'une macro faisant des calculs assez longs.
Je voudrais, le temps du calcul, afficher une fenêtre sans
bouton "Calcul en cours" et la faire disparaitre à la fin
de la macro.
Sélectionne la bordure de ta zone de texte, saisi un nom dans la barre des noms
(mais tu peux aussi garde le nom par défaut si tu veux) et valide
AV
"Jacky" a écrit dans le message news: eVZF6$
Bonjour AV
Je suis intéressé par cette solution, mais j'ai un problème pour donner un
nom à la zone de texte sous XL97 sr2. Es-ce que je me débrouille mal ou faut 'il se contenter du nom par défaut
(zone de texte 10) sous XL97.
JJ
"AV" a écrit dans le message news: #
Sans se casser la tête : Tu dessines une zone de texte sur ta feuille en la positionnant où tu veux
Tu écris ce que tu veux et colore.etc. Tu la nommes (sélection => taper le nom dans la barre des noms (Ex :"Info") =>
valider)
Sub TaMacro() ActiveSheet.DrawingObjects("Info").Visible = True 'tes intructions '------- 'fin des intructions ActiveSheet.DrawingObjects("Info").Visible = False End Sub
AV
"Jean-Marc" a écrit dans le message news: 00c201c36937$67f7b2b0$ Bonjour Je dispose d'une macro faisant des calculs assez longs. Je voudrais, le temps du calcul, afficher une fenêtre sans bouton "Calcul en cours" et la faire disparaitre à la fin de la macro.
Quelle est la commande à utiliser ?
Patrick
Salut,
sur www.excel-downloads.com, quelque a mis en freeware un outil pour voir l'évolution du calcul et cela semble super bien fait. Pat
-----Message d'origine----- Bonjour Je dispose d'une macro faisant des calculs assez longs. Je voudrais, le temps du calcul, afficher une fenêtre sans bouton "Calcul en cours" et la faire disparaitre à la fin de la macro.
Quelle est la commande à utiliser ? .
Salut,
sur www.excel-downloads.com, quelque a mis en freeware un
outil pour voir l'évolution du calcul et cela semble super
bien fait.
Pat
-----Message d'origine-----
Bonjour
Je dispose d'une macro faisant des calculs assez longs.
Je voudrais, le temps du calcul, afficher une fenêtre sans
bouton "Calcul en cours" et la faire disparaitre à la fin
de la macro.
sur www.excel-downloads.com, quelque a mis en freeware un outil pour voir l'évolution du calcul et cela semble super bien fait. Pat
-----Message d'origine----- Bonjour Je dispose d'une macro faisant des calculs assez longs. Je voudrais, le temps du calcul, afficher une fenêtre sans bouton "Calcul en cours" et la faire disparaitre à la fin de la macro.
