MSGBOX et VBA [Résolu]

salut,

remplace ton code de msgbox par celui-ci, qui met toutes les données du msgbox dans des variables :

Dim Message, Style, Titre

Message = "Cette partie de la page" & vbCrLf & "La case à cocher etc.."
Style = vbOKOnly
Titre = "Aide"
MsgBox Message, Style, Titre

a+

Désolé de répondre presque un an après la dernière réponse moi aussi !!!
Tout d'abord sans vouloir contrarier masterseb je pense que la réponse de c-cube est la meilleure car tu peux en effet gérer ensuite la réponse (d'ou le nom de variable associé à la box ).
Voila pour ma part.

J'aurais cependant une question moi aussi (interet du post ^^)
Y a t-il un moyen "d'actualiser" la message box ?
Je m'explique : par exemple lorsqu'on affiche l'heure, que les secondes défilent, ou dans mon cas, afficher l'écoulement d'un compte à rebours ?

Si besoin du code, demadez moi !

Merci d'avance pour vos réponses si quelqu'un passe par ici !

PS : message au modo : désolé si j'ai pas le droit de reposer une question, effacez et je reposterai en créant un new topic.

salut

montre nous ce que tu as marqué

Salut, merci déja de s'y interesser

VOici le code:

MsgBox ("Cette partie de la page" & vbCrLf & "La case à cocher etc..",vbInformation = vbOKOnly,"Aide")

Sauf que quand je met que je veut un style "Aide", et le titre "Aide", il y a un message d'erreur qui me dit qu'il attend un "=" quelque part..

Merci

Désolé de répondre à un post qui date d'il y a un an, mais il me semble que le problème vient d'une incompréhension de la fonction Msgbox.

Normalement, cette fonction retourne l'identifiant du bouton cliqué par l'utilisateur (ex: vbOk). Donc il est normal qu'il est normal que le compilateur attende une affectation du style :

reponse = Msgbox(...)

ou encore :

if (Msgbox(...) = vbok) then
...
else
...
end if

Si tu veux utiliser Msgbox comme une procédure, rajoute le mot clé "Call" devant, et la valeur de retour de la fonction Msgbox sera tout simplement ignorée :

Call Msgbox(...)

MErci pour tes explication

si tu veux actualiser l'heure et la date, le mieux c'est de te faire un msgbox perso comme une feuille ou tu mets ce que tu veux dedans.
Pour pousser le vis, tu peux meme jusqu'à faire jouer le son associé dans windows

Ok mais la question est : " Comment faire ? "
(dsl de ma "noobité" ^^)

Tu mets un controle timer dans ta feuille et tu mets un label
Ensuite dans la propriete interval de ton timer tu mets 1000 ce qui
Correspond a 1 sec
Et enfin dans sa procedure timer ( de memoire ) tu lui mets un code du style

Label1.caption = format(date,"dd/mm/yyyy") & " " & format(time,"hh:mm:ss")
Label1.refresh

Et la ton label affichera la date & l heure

euh ... j'ai oublié de préciser que je ne connais pas (plus ?) grand chose en vba ...
j'en fais depuis un moment mais je n'ai eu à utiliser que des macros basiques qui généralement, n'ont même pas besoin de crééer des objets (c'est pour dire) et de ce fait, pas mal de bases sont passées aux oubliettes ... je te passe mon code :

Sub tps()
m = MsgBox("Go !", vbOKOnly,"titre")
' durée donnée par la sub precedente '
Start = Timer ' top
Finish = Start + duree

Do While Timer < Finish
il_reste = Int(Finish - Timer)
m0 = CreateObject("Wscript.shell").Popup("TEete" & var_a & " texte " & var_b & " texte " & var_c & " texte" & Chr(10) & _
"Il reste " & il_reste & " secondes avant la fin." & Chr(10) & _
"La fenetre se fermera automatiquement à la fin du temps imparti." & Chr(10) & _
"Appuyez sur OK pour mettre à jour ou sur Cancel pour quitter.", duree, "Titre", vbOKCancel)
If m0 = vbCancel Then
Finish = 10000
'grosse valeur donc fini'
End If
m00 = MsgBox("C'est fini !", vbOKOnly, "Sexy_Game")
DoEvents ' Donne le contrôle à d'autres processus.
Loop
sub_suivante
End Sub

j'aimerais que la variable il_reste se mette à jour dans ma msgbox pour eviter ce vieux message "ok pour mettre a jour " !!

PS : trouvez la touche d'humour !
c'est pour voir ceux qui sont attentifs

Enfait je crois que je vais faire un userform (sauf si plus simple) ... reste à savoir comment insérer une variable dans le texte de la userform

sur une feuille, mettre 1 timer, 2 label ( lbl_date & lbl_message)

dans l'évement

Private Sub Timer1_Timer()

Lbl_Date.Caption = StrConv(Format(Now, "DDDD DD MMMM YYYY - HH:MM:SS"), vbProperCase)

Dim Minute As Integer

Minute = CInt(Mid(Format(Time, "hh:mm:ss"), 4, 2))

Lbl_Message.Caption = "actuellement nous sommes à la minute " & Minute & ""

End Sub

et comment raffraichir cette variable ...

c'est le role du timer...

ca fonction est de déclencher l'évènement à un intervale spécifié en millisecondes...

donc si je copiecolle ton code dans une sub ça marche ???

bah non ... il demande un objet ... jelui donne quoi ?

je t'ai dit
"Sur une feuille, mettre 1 timer, 2 label ( lbl_date & lbl_message) "

rajoutes un composant "Timer Object"
tu le place sur ta feuille ( il est invisble une fois lancé )
dans la propriété "interval" tu mets 1000 ( millisecondes )
et tu regardes ce que ca fait...

par contre je n'avais pas testé, le time ne lui plait pas donc tu mets now

Private Sub IeTimer1_Timer()

Lbl_Date.Caption = StrConv(Format(Now, "DDDD DD MMMM YYYY - HH:MM:SS"), vbProperCase)

Dim Minute As Integer

Minute = CInt(Mid(Format(Now, "hh:MM:ss"), 4, 2))

Lbl_Message.Caption = "actuellement nous sommes à la minute " & Minute & ""

End Sub

MERCI beaucoup

De rien...
Merci pour le merci