XL 2016 Formule RECHERCHEV Approximative

nonifel

XLDnaute Junior
Bonjour,
Je dispose de deux BDD, et je souhaite effectuer une recherchev, les deux BDD contiennent les mêmes informations mais écrites différemment.
Merci de votre aide
Le fichier ci-joint.
 

Fichiers joints

natorp

XLDnaute Accro
Bonjour nonifel

Vous cherchez quoi exactement ? juste savoir si les valeurs de l'onglet ADM RM sont présentes en ADM OFF ?

Cordialement, Gérard
 

merinos

XLDnaute Occasionnel
Salut @nonifel ,

Malheureusement , l'informatique n'est pas de la poésie...

En 2016 j'ai réalisé une combobox lié a une liste... et a un TCD.
l'objectif est de taper "oliv" et d'avoir une presentation de toutes le données qui contiennent "oliv"
comme "champ des oliviers" ou "olivier et benoit"

ma question originale
 

JHA

XLDnaute Barbatruc
Bonjour à tous,

Tu as des espaces en bout de chaque données.

Au début, je les ai enlevé à la main puis à partir de la ligne 45, j'ai mis une formule en colonne "C".

JHA
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour,

Voyez le fichier joint.

Les 2 tableaux ont été mis sous forme de tableau Excel structurés (ainsi les formules se propagent).

Dans la 1ère feuille une 2ème colonne permet de supprime les accents ainsi que les espaces superflus par cette fonction VBA :
VB:
Const Accent$ = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
Const noAccent$ = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"

Private Function sansAccents$(s$)
s = Application.Trim(s) 'SUPPRESPACE
Dim i%
For i = 1 To Len(Accent)
    s = Replace(s, Mid(Accent, i, 1), Mid(noAccent, i, 1))
Next
sansAccents = s
End Function
A+
 

Fichiers joints

Discussions similaires


Haut Bas