Affichage commentaire + tempo (wait)

[Guigui]

Bonjour

Je souhaiterais afficher un commentaire et que celui-ci soit supprimé
après un laps de temps donné
Tout va bien … mais le commentaire ne s'affiche pas lorsque le timer
fonctionne…
Une petite idée du pourquoi du comment ??

Lorsque je supprime le WAIT, le commentaire s'affiche bien.

Peut etre une histoire de updatescreen .. ou autres

Merci d'avance pour votre aide
Guillaume

 

[kjin]

Re : Affichage commentaire + tempo (wait)

Bonjour,

Sub TEMPO()
Application.DisplayCommentIndicator = xlNoIndicator
With Range("C7")
    .ClearComments 'au cas où
    .AddComment "NE PAS OUBLIER LE SI DU SECOND CODE DR"
    .Comment.Visible = True
    DoEvents
    If Application.Wait(Now + TimeValue("00:00:03")) Then .ClearComments
End With
Application.DisplayCommentIndicator = 0

End Sub

A+
kjin

 

[Guigui]

Re : Affichage commentaire + tempo (wait)

re,

Merci beaucoup !! C'est parfait !

Juste pour comprendre ... (c'est dans ma nature) peux tu m'expliquer ce qui clochais dans mon code ?

Range("C7").AddComment
Range("C7").Comment.Visible = False
Range("C7").Comment.Text Text:="NE PAS OUBLIER LE SI DU SECOND CODE DR"
Range("C7").Select
Application.DisplayCommentIndicator = xlCommentAndIndicator

Range("C7").Comment.Shape.Select True
Application.Wait Now + TimeValue("00:00:03")
Selection.Delete

et que fais ton code "DoEvents"

Merci encore
Slts
Guillaume