MsgBox de bienvenue, Msgbox d'erreurRésolu

Question

Salut, je cr&#233;e un logiciel de calcul sous VBA(alt +F11 sous excel). Mes calculs n'ont aucun lien avec un classeur Excel, tous est dans l'userform. Notre professeur va compiler le projet avec le logiciel par la suite.
Je souhaiterais faire appara&#238;tre une MsgBox, lorsque l'utilisateur lance l'application.

Voila ce que j'ai fait:
Private Sub UserForm_Click()
MsgBox "Bienvenue"


End Sub
Ca ne fonctionne pas. 

D'autre part, je voudrais faire apparaitre un message d'erreur si l'utilisateur utilise des . pour rentrer des nombres d&#233;cimaux.

On error Goto Erreur
Erreur : MsgBox"Veuillez s'il vous plait utiliser les virgules pour entere vos c"

Donne moi du couscous Ch&#233;rie.

econs · Accepted Answer

Salut,



pour le message de bienvenue, tu t'es tout simplement tromp&#233; d'&#233;venement.




Private Sub WorkBook_Open()

    MsgBox "Bienvenue !"

End Sub



Et ceci &#224; placer &#224; l'endroit o&#249; tu veux valider tes nombres : 



If Instr(1,CStr(monChiffreDecimal),".") > 0 Then

    MsgBox "Veuillez SVP utiliser les virgules pour entrer vos chiffres"

End If


Manu

ta4444 · Answer

ou, plutot que de faire une erreur (&#224; moins que ce ne soit demander par le prof) faire syst&#233;matiquement un :

monChiffreDecimal = Replace((monChiffreDecimal),".", ",")

MsgBox de bienvenue, Msgbox d'erreur

2 réponses

Discussions similaires