Bjour tlm , j'ai récupéré un module d'exodeus qui fait fonction talker c'est à dire que sur mon progz , si dans la texte box je tape par exemple "Bonjour" et le progz envoie "BÖnjÖur" sur le salon aol
cette fonction est tiré du module , mé jsé pas trop comment m'en servir pourriez vous m'aider please ?
Public Function Texte_Elite(texte As String) As String
''''''''''''''''''''''''''''''''''''
'àß/?¢ÇÐêÉ?gHìIj/?/<L£mIvIñI\IøØ...'
''''''''''''''''''''''''''''''''''''
Dim eLong As Long, eChr As String, eFull As String
texte$ = LCase(texte$)
For eLong& = 1 To Len(texte$)
eChr$ = Mid(Text$, eLong&, 1)
If eChr$ = "a" Then eChr$ = "à"
eFull$ = eFull$ + eChr$
Next eLong&
Texte_Elite = eFull$
End Function
Bon bah c a peu pres tout si vous pouviez m'aider pc je met :
If Text1.text="o" Then text1.text="Ö"
End If
mé ca me met erreur alors est ce que vous avez une idée ?
++