XL 2016 Formule RECHERCHEV Approximative

natorp

XLDnaute Barbatruc

• 23 Mai 2019

• #2

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

 

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 23 Mai 2019

• #3

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

 

Vote positif 0 Vote négatif

nonifel

XLDnaute Junior

• 23 Mai 2019

• #4

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

Merci bcp.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 23 Mai 2019

• #5

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

 

Pièces jointes

• Test (2).xlsx

  83.1 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Mai 2019

• #6

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+

 

Pièces jointes

• Test(1).xlsm

  87.6 KB · Affichages: 8

Vote positif 0 Vote négatif