fonction & arguments

F

fredouille

Guest
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 :


Code:
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
Code:
=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.

:)
 
P

PP

Guest
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)
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 895
Messages
2 093 383
Membres
105 714
dernier inscrit
POKITO