Interdire certain caractère dans un Textbox

Bonjour,

J'ai dans ma Userform un textbox, où l'utilisateur doit rentrer une référence qui par la suite sera intégré dans une base de donnée.

Cette référence doit être obligatoirement en majuscule et ne doit contenir aucun tiret ou encore aucun espace.

J'ai réussi à transformer chaque caractère saisie, en majuscule cependant je n'ai pas trouvé de manière pour empêcher la saisie d'un tiret ou d'un espace.

Private Sub Referencepiece_Change()

    Referencepiece.Value = UCase(Referencepiece.Value)

End Sub

Quelqu'un aurait une solution?

Merci d'avance!

Bonjour,

Utilise la fonction Replace en VBA puis la fonction Trim.

Donc Trim(Replace(mot tapé, "-", ""))

Bonjour,

Tu peux mettre cet évènement dans ton USF :

Private Sub Referencepiece_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Or KeyAscii = 45 Then KeyAscii = 0
End Sub

Si on tape un tiret (45) ou un espace (32), celui-ci est effacé...

Bonne journée

Merci, cousinhub ça fonctionne!

Bonne journée à vous!