Raccourcir un intitulé avec une formule

Bonjour à toutes et à tous,

Je vous remercie déjà pour l'aide que vous allez m'apporter.

Ma demande est simple, je dispose d'une colonne de produit avec des intitulés assez long. J'aimerais, dans une seconde colonne, incorporer une formule qui permet de récupérer le 1er mot de l'intitulé ou alors le mot le plus long automatiquement.

Exemple :

Colonne A (Correspondant à l'intitulé du produit) Colonne B (intitulé raccourci)

Téléphone haut de gamme ultra HD Téléphone

Enceinte bluetooth waterproof Enceinte

Je sais pas si je suis clair ? N'hésitez pas si vous avez des questions

En vous remerciant,

Cdlt,

Pedrolamich

Bonjour,

Pour le premier mot c'est simple :

=GAUCHE(A1;CHERCHE(" ";A1)-1)

Pour le mot le plus long, c'est un peu plus compliqué !

Je regarde et reviens

Pour le mot le plus long, une fonction perso à mettre dans un module standard :

Function MotLePusLong(Cel As Range) As String

    Dim T
    Dim I As Integer
    Dim Max As Integer
    Dim Mot As String

    T = Split(Cel.Value, " ")

    For I = 0 To UBound(T)

        If Max < Len(T(I)) Then

            Max = Len(T(I))
            Mot = T(I)

        End If

    Next I

    MotLePusLong = Mot

End Function

et utiliser de cette façon :

=MotLePusLong(A1)