Remplacer chaine dans TextboxRésolu

Question

Bonjour à tous,

Cela doit être super simple, mais je ne vois pas comment faire même avoir la fonction Replace, ça ne marche pas.

Dans ma textbox, je veux que lorsque j'appuie sur la "touche espace" je remplace toutes les chaines de caracteres "toto" par "tata" par exemple. J'ai écrit ceci :


Private Sub txtTerm_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeySpace Then
            If InStr(txtTerm, "toto") > 0 Then
                txtTerm.Text = Replace(txtTerm, "toto", "tata")
            End If
End If
End Sub


Mais pas de changement lorsque j'enfonce "touche espace"

Merci de votre aide

PCPT · Accepted Answer

salut,

mauvaise utilisation de INSTR

Private Sub txtTerm_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeySpace Then
        If InStr(1, txtTerm.Text, "toto") > 0 Then
            txtTerm.Text = Replace(txtTerm.Text, "toto", "tata")
            txtTerm.SelStart = Len(txtTerm.Text)
        End If
    End If
End Sub

++
[hr]

Lokomass · Answer

Merci !!!

Remplacer chaine dans Textbox

2 réponses

Votre réponse

Discussions similaires