Recopie "intempestive" de commentaire (vba)
Le
j-pascal
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
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
Poser une question
(userform) dans lequel tu places ton message durant
l'exécution de la macro.
"j-pascal" 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
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 ;-)
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"
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"
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