Discussion :

[tomy7]

Bonjour
est ce possible d ecrire un code qui permette au bout de 30 s sur une feuille un message apparait "n oublier pas de mettre a jour"

et le meme message en quittant la feuille?


merci

[Abed_H]

Bonjour
dans la feuille créer un shape nommé "Message" et insert ce code dans un module standart. voir exemple ci-joint

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub AffMessage()
Dim Pause, Start
    Pause = 5    ' Définit la durée.
    Start = Timer    ' Définit l'heure de début.
        ActiveSheet.Shapes("Message").Visible = True ' affiche le message
        Do While Timer < Start + Pause
           DoEvents    ' Donne le contrôle à d'autres processus.
        Loop
    ActiveSheet.Shapes("Message").Visible = False 'cache le message
End Sub

Bonne soirée
Abed_H

[tomy7]

bonjour Abed H, je vais tester ton code ds la semaine mais je dois travailler sur autre chose en priorité...

merci
je te tiens au courant...

[tomy7]

juste une question comment tu fqis pour faire ton Message...?

merci pour le code