Bonsoir , j'ai essayé d'écrire une fonction itérative qui renvoit l'inverse d'une chaine de caractère :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Function miroirChaine(ByVal s As String) As String
Dim i As String
For i = Left(s, 1) To Mid(s, 2)
    s = Mid(s, 2) + Left(s, 1)
Next i
miroirChaine = s
End Function
et j'ai une incompatibilité de type à la compilatio , elle est dans le for , pourtant j'ai bien précisé que i était de type string , quelqu'un a une explication ?

merci