Discussion :

[MM_13]

Bonjour,

Je voudrais rechercher une chaine de caractères qui se trouve dans une colonne d'une autre feuille du classeur pour en renvoyer des données d'une autre colonne (un peu comme la fonction index/equiv car les données à renvoyer se situent avant la colonne de recherche).

Je bloque sur ce problème, les formules limitant le nombre de caractères à 255 il faut que je passe par du VBA.
Je ne connais pas beaucoup le VBA et je ne sais pas comment commencer le programme.
On m'a parlé de la fonction find, j'ai un peu regardé comment l'utiliser mais je nage totalement.

Si quelqu'un a une idée je suis preneur.


Merci.

[Philippe Tulliez]

Bonjour,
Un passage dans deux discussions traitant du sujet et une page web

• Un « find » qui ne renvoie pas un range ?
• Problème de recherche dans macro avec "Find"
• FindAll Function

[EBRAG]

Bonjour,

Afin d'y voir un peu plus clair sur ton besoin, peux-tu préciser en quoi Index/Equiv ne fonctionne pas dans ton cas ?

Qu'est-ce qui ferait dépasser la limite de 255 caractères ?

[JFL-forum]

Bonjour,

Désolé pour la tardive réponse !

Je vous propose de tester la fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Trouve_Repere(Valeur_a_Trouver As String)
    Dim Trouve As Range
    Dim Der_Lig As Long
    With Sheets("Feuil1")
        Der_Lig = .Cells(Rows.Count, 2).End(xlUp).Row
        Set Trouve = .Range("B1:B" & Der_Lig).Cells.Find(what:=Valeur_a_Trouver, LookIn:=xlValues, LookAt:=xlPart)
        If Trouve Is Nothing Then
            Trouve_Repere = "Référence non trouvée"
            Exit Function
            Else
            Trouve_Repere = Trouve.Offset(0, -1).Value
        End If
    End With
End Function

Bien évidemment les maîtres es vba corrigeront et amélioreront ce code !

Cordialement

JFL