Aide sur la fonction Replace...

[Malka]

Bonjour à tous,


J'ai besoin encore une fois de votre aide sur l'utilisation de la fonction Replace...

Dans mon programme, j'utilise un userform avec entre autres cette ligne de code

TextBox3.Value = ComboBox3.Value

Or ComboBox3.Value est toujours egale à ce format la : "Nom (texte)"
Le Nom est de taille variable

Mon objectif est de supprimer tous les caracteres se trouvant apres "Nom" de telle sorte de d'avoir:
"Nom (texte)" -> "Nom"

J'ai essayé la fonction Replace mais ca ne marche
TextBox3.Value = Replace(ComboBox3.Value, "(*", "")


Est que vous avez d'autres idées pour résoudre mon probleme ?

Merci

Malka

 

[pierrejean]

Re : Aide sur la fonction Replace...

Bonjour Malka

A tester:

x = InStr(Combobox3.Value, "(")
y = InStr(Combobox3.Value, ")")
z=Mid(Combobox3.Value, x, y - x + 1)
TextBox3.Value = Trim(Replace(z,""))

 

[Malka]

Re : Aide sur la fonction Replace...

Bonjour PierreJean,

Merci d'avoir répondu.
Malheureusement ca ne marche pas.. j'ai un message d'erreur sur Replace de type : "Argument non facultatif"
Il manque quelque chose pour la fonction Replace, mais je ne sais pas quoi....


Merci

Malka

 

[Malka]

Re : Aide sur la fonction Replace...

ok, j'ai trouvé. Il manque evidement le texte initiale

x = InStr(Combobox3.Value, "(")
y = InStr(Combobox3.Value, ")")
z=Mid(Combobox3.Value, x, y - x + 1)
TextBox3.Value = Trim(Replace(Combobox3.Value, z,""))


Merci PierreJean

Malka

 

[pierrejean]

Re : Aide sur la fonction Replace...

Re

OK ! Toutes mes excuses