Retirer dernier caractère sans supprimer la ligne dans cBox

Bonjour Forum,

La derniere combobox à droite reprend le contenu de la Listbox1 (à gauche) en supprimant les doublons.

Ce que j'aimerais faire c'Est de pouvoir enlever les 2 derniers caractères soit "_1" mais en gardant le reste du contenu.

Je ne sais pas trop comment m'y prendre

Pouvez-vous m'aider!?

Encore moi,

pour l'instant j'essaie des trucs comme

For i = Me.ComboBox4.ListCount - 1 To 0 Step -1
    If Right(Me.ComboBox4.List(i, 1), 2) = "_1" Then
        Me.ComboBox4.TextLength = Right(-2)(i)
    End If
Next i

Mais je ne crois pas être dans la bonne direction, peut-être avec un then REPLACE?

Salut crackwood01,

plutôt ainsi.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
For i = Me.ComboBox4.ListCount - 1 To 0 Step -1
    sFlag = Me.ComboBox4.List(i, 1)
    If Right(sFlag, 2) = "_1" Then
        sFlag = Left(sFlag, Len(sFlag) - 2)
        Me.ComboBox4.List(i, 1) = sFlag
    End If
Next i
'
End Sub

Le mieux serait de faire cette manip' lors du transfert de la ListBox vers la ComboBox.

A+

Merci!

J'avais fait ca finalement mais je n'avais pas encore prit le temps de venir ici!

Dim i as Long

With ComboBox4
    For i = 0 to .ListCount - 1
        If .List(i) Like "*_?" Then .List(i) = Left(.List(i), Len(.List(i))-2)
    Next i
End With

Je vais quand même anslyser ton code voir si je peux apprendre autre chose!