Fonction Recherche

Fermé
Meliodas54 Messages postés 13 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 21 mars 2016 - 19 janv. 2016 à 16:12
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 19 janv. 2016 à 22:21
Bonjour,

J'aimerais créé une macro VBA excel permettant de recherchait un terme renseignait par l'utilisateur, cependant je n'arrive pas à faire fonctionner mon code...

Le voici:

Function Recherche_1_terme(cible As String) As Range
' Fonction qui renvoie le 1er range contenant le terme cible
' Exemple d'appel : Set x = Recherche_1_terme("toto")  avec x le range contenant "toto"
Set Recherche_1_terme = Range("a1:zz250").Find(cible)
End Function


Pouvez-vous m'aidez ? Merci
A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
19 janv. 2016 à 22:21
Bonjour,

Comme ceci cela devrait mieux fonctionner :
Function Recherche_1_terme(ByVal cible As String) As Range
' Fonction qui renvoie le 1er range contenant le terme cible
' Exemple d'appel : Set x = Recherche_1_terme("toto")  avec x le range contenant "toto"
Set Recherche_1_terme = Range("a1:zz250").Find(cible)
End Function

0