Discussion :

[stephadm]

Bonjour au forum,

Je souhaite avec une textbox capturer le texte qui se trouve uniquement à droite dans combobox, voir pièce jointe pour mieux comprendre.

Que faut-il ajouter à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Txtdebut = CBox1.Value

En vous remerciant à l'avance

Stephanie

[Jean-Philippe André]

Salut,

je suppute que par "à droite" tu entends "après le tiret".

Est-ce bien le cas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox Split(CBox1.Value,"-")(0)

ou alors des X caractères de droite ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Right(CBox1.value,4)

[patricktoulon]

bonjour jpcheck

quand tu dis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox Split(CBox1.Value,"-")(0)

pour recupérer la droite du texte apres le tiret

je pense que tu voulais dire plutot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox Split(CBox1.Value,"-")(1)

au plaisir

[stephadm]

Bonjour jpcheck et au forum,

jpcheck, merci de m'avoir aiguiller.

- La réponse à ma question est la suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Txtdebut = Right(ComboBox1.Value, 4)

ça fonctionne parfaitement.

- Autre question du même style mais plus corsée

Dans une TextBox, je tape l'email dupon.t@sfr.fr et je voudrais qu'une TextBox2 se remplisse automatiquement avec une partie de l'adresse, dont la réponse serait : SFR. Il faudrait carder tout ce qui se trouve entre le "@" et le "."

Merci

Stephanie

Je vous souhaite le bonjour patricktoulon,

j'écrivais mon message quand vous avez posté.

Stephanie

[vincmer28]

Salut stephadm,

Pour récupérer SFR, il faut que tu utilise Mid(tontexte, nbr gauche, nbr droite) , soit dans ton exemple (si je me trompe pas):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mid(TextBox1.value, 9, 3)

Edit: Je viens de réaliser que ça ne marchera que dans cet exemple précis, si tu tappe une adresse de taille différente ça n'ira plus...

Dans ce cas il faudrais une fonction de recherche des caractères @ et . dans ta chaine.

[stephadm]

bonjour vincmer28 patricktoulon, jpcheck et au forum,

Désolé d'avoir manquer de précision dans mon explication, je n'avais pas précisée sur le précédent post que l'adresse email change constamment donc la valeur "8" change aussi.
Je peux rentrer une email du genre : pioupiou@orange.fr et donc la valeur de la TextBox2 sera "Orange"

La solution de vincmer28 est un bon début et je le remercie par la même occasion,
Avez-vous une idée ?

Stephanie

[vincmer28]

Peut être en utilisant dans un premier temps instr pour trouver la position de @ et de .


Citation Aide VBA

Renvoie une valeur de type Variant (Long) indiquant la position de la première occurrence d'une chaîne à l'intérieur d'une autre chaîne.

Syntaxe

InStr([start, ]string1, string2[, compare])


Exemple

SearchString ="XXpXXpXXPXXP" ' Chaîne dans laquelle s'effectue la
' recherche.
SearchChar = "P" ' Recherche la chaîne "P".
Instr(SearchString, SearchChar)

Ensuite tu stoque dans une variable ces positions, et enfin tu utilise Mid.
C'est juste une idée comme ça, je suis pas à un champion du VB