Microsoft 365 recherche si dans une cellule si une partie d'une autre cellule y est si oui mettre cellule d'à coter.

Antoine_94 · 2 Janvier 2021

Bonjour, je m'appelle Antoine, ravi de faire partie de l'équipage

Je suis bloqué sur une formule si on peut m'aider c'est sympa.
J'importe un fichier brut et je voudrais automatiser son traitement en faisant des conditions et recherches.
Mon problème est qu'il y a une cellule ou est écrit par exemple "jklkjFNACmlokm", je veux faire une formule qui dit si cette cellule contient le mot "FNAC" alors "FFNAC".
J'en ai bien trouvé une mais je dois faire cela avec beaucoup de mots. J'ai donc fais une table matière et fais une grosse formule "si" mais c'est trop long comme formule et puis j'arriverais au bout de la formule car j'ai trop de mot à rechercher.
Est ce qu'il y aurait une formule plus simple qui recherche si dans une cellule, il y a une partie d'un mot qui correspond à ma table matière alors cela renvoie le mot d'à coter ?
Je joins mon fichier excel, en colonne A, la formule à faire, en colonne B le libellé brut que j'ai importé, en colonne E le mot à rechercher dans la cellule importée, en colonne F le mot à renvoyer.
Merci d'avance pour votre aide.
Cordialement,

R@chid · 2 Janvier 2021

Bonjour Sylvanu,
donc j'ai mal compris, on peut le faire sans la colonne A, en C2 :

VB:

=SIERREUR(INDEX(F$3:F$10;EQUIV(VRAI;ESTNUM(CHERCHE(E$3:E$10;B2));0));"")

@ valider par Ctrl+Maj+Entrée (N'est pas obligatoire sous Excel pour Microsoft 365)
@ tirer vers le bas

Cordialement

sylvanu · 2 Janvier 2021

Bonjour Antoine et bienvenu sur XLD,
En PJ un essai avec une fonction perso. Cela a l'avantage que la table des matières peut s'agrandir sans complexifier les formules.
La syntaxe est :

Code:

=Fournisseur(Chaine;Tableau Libellés;Tableau fournisseurs)

avec :

VB:

Function Fournisseur(N As Range, Libellé As Range, Résultat As Range)
Dim T_Libellé, T_Résultat, i%
T_Libellé = Libellé
T_Résultat = Résultat
For i = 1 To UBound(T_Libellé)
    If LCase(N) Like LCase("*" & T_Libellé(i, 1) & "*") Then
        Fournisseur = T_Résultat(i, 1)
        Exit Function
    End If
Next i
End Function

Antoine_94 · 2 Janvier 2021

sylvanu à dit:
Bonjour Antoine et bienvenu sur XLD,
En PJ un essai avec une fonction perso. Cela a l'avantage que la table des matières peut s'agrandir sans complexifier les formules.
La syntaxe est :

Code:

=Fournisseur(Chaine;Tableau Libellés;Tableau fournisseurs)

avec :

VB:

Function Fournisseur(N As Range, Libellé As Range, Résultat As Range) Dim T_Libellé, T_Résultat, i% T_Libellé = Libellé T_Résultat = Résultat For i = 1 To UBound(T_Libellé) If LCase(N) Like LCase("*" & T_Libellé(i, 1) & "*") Then Fournisseur = T_Résultat(i, 1) Exit Function End If Next i End Function

elle est magique la formule, je ne connaissais pas. Merci beaucoup cela fonctionne parfaitement.

sylvanu · 2 Janvier 2021

Ce n'est pas une formule, c'est une formule perso.
Vous écrivez votre propre formule, ce qui est souvent très utile.

Fonctions personnelles : Utilité, Simplicité et Méthode

Pour ceux qui ne connaissent pas les fonctions personnelles et pour ceux qui appréhendent le VBA, voici un petit tuto pour montrer à quel point des fonctions personnelles peuvent être utiles et surtout à quel point c'est simple, même si on n'a...

www.excel-downloads.com

Antoine_94 · 2 Janvier 2021

sylvanu à dit:
Ce n'est pas une formule, c'est une formule perso.
Vous écrivez votre propre formule, ce qui est souvent très utile.

Fonctions personnelles : Utilité, Simplicité et Méthode

Pour ceux qui ne connaissent pas les fonctions personnelles et pour ceux qui appréhendent le VBA, voici un petit tuto pour montrer à quel point des fonctions personnelles peuvent être utiles et surtout à quel point c'est simple, même si on n'a...

www.excel-downloads.com

ah oui très fort je vais regarder cela merci !

R@chid · 2 Janvier 2021

Bonjour @ tous,
on n'a pas besoin d'une fonction personnalisée je pense
en C2 :

VB:

=SI(ESTNUM(CHERCHE(RECHERCHEX(A2;F$3:F$10;E$3:E$10);B2));A2;"")

@ tirer vers le bas

Cordialement

sylvanu · 2 Janvier 2021

Bonjour R@chid,
Je ne pense pas que ça marche car A2 n'existe pas, c'est le résultat cherché. ( celui initialement calculé par Antoine )
Il faut chercher si dans B2 il y a un contenu de E3:E10 et remonter l'équivalent F3:F10.

R@chid · 2 Janvier 2021

Bonjour Sylvanu,
donc j'ai mal compris, on peut le faire sans la colonne A, en C2 :

VB:

=SIERREUR(INDEX(F$3:F$10;EQUIV(VRAI;ESTNUM(CHERCHE(E$3:E$10;B2));0));"")

@ valider par Ctrl+Maj+Entrée (N'est pas obligatoire sous Excel pour Microsoft 365)
@ tirer vers le bas

Cordialement

Antoine_94 · 2 Janvier 2021

R@chid à dit:
Bonjour Sylvanu,
donc j'ai mal compris, on peut le faire sans la colonne A, en C2 :

VB:

=SIERREUR(INDEX(F$3:F$10;EQUIV(VRAI;ESTNUM(CHERCHE(E$3:E$10;B2));0));"")

@ valider par Ctrl+Maj+Entrée (N'est pas obligatoire sous Excel pour Microsoft 365)
@ tirer vers le bas

Cordialement

Bonjour R@chid,
Cette formule fonctionnement parfaitement, merci beaucoup.
Cordialement,

Microsoft 365 recherche si dans une cellule si une partie d'une autre cellule y est si oui mettre cellule d'à coter.

Antoine_94

XLDnaute Nouveau

Pièces jointes

R@chid

sylvanu

XLDnaute Barbatruc

Pièces jointes

Antoine_94

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Fonctions personnelles : Utilité, Simplicité et Méthode

Antoine_94

XLDnaute Nouveau

Fonctions personnelles : Utilité, Simplicité et Méthode

R@chid

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

R@chid

XLDnaute Barbatruc

Antoine_94

XLDnaute Nouveau

Discussions similaires