VBA excel probleme de gestion d'erreurRésolu

Question

Bonjour &#224; tous ,

voila je me refait la main sur du VBA excel (je suis debutant) et j'ai eu un petit probleme sur la procedure suivante. En fait le compilateur fait comme si y'avait une erreur, et ce, que zt est pu etre transtyper en integer ou non!!!
alors je sait plusq quoi faire moi (les idees infructueuses sont en commentaires).
Pour le deuxieme msgbox il renvoi une erreur de numero 0, maisi c'est quoi &#231;a ?! et sans la description qui va avec!!!

merci d'avance si vous avez une idee.

Private Sub zt_tab_dim_Exit(ByVal Cancel As MSForms.ReturnBoolean)


On Error GoTo saisie_nulle
Dim zt As Integer
zt = CInt(zt_tab_dim.Text)


'MsgBox (TypeName(zt) & zt)
'MsgBox (Err.Number & Err.Description)
'On Error GoTo 0


saisie_nulle:
MsgBox ("Il faut saisir un entier!!!")
zt_tab_dim.Value = 0


End Sub

samouille666

galopin01 · Accepted Answer

bonjour,
Tu la sors d'ou cette Private Sub ? D'un USF ? D'une InputBox ?
Ce (ByVal Cancel As MSForms.ReturnBoolean) ne me parait pas tr&#232;s orthodoxe pour VBA/Excel.
J'ai juste renomm&#233; ta Sub en :

Private Sub TRUC()
On Error GoTo saisie_nulle
Dim zt As Integer
zt = CInt(zt_tab_dim.Value)
MsgBox (TypeName(zt) & zt)
MsgBox (Err.Number & Err.Description)
On Error GoTo 0
Exit Sub
saisie_nulle:
MsgBox ("Il faut saisir un entier!!!")
zt_tab_dim.Value = 0
End Sub

Et &#231;a ne produit pas d'erreur en sortie d'USF
Nota : Error(0) = pas d'erreur !
Nota2 : Il faut un Exit Sub avant l'&#233;tiquette
A+

cs_samouille666 · Answer

Salut ,
merci bcps &#231;a a l'air de marcher m&#234;me si je ne sais pas 

samouille666

VBA excel probleme de gestion d'erreur

2 réponses

Discussions similaires