XL 2016 recherchev rétif

Tontontonio · 11 Janvier 2021

Bonjour à toutes et à tous,

je cherche à construire des réferences à partir des données de la feuille "liste" et de leur correspondance dans la feuille "BIBLI". avec la formule suivante:
=INDEX('BIBLI POUR REF'!$E$1:$E$14;EQUIV(FAUX; ESTERREUR( CHERCHE('BIBLI POUR REF'!$D$1:$D$14;A1)); 0)) ça fonctionne sur les colonnes B et D de la feuille "REF".
mais pas la colonne C dans laquelle je souhaiterai voir apparaître le numéro correspondant à la pierre.
la formule me renvoie la valeur de "citrine" lorsque j'attend celle de "citrine-cognac". j'ai donc tenté de remplacer les tirets par des %. mais rien à faire .
j'ai essayé REHERCHEV, et même punition.
les formats de cellule sont les mêmes, j'ai testé format texte et format standard, idem.
je ne sais plus quoi faire.
quelqu'un aurait-il une solution?
bonne journée,
Tonio.

mapomme · 11 Janvier 2021

Bonjour à tous,

Un essai avec une fonction personnalisée en VBA:
=CherchePierre(Bijou ; ListePierreCode )

avec bijou le nom du bijou (exemple A1)
avec ListePierre la plage des pierres et codes (exemple BIBLI!A$1:B$71)

Le code est dans module1 :

VB:

Function CherchePierre(ByVal Bijou As String, ListePierreCode As Range)
Dim t, i&, tail&, idx&
   t = ListePierreCode
   For i = 1 To UBound(t)
      If InStr(1, Bijou, t(i, 1), vbTextCompare) Then
         If Len(t(i, 1)) > tail Then tail = Len(t(i, 1)): idx = t(i, 2)
      End If
   Next i
   If idx > 0 Then CherchePierre = idx Else CherchePierre = CVErr(xlErrNA)
End Function

Il semblerait que les "jaspe" soient OK.
attention aux accents présents sur une...

sylvanu · 11 Janvier 2021

Si car après avoir enlevé les % il faut remplacer Pierre de Lune par "Pierre de lune".
Ensuite on recherche Pierre de Lune dans la bibliothèque en recherchant la chaine entre guillemets.
Je ne vois pas où est le problème.

Tontontonio · 11 Janvier 2021

Tontontonio à dit:
bien sur, mais si je fais cela sans mettre les guillemets je n'ai plus aucun moyen de retrouver par exemple, Pierre de lune, dans la description de l'objet

en fait j'ai pensé qu'en créant une nouvelle colonne en supprimant les tirets, Pierredelune, XL reconnaitrai la différence avec Pierre, et bien non.

sylvanu · 11 Janvier 2021

Si vous pouvez partager votre fichier réel, on peut le mettre en forme par du VBA.

Tontontonio · 11 Janvier 2021

sylvanu à dit:
Si car après avoir enlevé les % il faut remplacer Pierre de Lune par "Pierre de lune".
Ensuite on recherche Pierre de Lune dans la bibliothèque en recherchant la chaine entre guillemets.
Je ne vois pas où est le problème.

c'est entendu, mais cela suppose de se fader pour chaque pierre un recherche/remplacer. c'est ce que je cherchais à éviter.

Jocelyn · 11 Janvier 2021

Bonjour le Forum,
Bonjour Tontontonio, exl-Noob, Sylvanu

Bonne année a tout le monde

Aller un essai en enlevant juste les espaces inutiles de la feuille liste

Cordialement

Exl-Noob · 11 Janvier 2021

Il y a une solution très simple en fait.
Modifie la formule pour chercher les correspondances exactes :
{=INDEX(Tableau1[Colonne2];EQUIV(1;EQUIV("*"&Tableau1[Colonne1]&"*";[@Nom];0);0))}

Et en ajoutant un espace après les mots utilisés dans une forme composé on les isole dans la recherche avec joker.
Transforme "Jaspe" en "Jaspe " dans ta feuille BIBLI et tu n'auras plus d'erreur.
Il ne doit pas y en avoir tellement que cela...

mapomme · 11 Janvier 2021

Bonjour à tous,

Un essai avec une fonction personnalisée en VBA:
=CherchePierre(Bijou ; ListePierreCode )

avec bijou le nom du bijou (exemple A1)
avec ListePierre la plage des pierres et codes (exemple BIBLI!A$1:B$71)

Le code est dans module1 :

VB:

Function CherchePierre(ByVal Bijou As String, ListePierreCode As Range)
Dim t, i&, tail&, idx&
   t = ListePierreCode
   For i = 1 To UBound(t)
      If InStr(1, Bijou, t(i, 1), vbTextCompare) Then
         If Len(t(i, 1)) > tail Then tail = Len(t(i, 1)): idx = t(i, 2)
      End If
   Next i
   If idx > 0 Then CherchePierre = idx Else CherchePierre = CVErr(xlErrNA)
End Function

Il semblerait que les "jaspe" soient OK.
attention aux accents présents sur une feuille et pas dans l'autre (Péridot et Peridot)

mapomme · 11 Janvier 2021

Re,

De toute manière quand un bijou est composé de deux pierres dont seul chaque terme individuel figure dans Bibli, il n'est pas possible de trancher :

exemple : Pendentif ovale moderne Chrysocolle-Malachite
c'est Chrysocolle (code 111) ou Malachite (code 131) ou les deux ou aucun ?

Tontontonio · 11 Janvier 2021

sylvanu à dit:
Si car après avoir enlevé les % il faut remplacer Pierre de Lune par "Pierre de lune".
Ensuite on recherche Pierre de Lune dans la bibliothèque en recherchant la chaine entre guillemets.
Je ne vois pas où est le problème.

c'est entendu, mais cela suppose de se fader pour chaque pierre un recherche/remplacer. c'est ce que je cherchais à éviter.

Jocelyn à dit:
Bonjour le Forum,
Bonjour Tontontonio, exl-Noob, Sylvanu

Bonne année a tout le monde

Aller un essai en enlevant juste les espaces inutiles de la feuille liste

Cordialement

bonsoir Jocelyn,
merci pour cette contribution.
cette solution fonctionne aussi partiellement,
ça fait la différence entre Citrine et Citrine-cognac, mais pas entre Jaspe-rouge et Jaspe-Picasso.
Cordialement,
Tonio.

Tontontonio · 11 Janvier 2021

mapomme à dit:
Re,

De toute manière quand un bijou est composé de deux pierres dont seul chaque terme individuel figure dans Bibli, il n'est pas possible de trancher :

exemple : Pendentif ovale moderne Chrysocolle-Malachite
c'est Chrysocolle (code 111) ou Malachite (code 131) ou les deux ou aucun ?

bonsoir mapomme,
merci pour la proposition.
idéalement il faudrait que XL reconnaisse Chrysocolle-Malachite car ce n'est pas la même chose que chrysocolle. mais c'est ce qui pose problème apparemment. j'ai rajouté Chrysocolle-Malachite à la liste et il renvoie Malachite...
je vais essayer le code que vous avez posté, je vous tiens informé.

mapomme · 11 Janvier 2021

Tontontonio à dit:
idéalement il faudrait que XL reconnaisse Chrysocolle-Malachite car ce n'est pas la même chose que chrysocolle

Il le reconnaitrait si Chrysocolle-Malachite était dans Bibli.

Tontontonio · 11 Janvier 2021

mapomme à dit:
Il le reconnaitrait si Chrysocolle-Malachite était dans Bibli.

je viens d'essayer votre solution et en effet ça fonctionne, avec toutes les pierres!
ça donne l'impression qu'il n'y a pas de limites avec VBA,
merci beaucoup, à tous.
Tonio

mapomme · 11 Janvier 2021

Tontontonio à dit:
ça fonctionne, avec toutes les pierres!

pas toutes !

voir entre autre le cas de Pendentif ovale moderne Chrysocolle-Malachite
et Peridot (à cause d'un accent manquant)

Tontontonio · 11 Janvier 2021

mapomme à dit:
pas toutes !

voir entre autre le cas de Pendentif ovale moderne Chrysocolle-Malachite
et Peridot (à cause d'un accent manquant)

j'ai corrigé l'accent et j'ai rajouté Chrysocolle-Malachite, qui était effectivement manquante, et ça marche.
une dernière chose, serait-il possible de renvoyer une valeur identique à la place d'une erreur lorsqu'il n'y a pas de pierre dans la description?

mapomme · 11 Janvier 2021

Tontontonio à dit:
une dernière chose, serait-il possible de renvoyer une valeur identique à la place d'une erreur lorsqu'il n'y a pas de pierre dans la description?

Pas certain d'avoir compris...
Une version v1a qui affiche 0 à la place d'une erreur.

XL 2016 recherchev rétif

Tontontonio

XLDnaute Nouveau

Pièces jointes

mapomme

sylvanu

XLDnaute Barbatruc

Tontontonio

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Tontontonio

XLDnaute Nouveau

Jocelyn

XLDnaute Barbatruc

Pièces jointes

Exl-Noob

Guest

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Tontontonio

XLDnaute Nouveau

Tontontonio

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Tontontonio

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Tontontonio

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires