Boite texte visible 5 secondes...

[Bérangère]

Bonjour tous !

J'ai un petit souci... comment, à l'ouverture d'un document Excel, faire apparaitre une boite texte durant environ 5 secondes seulement ?

tout est précisé dans mon fichier exemple.

D'avance merci à vous !!!

 

[Art]

Bonjour Bérangère
J'ai trouvé sur la Toile un petit programme qui je pense pourrais te satisfaire.
En lancant la procédure "Sub Test1" tu auras un message d'environ 5 secondes, temps que tu peux faire varier en changeant la ligne de code
"MsgFlash Msg, 5 ou 4 ou 3 etc..."correspondant aux secondes
@+
Art

'envoyer un petit message d'avertissement ou d'information

Sub MsgFlash(Msg$, NbSecondes&)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup Msg, NbSecondes, "Attente", 1
End Sub


Sub Test1()
Dim Msg$
Msg = "Ceci est un test!"
MsgFlash Msg, 5
End Sub

 

[Bérangère]

Merci Art, mais j'ai peur de ne pas comprendre...

Peux tu me faire l'exemple sur mon fichier joint, je serais plus à meme de voir les codes et ou il s'integrent !

Merci à toi !

Bérangère.

 

[LaurentTBT]

Bonsoir à tous.

Bérangère, tu peux utiliser un timer:

Dans la macro événementielle liée à l'ouverture du classeur, tu rends visible ton message. Ensuite, tu lances un OnTime de 5" qui va déclencher au bout de 5" une autre procédure.
Dans cette autre procédure, tu rends invisible ton message.

Attention, j'ai utilisé le message que tu avais sur ton fichier, qui s'appelle "Text Box 1". Il te faudra éventuellement changer ce nom.

Voilà, cela devrait te convenir.

Ceci dit, perso, je préférerais lancer un messagebox au démarrage, et j'obligerais donc l'utilisateur à cliquer sur "OK" pour poursuivre.

 

[Bérangère]

Merci Laurent pour ton aide.

Oui, c'est vrai je n'y avais pas pensé, faire valider la chose par l'utilisateur...
Problème, je ne sais par faire une telle chose, je débute sur Excel...

Si j'osais ... Pourrais tu me faire une t'elle boite sur mon fichier d'exemple !

Milles merci à toi Laurent!

 

[LaurentTBT]

Bonjour Bérangère, bonjour à tous.

Voilà, en une ligne de code, le lancement d'un message d'avertissement à l'ouverture de ton fichier, qui nécessitera de cliquer sur OK pour poursuivre.

Bonne journée.

Laurent.

 

[Art]

Bonjour Bérangère
Désolé de ne pas t'avoir répondu plus tot mais j'ai eu quelques petits
soucis avec l'ordi qui sont maintenant rentrés dans l'ordre.
Je t'envoie un exemple en pièce jointe ou tu pourras modifier quelques parametres suivant tes besoins.
@+
Art

 

[Bérangère]

Merci Art j'attends ton fichier joint !

LaurentTBT ! Il manque ta ligne de commande dans ton Mail !!!
Pas grave ;-) Si tu peux me la joindre ! Merci beaucoup !!!


Merci à vous !

 

[Art]

Bonjour Bérangère, bonjour à tous les participants du forum.

Bérangère, pour avoir le fichier joint il faut que tu clique sur mon dernier post à l'endroit marqué " Boitetexte3.zip" à coté de " Pièce jointe: " puis de le télécharger sur ton ordi.
@+
Art

 

[Bérangère]

Merci ART !!!

Petit détail bizarre malgré tout.... De mon travail cet après midi, je ne voyais aucune pièce jointe !?!?!? Sur de sur !
Ce soir, de chez moi, effectivement la pièce jointe me ...saute aux yeux !

Je crois que c'est un petit problème de pièce jointe n'apparaissant pas à l'instant T, déja évoqué sur ce forum...

De toute façon merci milles fois !

 

[LaurentTBT]

Bonsoir Bérangère. Désolé de ne pas t'avoir répondu plus tôt.

Au cas où tu n'aurais pas pu récupérer mon fichier joint (n°2), voici le code:

Private Sub Workbook_Open()
MsgBox "ATTENTION !" + Chr(13) + Chr(13) + "Toutes les cellules oranges doivent être renseignées", vbInformation, "Avertissement"
End Sub

Bonne soirée.

Laurent

 

[Bérangère]

Merci beaucoup Laurent pour ta bien veillance !