XL 2016 Formule RECHERCHEV Approximative

[nonifel]

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.

 

[natorp]

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-BernardEtang]

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

 

[nonifel]

@natorp
Merci de votre retour.
Effectivement juste devant chaque ADM RM avoir en face le bon nom de ADM OFF

Merci bcp.

 

[JHA]

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

 

[job75]

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 :

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+