problème de fonction "Filter" avec Array VBA Résolu/Fermé

Question

Bonjour, 

j'ai le code suivant pour vérifier que ma variable "nomod" appartient a l'ensemble (8,9,...):

Dim nomod As String 
Dim firstarray As Variant, myarray As Variant 

firstarray = Array(8, 9, 10, 11, 12, 13, 14, 15) 
myarray = Filter(firstarray, nomod) 
If UBound(myarray) > -1 Then 

l'instruction "myarray = Filter(firstarray, nomod)" renvoie toujours le même message d'erreur: "erreur de compilation : nombre d'arguments incorrect ou affectation de propriété incorrecte" 

je suis sous Access 2010. avez vous une idée de ce qui coince?

Configuration: Windows XP / Firefox 8.0.1

f894009 · Answer

Bonjour,

votre code est pour du VBA excel, ne fonctionne pas sous access.
Sous access Filter: form.Filter est utilisee pour un formulaire

code pour recherche dans tableau:
Sub test()
    Dim nomod As String
    Dim firstarray As Variant, myarray As Variant
    Dim Trouve As Boolean

    nomod = 25

    firstarray = Array(8, 9, 10, 11, 12, 13, 14, 15)

    For Each myarray In firstarray
        If nomod = myarray Then
            Trouve = True
            Exit For
        End If
    Next myarray
    
    If Trouve Then
        MsgBox "ok"
    Else
        MsgBox "Pas trouvé"
    End If
End Sub

A+

Panda · Answer

merci pour cette solution.

Problème de fonction "Filter" avec Array VBA

2 réponses

Discussions similaires