Dim Phrase As String Dim Temp As String Dim MotPlusLong As String Dim t() As String Dim i As Integer Dim l As Integer Phrase = "CodesSources, le rendez-vous des dresseurs de puces." ' on élimine les "," et "." Temp = Replace(Phrase, ",", "") Temp = Replace(Temp, ".", "") ' on crée le tableau des mots t = Split(Temp, " ") l = 0 For i = LBound(t) To UBound(t) If Len(t(i)) > l Then l = Len(t(i)) MotPlusLong = t(i) End If Next MsgBox "Nb de mots = " & UBound(t) - LBound(t) + 1 & Chr$(13) & _ "Mot le plus long : " & MotPlusLong & Chr$(13) & _ "Nb de caractères : " & l
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim Phrase As String Dim Temp As String Dim MotPlusLong As String Dim MotPlusLong_Temp As String Dim i As Integer Dim l As Integer, l_temp As Integer Dim nbMots As Integer Phrase = "CodesSources, le rendez-vous des dresseurs de puces." ' élimination des "," et "." Temp = Replace(Phrase, ",", "") Temp = Replace(Temp, ".", "") ' Analyse de la phrase car par car For i = 1 To Len(Temp) Select Case Asc(LCase(Mid$(Temp, i, 1))) ' calcul de la valeur des caractères transformés en minuscules Case 97 To 122 ' pour les car de a à z l_temp = l_temp + 1 MotPlusLong_Temp = MotPlusLong_Temp & Mid$(Temp, i, 1) Case ElseIf l_temp > l Then l l_temp: MotPlusLong MotPlusLong_Temp l_temp = 0 MotPlusLong_Temp = "" nbMots = nbMots + 1 End Select Next ' affichage des résultats MsgBox "Nb de mots = " & nbMots & Chr$(13) & _ "Mot le plus long : " & MotPlusLong & Chr$(13) & _ "Nb de caractères : " & Len(MotPlusLong)