Aide sur la fonction Replace...

Malka · 2 Février 2011

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 · 2 Février 2011

Re : Aide sur la fonction Replace...

Bonjour Malka

A tester:

VB:

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

Malka · 2 Février 2011

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 · 2 Février 2011

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 · 2 Février 2011

Re : Aide sur la fonction Replace...

Re

OK ! Toutes mes excuses

Aide sur la fonction Replace...

Malka

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Malka

XLDnaute Occasionnel

Malka

XLDnaute Occasionnel

pierrejean

XLDnaute Barbatruc

Discussions similaires