Discussion :

[GADENSEB]

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 :

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

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

Qui aurais une idée ?

[joe.levrai]

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 :

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

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()

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 :

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

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

[Invité]

Bonjour,

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

Dans un module standard :

Code :

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

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 :

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

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.

[GADENSEB]

bonjour à tous les deux.

tout d'abord merci !

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

Merci à vous

bonne journée