Problème de Goto

[Bad_Dream]

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" ?

 

[Staple1600]

Re : Problème de Goto

Bonjour


If IsEmpty(z) Then

ou

If z IsNothing then

Sans oublier

If Not ... Then

 

[Bad_Dream]

Re : Problème de Goto

Re
J'ai l'impression que ces trois propositions ne suffisent pas à créér une condition suffisante car, que j'inscrive du texte ou un nombre dans ma zone de texte, la msgbox s'affiche a chaque fois...
Merci

 

[tototiti2008]

Re : Problème de Goto

Bonjour à tous,

vérifier si Nblignesfeuil1 est numérique :

if not isnumeric(Nblignesfeuil1.Text) then

Msgbox "Entrez un nombre"

else
'traitement
end if