Bsr
nino
-
Albert -
Albert -
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
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
A voir également:
- Bsr
- Bsr screen recorder - Télécharger - Capture d'écran
- Faux bsr - Forum Loisirs / Divertissements
- Le BSR obligatoire ? ✓ - Forum Loisirs / Divertissements
- Combien de temps pour le BSR - Forum Loisirs / Divertissements
