Discussion :

[froggytstar]

Bonjour,

Voila je dois effectué une recherche d'une valeur dans un array a plusieurs dimensions.
Voici mon code (une partie):

Code :

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

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

[ARTURO83]

Bonjour,

Essayez ceci (non testé)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        p = ""
        On Error Resume Next
        p = Application.Match(Trim(CStr(tabcore(d, 1))), Application.Index(tabg2r, , 3), 0) + 1
        If Err.Number = 0 Then
            tabcore(d, 2) = tabg2r(p, 2)
            tabcore(d, 3) = tabg2r(p, 1)
            tabcore(d, 4) = tabg2r(p, 4)
        End If
        On Error GoTo 0
nextcore:
    Next d

Cdlt