XL 2016 PB recherchev ou index equiv sur recherche partielle dans cellule

whispering · 7 Juillet 2018

Bonjour à tous,

J'ai 2 bases de données de références d'articles. Dans chaque base , j'ai les références articles mais saisies avec des différences ( ex des ajouts de lettre en début de référence pour identifier le fournisseur , la suppression des espaces ou de traits ) mais les chiffres de la référence de l'article sont identiques .

Je souhaite liés ces deux bases pour afficher le prix de la base2 dans la base1. Tous mes essais avec recherche V ou index equiv ne donnent pas de résultats corrects .

Je vous joins le fichier avec un exemple de références pour chaque base et le résultat que j'aimerai obtenir ..

Je vous remercie par avance de votre aide .

whispering · 7 Juillet 2018

Désolé ke ficher joint n'est pas complet . Je verse un nouveau fichier

JHA · 7 Juillet 2018

Bonjour à tous,

Un essai avec une fonction personnalisée du forum.

JHA

BOISGONTIER · 7 Juillet 2018

Bonsoir,

Fonction perso RechvNum(code,table,colonne)

La recherche se fait seulement sur la partie numérique du code

Code:

Function RechvNum(valCherché, Table, Col)
  valcherché2 = NumChaine(valCherché)
  Dim Tbl(): Tbl = Table.Value
  n = UBound(Tbl)
  Dim clé(): ReDim clé(n)
  For i = 1 To n
    clé(i) = NumChaine(Tbl(i, 1))
  Next i
  For i = 1 To n
    If valcherché2 = clé(i) Then RechvNum = Tbl(i, Col): Exit Function
  Next i
End Function

jb

whispering · 8 Juillet 2018

Bonjour à tous ,
Merci à tous pour votre support.
La solution de JHA donne exactement les résultats escomptés .
Je vous renouvelle mes remerciements et BRAVO pour votre efficacité .
Bon weekend à tous deux et aux lecteurs

XL 2016 PB recherchev ou index equiv sur recherche partielle dans cellule

whispering

XLDnaute Nouveau

Pièces jointes

whispering

XLDnaute Nouveau

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

whispering

XLDnaute Nouveau

Discussions similaires