Au lieu d'utiliser un commentaire, utilise un formulaire (userform) dans lequel tu places ton message durant l'exécution de la macro.
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne soit pas copié ?
Merci pour votre aide,
jp
j-pascal
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est pourtant une solution très adaptée. Parfois, il m'arrive de renoncer, par égard pour les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire (userform) dans lequel tu places ton message durant l'exécution de la macro.
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne soit pas copié ?
Merci pour votre aide,
jp
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une
excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est
pourtant une solution très adaptée. Parfois, il m'arrive de renoncer,
par égard pour les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire
(userform) dans lequel tu places ton message durant
l'exécution de la macro.
"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.152b7d9543bfdafe.81386@venir.com... Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True
DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant
un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée
d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne
soit pas copié ?
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est pourtant une solution très adaptée. Parfois, il m'arrive de renoncer, par égard pour les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire (userform) dans lequel tu places ton message durant l'exécution de la macro.
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne soit pas copié ?
Merci pour votre aide,
jp
Mgr T. Banni
tu peux peut-être aussi annuler tous tes commentaires en fin de macro... moi, je ne sais faire que pour la feuille active et ça donne :
Sub SupprimerCommentaires() Dim Cmt As Comments Dim C As Comment Set Cmt = ActiveSheet.Comments For Each C In Cmt C.Visible = True C.Shape.Select Selection.Delete Next End Sub
celui qui t'a parlé d'un userform va bien nous dire comment faire pour que le commentaire s'annule sur les "n" feuilles :-) Mgr T.B. (comme Très Basic)
"j-pascal" a écrit dans le message de news:
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est pourtant une solution très adaptée. Parfois, il m'arrive de renoncer, par égard pour les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire (userform) dans lequel tu places ton message durant l'exécution de la macro.
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne soit pas copié ?
Merci pour votre aide,
jp
tu peux peut-être aussi annuler tous tes commentaires en fin de macro...
moi, je ne sais faire que pour la feuille active et ça donne :
Sub SupprimerCommentaires()
Dim Cmt As Comments
Dim C As Comment
Set Cmt = ActiveSheet.Comments
For Each C In Cmt
C.Visible = True
C.Shape.Select
Selection.Delete
Next
End Sub
celui qui t'a parlé d'un userform va bien nous dire comment faire pour que
le commentaire s'annule sur les "n" feuilles :-)
Mgr T.B. (comme Très Basic)
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.155c7d9543ba07ef.81386@venir.com...
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une
excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est pourtant
une solution très adaptée. Parfois, il m'arrive de renoncer, par égard
pour les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire
(userform) dans lequel tu places ton message durant l'exécution de la
macro.
"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.152b7d9543bfdafe.81386@venir.com... Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True
DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un
filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution
de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne
soit pas copié ?
tu peux peut-être aussi annuler tous tes commentaires en fin de macro... moi, je ne sais faire que pour la feuille active et ça donne :
Sub SupprimerCommentaires() Dim Cmt As Comments Dim C As Comment Set Cmt = ActiveSheet.Comments For Each C In Cmt C.Visible = True C.Shape.Select Selection.Delete Next End Sub
celui qui t'a parlé d'un userform va bien nous dire comment faire pour que le commentaire s'annule sur les "n" feuilles :-) Mgr T.B. (comme Très Basic)
"j-pascal" a écrit dans le message de news:
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est pourtant une solution très adaptée. Parfois, il m'arrive de renoncer, par égard pour les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire (userform) dans lequel tu places ton message durant l'exécution de la macro.
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne soit pas copié ?
Merci pour votre aide,
jp
Mgr T. Banni
:-))))) il n'y pas que Dieu qui devine tout... mais permettez que je vous contredise, mon fils : pour les célébrations dominicales, c'est au blanc que nous carburons.... Mgr T.B.
"MichDenis" a écrit dans le message de news:
Bonjour Mgr,
'---------------------------- Sub test() Dim Sh As Worksheet, C As Comment For Each Sh In Worksheets For Each C In Sh.Comments C.Delete Next Next End Sub '----------------------------
P.S- Gardez-vous un peu de rouge pour les célébrations dominicales! ;-)
Salutations.
"Mgr T. Banni" a écrit dans le message de groupe de discussion : tu peux peut-être aussi annuler tous tes commentaires en fin de macro... moi, je ne sais faire que pour la feuille active et ça donne :
Sub SupprimerCommentaires() Dim Cmt As Comments Dim C As Comment Set Cmt = ActiveSheet.Comments For Each C In Cmt C.Visible = True C.Shape.Select Selection.Delete Next End Sub
celui qui t'a parlé d'un userform va bien nous dire comment faire pour que le commentaire s'annule sur les "n" feuilles :-) Mgr T.B. (comme Très Basic)
"j-pascal" a écrit dans le message de news:
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est pourtant une solution très adaptée. Parfois, il m'arrive de renoncer, par égard pour les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire (userform) dans lequel tu places ton message durant l'exécution de la macro.
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne soit pas copié ?
Merci pour votre aide,
jp
:-)))))
il n'y pas que Dieu qui devine tout...
mais permettez que je vous contredise, mon fils : pour les célébrations
dominicales, c'est au blanc que nous carburons....
Mgr T.B.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
8D4BAE7B-4A55-449E-8D3C-91966BD88302@microsoft.com...
Bonjour Mgr,
'----------------------------
Sub test()
Dim Sh As Worksheet, C As Comment
For Each Sh In Worksheets
For Each C In Sh.Comments
C.Delete
Next
Next
End Sub
'----------------------------
P.S- Gardez-vous un peu de rouge pour les célébrations dominicales! ;-)
Salutations.
"Mgr T. Banni" <vaderetrosp@mas> a écrit dans le message de groupe de
discussion : OEinrV3yJHA.1716@TK2MSFTNGP03.phx.gbl...
tu peux peut-être aussi annuler tous tes commentaires en fin de macro...
moi, je ne sais faire que pour la feuille active et ça donne :
Sub SupprimerCommentaires()
Dim Cmt As Comments
Dim C As Comment
Set Cmt = ActiveSheet.Comments
For Each C In Cmt
C.Visible = True
C.Shape.Select
Selection.Delete
Next
End Sub
celui qui t'a parlé d'un userform va bien nous dire comment faire pour que
le commentaire s'annule sur les "n" feuilles :-)
Mgr T.B. (comme Très Basic)
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.155c7d9543ba07ef.81386@venir.com...
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une
excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est pourtant
une solution très adaptée. Parfois, il m'arrive de renoncer, par égard
pour les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire
(userform) dans lequel tu places ton message durant l'exécution de la
macro.
"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.152b7d9543bfdafe.81386@venir.com... Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True
DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un
filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution
de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne
soit pas copié ?
:-))))) il n'y pas que Dieu qui devine tout... mais permettez que je vous contredise, mon fils : pour les célébrations dominicales, c'est au blanc que nous carburons.... Mgr T.B.
"MichDenis" a écrit dans le message de news:
Bonjour Mgr,
'---------------------------- Sub test() Dim Sh As Worksheet, C As Comment For Each Sh In Worksheets For Each C In Sh.Comments C.Delete Next Next End Sub '----------------------------
P.S- Gardez-vous un peu de rouge pour les célébrations dominicales! ;-)
Salutations.
"Mgr T. Banni" a écrit dans le message de groupe de discussion : tu peux peut-être aussi annuler tous tes commentaires en fin de macro... moi, je ne sais faire que pour la feuille active et ça donne :
Sub SupprimerCommentaires() Dim Cmt As Comments Dim C As Comment Set Cmt = ActiveSheet.Comments For Each C In Cmt C.Visible = True C.Shape.Select Selection.Delete Next End Sub
celui qui t'a parlé d'un userform va bien nous dire comment faire pour que le commentaire s'annule sur les "n" feuilles :-) Mgr T.B. (comme Très Basic)
"j-pascal" a écrit dans le message de news:
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est pourtant une solution très adaptée. Parfois, il m'arrive de renoncer, par égard pour les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire (userform) dans lequel tu places ton message durant l'exécution de la macro.
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne soit pas copié ?
Merci pour votre aide,
jp
j-pascal
Bonsoir,
Merci pour cette proposition ; néanmoins, j'ai oublié de dire que les feuilles (copiées avec le commentaire" étaient exportées vers autant de classeurs ...
J'ignore si c'est possible, mais je ne suis pas très chaud pour générer une macro pour traiter 40 classeurs et donc alonger la procédure ...
Désolé de ne pas l'avoir précisé plus tôt. J'ai dû oublier de prendre ma respiration avant de poser la question ;-)
JP
tu peux peut-être aussi annuler tous tes commentaires en fin de macro... moi, je ne sais faire que pour la feuille active et ça donne :
Sub SupprimerCommentaires() Dim Cmt As Comments Dim C As Comment Set Cmt = ActiveSheet.Comments For Each C In Cmt C.Visible = True C.Shape.Select Selection.Delete Next End Sub
celui qui t'a parlé d'un userform va bien nous dire comment faire pour que le commentaire s'annule sur les "n" feuilles :-) Mgr T.B. (comme Très Basic)
"j-pascal" a écrit dans le message de news:
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est pourtant une solution très adaptée. Parfois, il m'arrive de renoncer, par égard pour les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire (userform) dans lequel tu places ton message durant l'exécution de la macro.
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne soit pas copié ?
Merci pour votre aide,
jp
Bonsoir,
Merci pour cette proposition ; néanmoins, j'ai oublié de dire que les
feuilles (copiées avec le commentaire" étaient exportées vers autant de
classeurs ...
J'ignore si c'est possible, mais je ne suis pas très chaud pour générer
une macro pour traiter 40 classeurs et donc alonger la procédure ...
Désolé de ne pas l'avoir précisé plus tôt. J'ai dû oublier de prendre
ma respiration avant de poser la question ;-)
JP
tu peux peut-être aussi annuler tous tes commentaires en fin de macro...
moi, je ne sais faire que pour la feuille active et ça donne :
Sub SupprimerCommentaires()
Dim Cmt As Comments
Dim C As Comment
Set Cmt = ActiveSheet.Comments
For Each C In Cmt
C.Visible = True
C.Shape.Select
Selection.Delete
Next
End Sub
celui qui t'a parlé d'un userform va bien nous dire comment faire pour que le
commentaire s'annule sur les "n" feuilles :-)
Mgr T.B. (comme Très Basic)
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.155c7d9543ba07ef.81386@venir.com...
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une
excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est pourtant
une solution très adaptée. Parfois, il m'arrive de renoncer, par égard pour
les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire
(userform) dans lequel tu places ton message durant l'exécution de la
macro.
"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.152b7d9543bfdafe.81386@venir.com... Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True
DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un
filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution
de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne
soit pas copié ?
Merci pour cette proposition ; néanmoins, j'ai oublié de dire que les feuilles (copiées avec le commentaire" étaient exportées vers autant de classeurs ...
J'ignore si c'est possible, mais je ne suis pas très chaud pour générer une macro pour traiter 40 classeurs et donc alonger la procédure ...
Désolé de ne pas l'avoir précisé plus tôt. J'ai dû oublier de prendre ma respiration avant de poser la question ;-)
JP
tu peux peut-être aussi annuler tous tes commentaires en fin de macro... moi, je ne sais faire que pour la feuille active et ça donne :
Sub SupprimerCommentaires() Dim Cmt As Comments Dim C As Comment Set Cmt = ActiveSheet.Comments For Each C In Cmt C.Visible = True C.Shape.Select Selection.Delete Next End Sub
celui qui t'a parlé d'un userform va bien nous dire comment faire pour que le commentaire s'annule sur les "n" feuilles :-) Mgr T.B. (comme Très Basic)
"j-pascal" a écrit dans le message de news:
Je n'avais pas pensé à ça (et pour cause !). Ca me paraît être une excellente idée. J'essaye ça demain.
Merci
jp
PS : je garde un très mauvais souvenir des "ProgressBar" qui est pourtant une solution très adaptée. Parfois, il m'arrive de renoncer, par égard pour les contributeurs ;-)
Au lieu d'utiliser un commentaire, utilise un formulaire (userform) dans lequel tu places ton message durant l'exécution de la macro.
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne soit pas copié ?
Merci pour votre aide,
jp
j-pascal
Bonsoir Denis,
J'ai trouvé ici : http://excelabo.net/trucs/userform_message une proposition de D.M. ;-)
Qu'est-ce que "frm1" (dans "frm1.Show") ?
Ce n'est pas un label !?
Je cherche qqch de tout simple ; si je mets un label, j'aurai le pourtour du UF ?!
Sur : (faut-il citer les liens ?)
j'ai trouvé :
# Private Sub Workbook_open() # Load WaitBox # End sub # # # Sub MaProc() # Application.Cursor = XlWait # WaitBox.Show vbModeless # WaitBox.Repaint # # 'MaMacro... # # WaitBox.hide # Application.Cursor=XlDefault # End sub # # # Private Sub WorkBook_BeforeClose(Cancel as Boolean) # # Unload WaitBox # End sub
Je ne comprends pas l'intérêt de charger l'UF dès l'ouverture du classeur !
Que peux-tu me conseiller de très simple ? Un UF qu'on peut mettre en couleur (fond et police) + centrage du texte
@+ ?
jp
Au lieu d'utiliser un commentaire, utilise un formulaire (userform) dans lequel tu places ton message durant l'exécution de la macro.
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne soit pas copié ?
Merci pour votre aide,
jp
Bonsoir Denis,
J'ai trouvé ici : http://excelabo.net/trucs/userform_message
une proposition de D.M. ;-)
Qu'est-ce que "frm1" (dans "frm1.Show") ?
Ce n'est pas un label !?
Je cherche qqch de tout simple ; si je mets un label, j'aurai le
pourtour du UF ?!
Sur : (faut-il citer les liens ?)
j'ai trouvé :
# Private Sub Workbook_open()
# Load WaitBox
# End sub
#
#
# Sub MaProc()
# Application.Cursor = XlWait
# WaitBox.Show vbModeless
# WaitBox.Repaint
#
# 'MaMacro...
#
# WaitBox.hide
# Application.Cursor=XlDefault
# End sub
#
#
# Private Sub WorkBook_BeforeClose(Cancel as Boolean) #
# Unload WaitBox
# End sub
Je ne comprends pas l'intérêt de charger l'UF dès l'ouverture du
classeur !
Que peux-tu me conseiller de très simple ? Un UF qu'on peut mettre en
couleur (fond et police) + centrage du texte
@+ ?
jp
Au lieu d'utiliser un commentaire, utilise un formulaire
(userform) dans lequel tu places ton message durant
l'exécution de la macro.
"j-pascal" <messages@venir.com> a écrit dans le message de groupe de
discussion : mn.152b7d9543bfdafe.81386@venir.com... Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True
DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant
un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée
d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne
soit pas copié ?
J'ai trouvé ici : http://excelabo.net/trucs/userform_message une proposition de D.M. ;-)
Qu'est-ce que "frm1" (dans "frm1.Show") ?
Ce n'est pas un label !?
Je cherche qqch de tout simple ; si je mets un label, j'aurai le pourtour du UF ?!
Sur : (faut-il citer les liens ?)
j'ai trouvé :
# Private Sub Workbook_open() # Load WaitBox # End sub # # # Sub MaProc() # Application.Cursor = XlWait # WaitBox.Show vbModeless # WaitBox.Repaint # # 'MaMacro... # # WaitBox.hide # Application.Cursor=XlDefault # End sub # # # Private Sub WorkBook_BeforeClose(Cancel as Boolean) # # Unload WaitBox # End sub
Je ne comprends pas l'intérêt de charger l'UF dès l'ouverture du classeur !
Que peux-tu me conseiller de très simple ? Un UF qu'on peut mettre en couleur (fond et police) + centrage du texte
@+ ?
jp
Au lieu d'utiliser un commentaire, utilise un formulaire (userform) dans lequel tu places ton message durant l'exécution de la macro.
"j-pascal" a écrit dans le message de groupe de discussion : Bonsoir,
Dans une feuille, je crée un commentaire :
Set MsgTemp = .AddComment(LeTexte_2) (ie) "Calculs en cours ..."
Je le rends visible :
.Visible = True DoEvents
Puis j'appelle une procédure qui va copier la feuille active (suivant un filtre...) vers "n" feuilles.
Puis je mets le commentaire à : .Visible = False
(En résumé : Le commentaire s'affiche pendant toute la durée d'exécution de la procédure).
Le pb, c'est que le commentaire se copie sur toutes les feuilles !
Question : que dois-je insérer dans le code pour que le commentaire ne soit pas copié ?
