Comment rendre une chaine maj en une miniscul
Bonjour,
s'il vous plait je veut savoir comment rendre une chaine majuscule en une autre minuscule
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
voila ce que j'ai fait mais sa marche pas
s'il vous plait je veut savoir comment rendre une chaine majuscule en une autre minuscule
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
voila ce que j'ai fait mais sa marche pas
Configuration: Windows XP Firefox 3.0.7
7 réponses
-
mais de quoi parle tu
-
bonjour,
je précise d'abord que je connais pas ce langage de programmation, mais je te donne mon idée. en fait pense au code ascill, pour un caractére majus son code ascill= le code ascill de ce caractére en minus-22. puis tu peux parcourir la chaine avec une boucle "repeter" et tu vérifie si le caractére est bien une lettre sinon on passe au suivant.
bon courage @+ -
Escuzez moi je comprend rien !! on peut m'expliquer ?? :S !
c'est quoi une chaine ^^ ? c'est du chinoa pour moi. ! -
Je t'ai laissé une réponse sur ton autre post identique !!!
Pas la peine de poster plusieurs fois si c'est pour ne pas y répondre!! -
Allo ?
-
a l'huile !
-
mais la variable temp sert a koi tu doit bien expliqué ton code pour que je puisse t'aider
