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 ?
 
++