Bonjour,

Je cherche à écrire en VB une fonction de recherche dans un tableau.
Voici la fonction :

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
Public Function bChercheChaineDansTableau(ByVal strChaineCherchee As String, ByRef strTTableau() As String) As Boolean
 
Dim iBoucle As Integer          'Variable de boucle
Dim bChaineTrouvee As Boolean   'Indique si la chaîne a été trouvée dans le tableau
 
bChaineTrouvee = False
If strTTableau.Length > 0 Then
    'Au moins un élément dans le tableau
    iBoucle = LBound(strTTableau)
    Do
        If strTTableau(iBoucle) = strChaineCherchee Then
            bChaineTrouvee = True
        End If
        iBoucle = iBoucle + 1
    Loop Until bChaineTrouvee Or iBoucle > UBound(strTTableau)
 
End If
 
bChercheChaineDansTableau = bChaineTrouvee
 
End Function
Pour éviter les problèmes lors de l'appel à LBound(strTTableau) si le tableau est vide, je teste avant la longueur de ce dernier (If strTTableau.Length > 0)
Dès l'entrée dans la fonction, j'ai un message "Erreur de compilation: Qualificateur incorrect" sur strTTableau de strTTableau.Length

Je ne comprends pas, quelqu'un a la solution? Merci