econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 2008
-
27 août 2004 à 23:09
Philippe734
Messages postés308Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention15 juin 2015
-
28 août 2004 à 00:14
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Philippe734
Messages postés308Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention15 juin 20151 28 août 2004 à 00:14
ahoui ! c mieux ! :-)
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 27 août 2004 à 23:09
Tu pouvais faire comme ceci, en utilisant la fonction Split. C'est un peu plus court...
Public Function MotLePlusLong(s As String) As String
Dim mots() As String
Dim i As Long
Dim retour As String
Dim max As Long
max = 0
mots = Split(s, " ", , vbTextCompare)
For i = LBound(mots) To UBound(mots)
If Len(mots(i)) > max Then
max = Len(mots(i))
retour = mots(i)
End If
Next i
MotLePlusLong = retour
End Function
28 août 2004 à 00:14
27 août 2004 à 23:09
Public Function MotLePlusLong(s As String) As String
Dim mots() As String
Dim i As Long
Dim retour As String
Dim max As Long
max = 0
mots = Split(s, " ", , vbTextCompare)
For i = LBound(mots) To UBound(mots)
If Len(mots(i)) > max Then
max = Len(mots(i))
retour = mots(i)
End If
Next i
MotLePlusLong = retour
End Function