Extraction chaine de caracteres

[CelluleVide]

Bonjour le forum,

A partir du libelle en colonne A et d'une liste exhaustive connue il me faut la couleur en colonne B.

Le Problème est que la liste de couleur contient 120 coloris differents !

Un petit fichier d'exemple est joint a ce post.

Bonne journée.

 

[Compte Supprimé 979]

Re : Extraction chaine de caracteres

Salut,

Tu trouveras ton fichier avec une petite fonction qui va bien 😉

Voilà

 

[pierrejean]

Re : Extraction chaine de caracteres

bonjour CelluleVide

Salut BrunoM45 (je regarde ta solution)


ma version


edit: Bruno45 jolie fonction ma foi !!!!

 

[Pyrof]

Re : Extraction chaine de caracteres

Bonjour

Pour réduire le temps d'analyse d'un for dans un for,

remplace
If InStr(UCase(cel.Value), UCase(coul.Value)) <> 0 Then cel.Offset(0, 1) = coul.Value

par
If InStr(UCase(cel.Value), UCase(coul.Value)) <> 0 Then
cel.Offset(0, 1) = coul.Value
exit for
end if

Bonne soirée

 

[CelluleVide]

Re : Extraction chaine de caracteres

Bonsoir et merci a tous,

Le temps que j'essaie de comprendre la première réponse, j'en avais deux autres qui me vont parfaitement.

Je ne remercierai jamais assez les fondateurs de ce forum et tous les intervenants (Les forumeux comme ils disent dans les pyrénnées... 😀 )

Bonne soirée.