Problème de fonction "Filter" avec Array VBA

Résolu/Fermé

panda - 11 juin 2013 à 13:46
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 13 juin 2013 à 19:14

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?

A voir également:

Filter array vba
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Microsoft windows search filter host ✓ - Forum Virus
Echec de filter imprimante - Forum Imprimante
Vba dernière colonne non vide ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 juin 2013 à 16:42

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+

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
13 juin 2013 à 19:14

Bonjour f894009

La fonction Filter n'est pas une fonction Excel, c'est une fonction VBA.Strings

Pour l'utiliser sous Access il faut employer la syntaxe complète :
myarray = VBA.Strings.Filter(firstarray, nomod)

Cordialement
Patrice

Réponse 2 / 2

Panda
13 juin 2013 à 16:47

merci pour cette solution.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters