Fonction longestword

Bonjour tout le monde !

J'aimerai coder une fonction qui me permettrai de trouver les trois mots les plus long dans une phrase que l'utilisateur entrerai.

j'ai déjà codé une fonction qui me permet de trouver le mot le plus long d'une phrase, mais je ne sais pas comment "customizer" ma fonction pour qu'il trouve les trois mots les plus long.

Function longestword(sentence As String) As String

Words = Split(sentence, " ")

result = ""

For i = 0 To UBound(Words)

If Len(Words(i)) > Len(result) Then

result = Words(i)

End If

Next i

longestword = result

End Function

Merci beaucoup

Bonsoir

Est-ce quelque chose comme cela te conviendrait ?

Function longestword(sentence As String) As String
Dim result(2), cpt
cpt = 0
For i = 0 To 2
    result(i) = ""
Next
Words = Split(sentence, " ")
rechsuiv:
For i = 0 To UBound(Words)
If Len(Words(i)) > Len(result(cpt)) Then
    result(cpt) = Words(i)
    place = i
End If
Next i
Words(place) = ""
cpt = cpt + 1
If cpt < 3 Then
GoTo rechsuiv
End If

longestword = result(0) & " " & result(1) & " " & result(2)

End Function
Sub test()
maphrase = "coder une fonction qui me permettrai de trouver les trois mots les plus long dans une phrase"
longestword (maphrase)
End Sub

A tester et peut-être améliorer ?

Bye

bonjour,

bonjour Patty

ma version

Function longestword(sentence, Optional n = 3) As String
    s = sentence
    For i = 1 To n
        cw = ""
        w = Split(s, " ")
        For j = LBound(w) To UBound(w)
            If Len(w(j)) > Len(cw) Then cw = w(j)
        Next j
        longestword = longestword & " " & cw
        s = Replace(s, cw, "")
    Next i
End Function

Bonjour H2so4

Meilleur que moi , c'est plus court et cela marche aussi bien.

Bravo, excuse une vieille retraitée qui fait ce qu'elle peut !!! lol

Bonne soirée

Bonsoir, Patty,

tu n'as pas à t'excuser ... j'avais aussi travaillé sur le sujet, j'ai mis ma contribution sans autre arrière-pensée.

bonne soirée

Merci infiniment à tous les deux, ça marche super bien !!