ponctuation a supprimer

A

Alex

Guest
Bonjour,

voila j'aurais voulu savoir comment faire pour pouvoir supprimer les textbox possédant un caractére de ponctuation comme'',:?!
En fait si une textbox posséde comme valeur fff??ttt, je voudrait supprimer son contenu car elle posséde de la ponctuation

COmment doije m'y prendre??

Merci beaucoup d'avance
 

Hervé

XLDnaute Barbatruc
Bonjour alex, jamal

tu peux peut etre utiliser ce code :


Private Sub TextBox1_Change()
Dim i As Byte, j As Byte
Dim ponctu As Variant

ponctu = Array(',', ';', ':', '!', '?', '.', '/')
For i = 1 To Len(TextBox1)
       
For j = 0 To UBound(ponctu)
               
If Mid(TextBox1, i, 1) = ponctu(j) Then
                        TextBox1 = ''
                       
Exit Sub
               
End If
       
Next j
Next i
       
End Sub

salut
 

Discussions similaires