gestion d'erreur en LotusScript

[virginie]

Bonjour,J’ai le même problème que le message que j’avais posté(@Prompt [OKCANCELEDIT] avec valeur numérique) mais cette fois ci en LotusScript.Dim num As Integernum = Cint(Inputbox ("Quel numéro souhaitez-vous?", "numéro")) On Error Goto erreur erreur : Messagebox "vous devez saisir un nombre recommencez", MB_OK + MB_ICONINFORMATION, "numéro non valide" Goto fin Je voudrais afficher le message lorsque l’utilisateur saisi autre chose qu’un nombre (texte, espace…) mais je ne sais pas me servir de On Error..Pouvez-vous m’aider ?Merci.

[phi]

salut!je crois que le "on error goto ..." est mal placé : met le avant la ligne qui risque de poser un pb.Phi.Dim num As IntegerOn Error Goto erreur num = Cint(Inputbox ("Quel numéro souhaitez-vous?", "numéro"))erreur : Messagebox "vous devez saisir un nombre recommencez", MB_OK + MB_ICONINFORMATION, "numéro non valide"Goto fin

[Droad]

Sub Click(Source As Button) Dim tnum As String, num As Integer encore: tnum = Inputbox ("Quel numéro souhaitez-vous?", "numéro") If tnum="" Then Exit Sub If Not Isnumeric(tnum) Then Messagebox "vous devez entrer un nombre" Goto encore End If num = Cint(tnum) Messagebox "" & (num+25)End Sub[%sig%]

[virginie]

ca marche très bienmerci.