Jerrymcfly
Messages postés29Date d'inscriptionvendredi 8 mars 2002StatutMembreDernière intervention26 juillet 2002 19 juil. 2002 à 11:41
salut
cadeau :
Public Function str_replace(Chaine As String) As String
For i = 1 To Len(Chaine)
PT = Mid$(Chaine, i, 1) If PT ";" Then tempo tempo & vbCrLf Else tempo = tempo & PT
Next
str_replace = tempo
End Function
Jerrymcfly
Messages postés29Date d'inscriptionvendredi 8 mars 2002StatutMembreDernière intervention26 juillet 2002 19 juil. 2002 à 12:00
exact... je reinvente souvent...
moi quand je connais pas les fonctions, je contourne... tiens je viens d'apprendre un truc, je suis absent pendant un bon moment, j'ai du code à mettre à jour lol, merci