Incompatibilité de type et argument vba

[liloucmoi]

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 :

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

Je veux l'appeler de la façon suivants :

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.

😱

 

[Pierrot93]

Re : Incompatibilité de type et argument vba

Bonjour,

d'après ce que je comprends de ton code, tu devrais passer en 1er argument une chaîne de caractères...

Dim [B]combi2 As String[/B], combi() As String
If Not IsIn([B]combi2[/B], combi()) Then
End If

bon après midi
@+

 

[smotty]

Re : Incompatibilité de type et argument vba

Bonjour,

Voici une fonction que j'utilise dans un de mes programmes:

Function EstDansTab(ByRef T(), ByVal V) As Boolean
    Dim i As Integer
    Dim blok As Boolean
    
    blok = False
    For i = 0 To UBound(T)
        If T(i) = V Then blok = True: Exit For
    Next i
    
    EstDansTab = blok
    
End Function

A adapter

smotty

 

[liloucmoi]

Re : Incompatibilité de type et argument vba

Super, ça marche.

Merci Pierrot, Smotty.