fonction & arguments

[fredouille]

Bonjour a tous !

Je suis en train de bloquer sur un problème qui commence à me rendre :side: :sick: ...fou.

Je créée une fonction sous vba maRecherche :

Public Function maRecherche(x As Range, v As Value) As Integer
    Dim c As Range
    maRecherche = 0
    With x
        For Each c In x
            If c.Value = v Then
                maRecherche = 1
            End If
        Next
    End With
End Function

Ma fonction est plus complexe, et ne peut pas être réalisée par une combinaison de fonctions Excel.

Dans une cellule, je mets la formule suivante

=maRecherche('D:\\[un autre fichier excel.XLS]mafeuille'!$A$1:$T$59

;'toto')

Ce que je n'arrive pas à faire, c'est faire pointer x (de type range sur un autre classeur.
Pourquoi ?
Que faut-il utiliser à la place ?

Merci de votre réponse.

 

[PP]

Bonjour Fredouille, bonjour à tous

Fredouille tu es sur la bonne voie !

Rectifie juste un peu ton code:

Public Function maRecherche(x As Range, v As Variant) As Integer
Dim c As Range
maRecherche = 0
With x
For Each c In x
If c.Value = v Then
maRecherche = 1
End If
Next
End With
End Function

et dans l'appel de ta fonction sépare tes arguments avec ',' et non ';'.

De cette façon, ça marche chez moi

Bon courage
B)