Extraire chaine de caractères

[alias_2003]

Bonjour à tous,
j'aimerais que lorsque le texte de la combobox1 contient un tiret (-), ne garder que le texte avant ce tiret... Est-ce possible ?
Merci beaucoup,
Bonne journée

 

[Staple1600]

Re : Extraire chaine de caractères

Bonsoir à tous____________________EDITION: Bonsoir à toi également Bebere 🙄


Voir avec la fonction Split
Exemple
Code VBA:
Sub testsplit()
Dim Chaine$
Chaine="Week-End"
MsgBox Split(Chaine,"-")(0) 'Renvoie Week
End Sub

 

[alias_2003]

Re : Extraire chaine de caractères

Bonsoir staple1600,
Je te remercie beaucoup, c'est exactement ce que je recherchais !
Encore merci,
Bonne soirée !

 

[Bebere]

Re : Extraire chaine de caractères

bonjour alias
tu supprimes liste (rowsource dans propriétés de combobox1)

Private Sub UserForm_Initialize()
    Dim L As Long

    With Worksheets("Feuil1")
        L = .Range("A65536").End(xlUp).Row
        For Each cel In .Range("A1:A" & L)
            Me.ComboBox1.AddItem Mid(cel, 1, InStr(cel, "-") - 1)
        Next cel
    End With

End Sub