supprimer le signe - dans un listbox.Résolu

Question

Bonjour, 

Pouvez-vous m?aider
 
j'aimerai supprimer dans un listbox tous les signes  - qui son forcement présent dans la référence de chaque ligne. 
 Dans mon cas transformer Test.aa-123654 en Test.aa- . 

Et ainsi dans chaque ligne.
 Voici le code : 

----------------------------------------------------- 

Private Sub Command2_Click() 

Dim i As Long 

Dim iPos As Integer 

iPos = InStr(1, List3.Text, "-") 

'Si la list3 est vide il quitte la fonction 


If List3.ListCount < 1 Then Exit Sub 


For i = 0 To List3.ListCount ? 1 

If iPos Then List3.Text = Left$(List3.Text, iPos) 

Next 
End Sub 

----------------------------------------------------- 

Auriez-vous une idée.

Merci d? avance pour votre aide. 
A+

Mayzz · Accepted Answer

Salut,

Essaye ceci :

For i = 0 To Listbox3.ListCount - 1
    Listbox3.List(i) = Mid(Listbox3.List(i), 1, InStr(Listbox3.List(i), "-"))
Next

@+ Mayzz.

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

sancho12345 · Answer

Bonsoir Mayzz,

Un grand merci à toi c'est tout ce que je recherche.

Merci encore.

A+

Supprimer le signe - dans un listbox.

2 réponses

Votre réponse

Discussions similaires