Userform / Textbox avec extraction d'un combobox après un séparateur

Bonjour le Forum
Dans un userform, je souhaiterais remplir un textbox (LIBELLE) avec une extraction d'un combobox (POSTE) après un séparateur " - "


Dans "POSTE" les données se présentes tjrs sous la mm forme, avec un seul séparateur " - " :

BABA - BUBU BOBO

La longueur du texte avec et après le séparateur étant variable

et du coup dans "LIBELLE", cela donnerais par exemple

BUBU BOBO 01/2016

par contre, je rame pour faire cette extraction

avec ma macro j'obtiens :

BABA - BUBU BOBO 01/2016

Code:

---

1 2 3 4

Private Sub POSTE_Change()   LIBELLE.Value = POSTE.Value & " " & Month(Date) & "/" & Year(Date) End Sub

---

Qui aurais une idée ?

Bonjour,

pour extraire une sous-chaine située dans une chaine dont les différents composants sont tous délimités par le même séparateur, tu peux utiliser la fonction Split().

Exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Sub UnMorceau() Dim LaChaine As String Dim LeSeparateur As String Dim LeResultat As String LaChaine = "BABA - BUBU BOBO" LeSeparateur = " - " LeResultat = Split(LaChaine, LeSeparateur)(1) MsgBox LeResultat End Sub

---

Tu obtiens dans l'exemple "BUBU BOBO"

regarde l'aide VBA au sujet de Split() :f1:

il retourne un tableau (base 0) avec l'ensemble des portions de la chaine principale.

Split(LaChaine, LeSeparateur)(i) renvoie l'élément i-1 de la chaine (puisque le split()(0) donne le premier)


Ps : dans ton exemple, on peut aussi utiliser les fonction Mid() et Instr()

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub UnMorceau() Dim LaChaine As String Dim LeSeparateur As String Dim LaPosition As Long Dim LeResultat As String LaChaine = "BABA - BUBU BOBO" LeSeparateur = " - " LaPosition = InStr(1, LaChaine, LeSeparateur) + Len(LeSeparateur) LeResultat = Mid(LaChaine, LaPosition) MsgBox LeResultat End Sub

---

Je te laisse également regarder l'aide en ligne pour ces deux fonctions

Mid = extraction d'une portion de chaine de caractère
Instr = position d'une chaine de caractère dans une autre chaine

Bonjour,

Un autre exemple que celui de Joe mais qui utilise également la fonction Split

Dans un module standard :

Code:

---

1 2 3 4 5

Function ValeurApresTiret(ByVal ContenuComboBox As String) As Variant   If ContenuComboBox <> "" Then ValeurApresTiret = Split(ContenuComboBox, "- ")(1) & " " & Format(Date, "mm-yyyy")   End Function

---

Dans le Userform

Code:

---

1 2 3 4 5

Private Sub ComboBox1_Change()   TextBox1 = ValeurApresTiret(ComboBox1)   End Sub

---

L'exemple est dans le fichier joint Pièce jointe 197674

Cordialement.

bonjour à tous les deux.

tout d'abord merci !

J'ai testé les 2 codes et cela marche nikel !

Merci à vous

bonne journée