B
Bad_Dream
Guest
Bonjour,
Mon problème est le suivant :
Dim z As Integer
On Error Resume Next
z = Nblignesfeuil1
If z Then o=o+1 Else _
MsgBox "Entrez un nombre"
GoTo error
[...]
error:
End Sub
Nblignesfeuil1 désigne une zone de texte. Si on alimente la zone de texte par quelquechose qui n'est pas un nombre alors je voudrais que la msgbox renvoit le message "entrez un nombre" et passe directement a la fin du programme! Mais il me trouve une erreur et je ne sais pas pourquoi...
Si quelqun aurait la bonté de m'aider..
Merci!
ps: la traduction en vba de "si z existe alors" est "If z then", mais quelle est la traduction de "si z n'existe pas" ?
Mon problème est le suivant :
Dim z As Integer
On Error Resume Next
z = Nblignesfeuil1
If z Then o=o+1 Else _
MsgBox "Entrez un nombre"
GoTo error
[...]
error:
End Sub
Nblignesfeuil1 désigne une zone de texte. Si on alimente la zone de texte par quelquechose qui n'est pas un nombre alors je voudrais que la msgbox renvoit le message "entrez un nombre" et passe directement a la fin du programme! Mais il me trouve une erreur et je ne sais pas pourquoi...
Si quelqun aurait la bonté de m'aider..
Merci!
ps: la traduction en vba de "si z existe alors" est "If z then", mais quelle est la traduction de "si z n'existe pas" ?