 |
 |
 |
| |
Amusez-vous et gagnez de l'argent
|
|
 |
 |
 |
 |
 |
 |
| |
NEWSLETTER
Soyez tenu au courant des nouveautés ou bons plans. Les sujets concernés sont :
- la photo
- la programmation
|
|
 |
 |
 |
|
 |
 |
 |
| |
 Inverser une chaîne de caractères
Public Function InverseChaineDeCaracteres(Chaine As String) As String
Dim Inverse As Long
InverseChaineDeCaracteres = ""
For Inverse = Len(Chaine) To 1 Step –1
InverseChaineDeCaracteres = InverseChaineDeCaracteres & Mid$(Chaine, Inverse, 1)
Next
End Function
MsgBox InverseChaineDeCaracteres("bonjour")
|
|
 |
 |
 |
|