Discussion :

[Gremlins49]

Bonjour,

J'ai besoin d'extraire une donnée d'une cellule (nom de cheval) par rapport à une liste afin de ramener la donnée si elle est trouvée.
Je m'explique :
J'ai une liste de chevaux dans un onglet "chevaux" en colonne A (liste qui peut contenir près d'une centaine de noms)
J'ai un détail d'opérations liées à ces chevaux dans un onglet "opérations". Le nom du cheval apparaît dans la colonne B. J'aimerais, qu'en colonne E, le nom du cheval soit extrait en testant par rapport à la liste de l'onglet "cheval".

J'ajoute un fichier pour une meilleure compréhension.
J'ai évidement essayé de me débrouiller seule, mais je n'arrive pas extraire le nom du cheval en testant toutes les cellules de la liste.

Merci de votre aide

[jurassic pork]

Hello,
comme ta demande ne m'a pas l'air si facile que cela à faire et comme je ne suis pas un spécialiste des formules, j'ai créé une fonction personnalisée en VBA qui m'a l'air de réaliser ce que tu veux :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function SearchWhoIsIn(Cellule, tabChevaux As Range) As String
Debug.Print Cellule
SearchWhoIsIn = ""
For Each cheval In tabChevaux
If InStr(1, Cellule, cheval) > 0 Then
    SearchWhoIsIn = cheval
End If
Next
End Function

La fonction a comme premier argument la cellule où se trouve le texte dans lequel on doit chercher un cheval. Le deuxième argument est la plage qui correspond aux noms de chevaux de la première feuille.
Voici ce que cela donne :


Chevaux dans la formule correspond à la plage nommée englobant les noms des chevaux de la première feuille.

Le classeur exemple en pièce jointe.

[EDIT] oops à mettre en commentaire le Debug.print du code VBA
Ami calmant, J.P

[Gremlins49]

Trop top !
Rien n'est impossible avec Excel et avec ceux qui savent.... et qui partagent...

Je te remercie d'avoir solutionner ce problème ; la solution me va tout à fait !

[jurassic pork]

Une version plus optimisée de la fonction personnalisée :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function SearchWhoIsIn(Cellule, tabChevaux As Range) As String
SearchWhoIsIn = ""
For Each cheval In tabChevaux
  If InStr(1, Cellule, cheval) > 0 Then
     SearchWhoIsIn = cheval
     Exit Function
  End If
Next
End Function

On sort de la boucle dès que le cheval a été trouvé comme cela on ne balaie pas toute la liste à chaque fois

[Gremlins49]

J'ai quand même une petite question : dans ton code VBA, tu mets en ligne 3 "For Each cheval In tabChevaux". Mais comment est défini "cheval" ?

Merci

[jurassic pork]

J'ai quand même une petite question : dans ton code VBA, tu mets en ligne 3 "For Each cheval In tabChevaux". Mais comment est défini "cheval" ?

C'est vrai que j'aurai dû définir la variable Cheval au début de la fonction :

Code :

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

Dim Cheval

Si il y a Option Explicit au début du module VBA, il y a une erreur de compilation si la variable n'est pas déclarée. Mais ne je n'avais pas mis cette option.

[Gremlins49]

Merci, ça marche nickel dans mon fichier.

Bon week-end