APPLICATION.MATCH dans un array
Bonjour,
Voila je dois effectué une recherche d'une valeur dans un array a plusieurs dimensions.
Voici mon code (une partie):
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
| For d = 2 To dercor
tmp = Split(tabcore(d, 1), "_")
If tmp(2) = "T" Then
GoTo nextcore
End If
If tmp(0) <> "A" Then
If tmp(0) <> "B" Then
If tmp(0) <> "F" Then
If tmp(0) <> "O" Then
GoTo nextcore
End If
End If
End If
End If
p = ""
p = Application.Match(Trim(CStr(tabcore(d, 1))), Application.Index(tabg2r, , 3), 0) + 1
If Not IsError(p) Then
tabcore(d, 2) = tabg2r(p, 2)
tabcore(d, 3) = tabg2r(p, 1)
tabcore(d, 4) = tabg2r(p, 4)
Else
GoTo nextcore
End If
nextcore:
Next d |
Je rencontre un souci lors que je fais ma recherche dans la table tabg2r et que la valeur cherchée n'est pas présent il m'indique une erreur 13.
A savoir les valeurs cherchées et présentes dans tabg2r ne posent aucun souci.
Pourriez-vous me dire si vous avez une astuce pour la gestion d'erreur lorsque la variable est absente du tableau ?
En vous remerciant d'avance et au plaisir de vous lire.
Cdt,
Tom