Probléme VBA on error

[Yazou]

Bonjour,
J'ai une fonction où j'utilise rempli un tableau, ce tableau je l'utilise dans une autre fonction. Mais depuis que j'ai rajouté un on error dans ma fonction, je peux plus réutiliser ce tableau, je ne comprends pas pourquoi?

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim nb As Integer
If KeyCode = 13 Then
On Error GoTo Err:
...
Taille = nb
ReDim Tableaux(Taille)
For i = 1 To nb
Tableaux(i).Debut = 12 + i
Tableaux(i).Fin = 12 + i
Tableaux(i).nb = 1
Range('B' & 12 + I).Value = i
Next
End
Err: MsgBox 'vous n'avez pas entrer un entier ou un nombre valable'
TextBox1.Value = ''
End Sub

Quand dans une autre fonction, je fais Tableaux(1).Debut, je n'y accéde pas quand j'enleve le on error ça marche.
Je ne comprend pas
Merci d'avance pour votre aide.
Yazou :huh:

 

[Luki]

bonjour Yazou,

J'ai l'impression que ton souci vient du END qui arrête TOUTES les macros en en cours.

Essaie de le remplacer par 'EXIT SUB' et dis moi si ça marche

A+

EDITION

Peut-être un autre PB:
tu écris : on error goto err: ( avec 🙂

le : indique une étiquette, alors écris: on error goto GestionErreur et nomme ton etiquette GestionErreur : ( tu ne peux pas utiliser Err car ça existe déjà dans vba

A++

Message édité par: luki, à: 19/04/2005 11:48

 

[Luki]

Re, voilà qu'il ya des smileys où il ne faut pas§

Le code corrigé:

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim nb As Integer
If KeyCode = 13 Then
On Error GoTo [color=#FF0000]GESTION_ERREUR[/color]
...
Taille = nb
ReDim Tableaux(Taille)
For i = 1 To nb
Tableaux(i).Debut = 12 + i
Tableaux(i).Fin = 12 + i
Tableaux(i).nb = 1
Range('B' & 12 + I).Value = i
Next
exit sub
GESTION_ERREUR:
 MsgBox 'vous n'avez pas entrer un entier ou un nombre valable'
TextBox1.Value = ''

End Sub


A+

 

[Yazou]

Merci beaucoup pour ton aide, mon souci venait bien du end, je ne savais pas que ça arrête toutes les macros.Merci pour le code corrigé.