Remplacer les espace par des tirets dans une textbox

[Meloman]

Bonjour je voulais s'avoir si dans une textbox quand ont fais un espace avec la barre espace à la place du vide ont pouvais y introduire une tiret "-"

pouvez vous m'eclairer à ce sujet merci d'avance

 

[Pierrot93]

Re : Remplacer les espace par des tirets dans une textbox

Bonjour,

essaye ceci, dans le module de l'usf ou de la feuille concernée :

Option Explicit
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then KeyAscii = 45
End Sub

bon après midi
@+

 

[Hulk]

Re : Remplacer les espace par des tirets dans une textbox

Bonjour tout le monde 🙂

Comme ceci peut-être...

Private Sub TextBox1_Change()
    
    TextBox1.Value = Replace(TextBox1, " ", "-")
    
End Sub

Bon appetit à tous !

Edit : Bjr Pierrot 😉

 

[jp14]

Re : Remplacer les espace par des tirets dans une textbox

Bonjour
Salut Pierrot93
Salut Hulk

Le code ci dessous réalise cette opération

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

A tester

JP

 

[Dranreb]

Re : Remplacer les espace par des tirets dans une textbox

Bonjour.
Ça doit pouvoir se faire avec votre objet dans une procédure KeyPress
Cordialement

Bonjour JP14, et tous les autres... Mon ombre est trop rapide ce matin !

 

[Meloman]

Re : Remplacer les espace par des tirets dans une textbox

Bonjour Hulk Pierrot93 dranreb et JP14

merci à tous pour votre contribution je les est tous essayer et semplerais t'il les deux possibilité fonctionne parfaitement.

dans un soucis de compréhensibilité j'ai opter pour la solution de Hulk qui est plus lisible pour moi mais je vous remercie sincérement pour votre rapidité et vos compétence.

PS: j'ai un poste similaire car je pensais que ma premiere question sur le meme sujet n'était pas passer toute mes escuses