Discussion :

[marco62118]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
On Error GoTo motap_V2
....
For m = 1 To UBound(tab_mot)
On Error GoTo 0
 
....
motap_v2:
end

le tableau "tab_mot" peut parfois n'être pas encore défini, n'ayant aucun mot à y mettre.
quand ce tableau est vide VB me renvois un message d'erreur N°9 dépassement de capacité!
Je ne comprends pourquoi le gestionnaire ne gère pas cette erreur , pourquoi il ne renvoit pas le programme à l'étiquette motap_v2.
si je n'ai pas fait d'erreur dans la gestion d'erreur comment faire pour savoir que ce tableau n'est pas dimmensionné?

merci d'avance

[SfJ5Rpw8]

je suppose que tu nous à caché la cause de ton probléme avec tes .... entre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error GoTo motap_V2

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For m = 1 To UBound(tab_mot)

[avigeilpro]

UBound(tab_mot) renvoie -1 si le tableau n'est pas dimensionné, et ne génère donc pas d'erreur. Par contre lorsque tu essaye d'utiliser une valeur, alors l'erreur est générée et n'est pas traitée a cause de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error GoTo 0

Un peu plus de code nous permettra de te donner des réponses plus précises

[SfJ5Rpw8]

UBound(tab_mot) renvoie -1 si le tableau n'est pas dimensionné, et ne génère donc pas d'erreur...

nan erreur 9

[OhMonBato]

D'accord avec Bbil, ce qui n'explique d'ailleurs pas l'erreur "dépassement de capacité". D'ici à ce que le tableau soit dimensionné en fait et que la boucle aille donc trop loin...

[SfJ5Rpw8]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub TestTb()
Dim tb() As Integer
On Error Resume Next
MsgBox UBound(tb)
Debug.Print Err.Number & " : " & Err.Description
End Sub

TestTb
9 : Subscript out of range

[avigeilpro]

j'ai du confondre avec autre chose désolé