Supprimé ligne dans listboxt

Bonjour,

J'ai un userform avec une listbox et 2 commandbuttons.

Mon premier commandbutton m'insére son prénom dans ma listbox (il ne fait qu'insérer dans la listbox et non dans une feuille)

Mon deuxième j'aimerais que mon commandbutton supprime le prenom dans ma listbox

En vous remerciant d'avance

Re,

Veuillez m'excuser, j'ai oublié d'insérer mon fichier

Merci

Bonjour,

Essai ca

Private Sub CommandButton2_Click()
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.List(i) = CommandButton1.Caption Then
        ListBox1.RemoveItem (i)
    End If
Next
End Sub

Re,

Merci de ton aide

ça m'inscrit erreur d'exécution 381

Merci

Re,

Private Sub CommandButton2_Click()
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.ListCount = 0 Then Exit Sub
    If ListBox1.List(i) = CommandButton1.Caption Then
        ListBox1.RemoveItem (i)
        i = -1
    End If
Next
End Sub

Tu devais avoir rentrer TOTO plusieurs fois non ?

Re,

ça m'efface la totalité de ma listboxt c'est parfait.

Merci

est-ce que je peux profiter de ta patience

j'aimerais (bien entendu la pour le test il y aura plusieurs toto mais au final j'aurais plusieurs prénom différent) supprimer juste ce que je sélectionne dans ma listbox.

Je te remercie

Re,

Comme ceci ?

Re,

Oui, sauf si c'est possible dans ton exemple si j'ai plusieurs TATA, il me les effaces tous.

Est-ce possible qu'il me supprime que celui que je selectionne.

Exemple

si j'ai 3 tata et que je supprime tata, il m'en reste deux

En te remerciant

Oui, attend j'ai plus mon PC

Je te fais ça tout a l'heure

Pas de soucis,

C'est super sympa de m'aider

Merci

Bonjour à tous,

Un essai ...

Cliquer sur l'item à supprimer > ensuite, cliquer sur le bouton Supprimer ... Seul l'item sélectionné sera supprimé ...

Dim Nom As String

Private Sub CommandButton1_Click()

    Me.ListBox1.AddItem "Bob"
    Me.ListBox1.AddItem "ric"
    ListBox1.AddItem CommandButton1.Caption
    Me.ListBox1.AddItem "Mike"
    Me.ListBox1.AddItem "ric"
    Me.ListBox1.AddItem "Jim"
End Sub

Private Sub CommandButton2_Click()

    If ListBox1.ListCount = 0 Then Exit Sub
    If ListBox1.List(ListBox1.ListIndex) = Nom Then ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub

Private Sub ListBox1_Click()

    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then Nom = ListBox1.List(i)
    Next i
End Sub

ric

Bonsoir Ric,

Merci de ton aide

Ton code est ce que je recherche.

Puis-je te demander:

si j'appuie sur supprimer sans sélectionner qq chose dans ma liste. J'ai un code d'erreur qui apparaît.

Serait-il possible d'obliger la sélection d'un nom avant d'exécuter la suppression pour ne plus avoir le code d'erreur.

En te remerciant,

Re,

J'ai essaye cela

Quand pensez-vous

Merci

Re,

J'ai essayer de changer l'apparition de mon msgbox.

J'y suis arrivé mais j'ai un soucis avec mon code.

l'apparition du message fonction bien mais aprés avoir cliquer sur oui, celui-ci me marque erreur

En vous remerciant,

Bonjour,

J'opterai pour ce code ci ...

Si aucune sélection > message

Sinon > il y a détection de la sélection > supprimer la sélection >

Après la suppression de l'item, l'item suivant est sélectionné > il faut donc la désélectionner ...

Pour désélectionner, l'on met .ListIndex à -1 >> puisque la listbox commence à 0 > la valeur -1 égale à aucune sélection.

Private Sub CommandButton2_Click()

If ListBox1.ListIndex = -1 Then   ' << Si aucune sélection
        MsgBox "Veuillez selectionner une ligne", _
               vbCritical + vbOKOnly, "ATTENTION !"
    Else                                ' sinon, supprimer la sélection
        If ListBox1.List(ListBox1.ListIndex) = Nom Then ListBox1.RemoveItem (ListBox1.ListIndex)
    End If
    ListBox1.ListIndex = -1         ' désélectionner après suppression
End Sub

ric

Re,

C'est niquel

Je te remercie vivement de ton temps à mon soucis

Encore merci

ric