Rerobleme de remplacement entre \".\" et\",\"
bonsoir le forum ,
alors pour ton probleme voila :
tu crees un module :
Sub recherche(Textbox As msforms.Textbox)
'Recherche les points
txtSearch = '.'
Found = InStr(Textbox.Text, txtSearch)
'Si le mot est trouvé
If Found <> 0 Then
'selectionne
Textbox.SelStart = Found - 1
'Selectionne la longueur (len) du text
Textbox.SelLength = Len(txtSearch)
'remplace par une virgule
Textbox.SelText = ','
Else
End If
End Sub
et pour chaque textbox tu crees une procedure :
Private Sub TextBox1_Change()
Call Module1.recherche(TextBox1)
End Sub
et voilou
plus de '.' que des virgules ,tu peux biensur faire le contraire plus de ',' et que des '.' lol
bon courage
@ +
Message édité par: tontoncarton, à: 24/08/2005 20:59