bonjour,
une solution via une fonction personnalisée
Function motlepluslong(texte)
t = Split(Formattexte(texte))
j = 0
For i = 0 To UBound(t)
If Len(t(i)) > Len(t(j)) Then j = i
Next i
motlepluslong = t(j)
End Function
Private Function Formattexte(texte)
t = texte
Worddelimiter = " .,;:?!'""()[]{}+-_/\<>" & vbCr & vbLf & vbTab & Chr(160)
For i = 1 To Len(Worddelimiter)
t = Replace(t, Mid(Worddelimiter, i, 1), " ")
Next i
Formattexte = t
End Function
voir exemple d'utilisation dans fichier joint