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

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...