problème caractère vba

Sa fait depuis quelque temps que j'ai terminer ma macro, et je travaille sur des éventuelles erreur de l'utilisateur, j'ai constater que l'orsque l'utilisateur rentrait un . ou , ou ' ou " et d'autre dans ses donnée , du genre :

Code:

---

fiche "GH14"

---

mon programme plante, est ce qu'il est possible de changer remplacer ces caractères par des espaces, d'une facon simple, du genre directement dans le code de la textbox, celles ci étant vide, car mon programme est très complet, et je ne souhaite pas l'allourdir
j'ai trouvé http://www.developpez.net/forums/sho...d.php?t=370325
mais je n'arrive pas à bien l'utilisé

Code:

---

1 2 3

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 46 Then KeyAscii = 0 End Sub

---

j'obtient qu'un espace lorsque j'appuis sur la mauvaise touche

en effet une méthode est d'utiliser le keypress

pour toi

Code:

---

1 2 3 4 5

select case keyascii case 46, 44, 39, 34 keyascii= 32 end select

---

pour connaitre le code ascii des caractères, tu mets dans le keypress de ta textbox

Code:

---

msgbox keyascii

---

Par contre une petite question. Comment va réagir l'utilisateur quand il va taper un point et voir afficher une espace?

Tu pourrais aussi modifier la textbox lors de la validation du formulaire en utilisant des replace

si j'ai bien compris je peus mettre :

Code:

---

1 2 3 4 5 6

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) select case keyascii case 46, 44, 39, 34 keyascii= 32 end select End Sub

---

j'avais déjà penser au replace mais mon code est tellement compliquer j'ai déjà des quantité énorme de boucle de sécuriter, je ne souhaite plus en rajouter,
pour l'utilisateur il recevra une formation à ma macro
PS : ma macro gère le suivie du matériels métrologique de l'entreprise, ajout de matériels, gestion des pannes, calcul par weidbull de la futures dates de vérifications

Sa marche pas.

qu'est ce qui ne marche?
Le code dans keypress?
Qu'elle est l'erreur?

Sa marche pas lorsque je place

Code:

---

1 2 3 4

select case keyascii case 46, 44, 39, 34 keyascii= 32 end select

---

dans le code da ma textbox
le programme prend toutes les information notés , mais c pas grave g enfin décider d'utiliser des replace, au lieu d'utiliser directement les valeurs des textbox dans mon programme, j'utilise des variables ensuite replace pourtous les mauvais caractéres, sa me fait une centaine deligne en plus mais copier/coller et control F mon aidé. noueau problème remplacer un guillement avec replace
ferronimus

Il faut doubler le guillemet

Code:

---

replace(texte;"""";" ")

---

merci sa marche