Bonjour à tous,
J'ai besoin d'une fonction me disant si une chaîne est comprise dans un tableau de chaînes.
N'ayant pas trouvé dans l'aide vba une telle fonction, je cherche à la faire moi même.
j'ai donc :
Je veux l'appeler de la façon suivants :
j'ai un beau message d'erreur à la compilation :
"Incompatibilité de type : tableau ou type défini par l'utilisateur attendu"
Une idée pour me débloquer ?
(que ce soit sur l'existante d'une fonction toute faite ou d'une astuce ou de mon erreur)
Merci d'avance.
J'ai besoin d'une fonction me disant si une chaîne est comprise dans un tableau de chaînes.
N'ayant pas trouvé dans l'aide vba une telle fonction, je cherche à la faire moi même.
j'ai donc :
Code:
Function IsIn(txt As String, ByRef TabTxt() As String) As Boolean
[COLOR="SeaGreen"]' Determine si une chaine est contenue au moins une fois dans un tableau de chaine
[/COLOR]
Dim i As Integer
IsIn = False
For i = LBound(TabTxt()) To UBound(TabTxt())
If StrComp(txt, TabTxt(i), vbTextCompare) = 0 Then
IsIn = True
Exit Function
End If
Next i
End Function
Code:
sub macro1()
Dim combi2(), combi() as string
...
[COLOR="SeaGreen"]' remplissage des deux tableaux[/COLOR]
...
if not IsIn(combi2(j), combi()) then
...
end if
...
j'ai un beau message d'erreur à la compilation :
"Incompatibilité de type : tableau ou type défini par l'utilisateur attendu"
Une idée pour me débloquer ?
(que ce soit sur l'existante d'une fonction toute faite ou d'une astuce ou de mon erreur)
Merci d'avance.