cs_KevinK
Messages postés43Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention 9 janvier 2003
-
21 mars 2002 à 14:10
cs_KevinK
Messages postés43Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention 9 janvier 2003
-
13 mai 2002 à 15:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_KevinK
Messages postés43Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention 9 janvier 2003 13 mai 2002 à 15:42
Autant pour moi, y'en encore mieux:
Nom=strConv(Nom,vbProperCase)
Et c'est tout !!!
cs_KevinK
Messages postés43Date d'inscriptionmardi 22 janvier 2002StatutMembreDernière intervention 9 janvier 2003 21 mars 2002 à 14:10
J'ai trouvé un autre moyen pour faire ça, dites-moi ce que vous en pensez:
Public Function Convert(nom As String) As String
Dim a() As String
nom = LCase(nom)
a = Split(nom)
For i = 0 To UBound(a)
a(i) = UCase(Left(a(i), 1)) & Right(a(i), Len(a(i)) - 1)
Next
Convert = Join(a)
End Function
13 mai 2002 à 15:42
Nom=strConv(Nom,vbProperCase)
Et c'est tout !!!
21 mars 2002 à 14:10
Public Function Convert(nom As String) As String
Dim a() As String
nom = LCase(nom)
a = Split(nom)
For i = 0 To UBound(a)
a(i) = UCase(Left(a(i), 1)) & Right(a(i), Len(a(i)) - 1)
Next
Convert = Join(a)
End Function