Rechercher : dans
Par :

Bsr

Dernière réponse le 20 mar 2009 à 21:49:54 nino, le 20 mar 2009 à 21:40:41 
 Signaler ce message aux modérateurs

Bonjour,
comment convertir une chaine majuscule en miniscule en utilisant les fonction ucase et lcase
voila mon essai mais sa marche pas:
Sub MAIN()
InputBox(Chaine)
For I = 1 To Len(Chaine)
a = Mid(Chaine, I, 1)
If a = UCase(a) Then
Temp = Temp + LCase(a)
Else
Temp = Temp + UCase(a)
End If
Next
MsgBox(Temp)
End Sub

Configuration: Windows XP
Firefox 3.0.7

1

 Albert, le 20 mar 2009 à 21:49:54

Bonsoir, j'ai cru reconnaitre du VB:
essayes:

InputBox(Chaine)
MsgBox LCase(Chaine)

Répondre à Albert