Remplacer du texte dans une zone de texte

Question

Y a-t-il un moyen de remplacer du texte dans une zone de texte, par exemple, voir ci-dessous. J'utilise actuellement ceci, mais ne semble pas fonctionner bien dans VBA.

If TextBox6.Text.Contains("<GTOL-PERP>") Then 
    TextBox6.Text = TextBox6.Text.Replace("<GTOL-PERP>", "j") 
End If 

Answer 1

.Text est une propriété de chaîne dans VBA. Les chaînes ne sont pas des objets dans VBA, vous devrez donc utiliser des fonctions de chaîne plutôt que des méthodes pour les traiter. Voir ci-dessous:

If instr(TextBox6.Text, "<GTOL-PERP>") Then 
TextBox6.Text = replace(TextBox6.Text, "<GTOL-PERP>", "j") 
End If 

A List of String Functions in VBA

EDIT Vous pouvez réellement sauter le SI depuis le remplacer() ne renvoie pas d'erreur si le texte n'est pas dans la chaîne.