Lol
Mid est déjà une combinaison de Left et Right ...
T'embete pas pour rien :)
Equivalent de ta fonction avec un mid :
Function Extr(ByVal chaine As String, nb As Integer)
Extr = mid(chaine, nb,1)
End Function
|
,.~*`'^~.(^.
.^),.~^'`*~.
-------------------------------
Réponse au message :
-------------------------------
> J'ai écri une fonction qui fait ça et mieu que mid
>
>
>
> Function Extr(ByVal chaine As String, nb As Integer)
> Dim caract As String
> caract = Left(chaine, nb)
> Extr = Right(caract, 1)
> End Function
> |
>
> Merci pour ta réponse mais Mid ne m'aide en rien ...