Supprimer Ligne dans ListBox

[Erebus75]

Bonjour le forum,

Voilà dans un Userform, j'ai une listbox où sont affiché des noms, mais je voudrais en supprimer (ces noms étant stockés ici en feuil1), mais voilà je n'ai pas la macro qui me permettrait de le ou les supprimer et je ne sais pas comment faire.

Pourriez vous m'aider SVP, merci

Ci-joint un fichier d'exemple

 

[Compte Supprimé 979]

Re : Supprimer Ligne dans ListBox

Salut Erebus75,

Tu peux utiliser le code suivant

Private Sub CommandButton1_Click()
  Me.ListBox1.RemoveItem (Me.ListBox1.ListIndex)
End Sub

Pour supprimer une ligne de ta ListeBox

A+

 

[Erebus75]

Re : Supprimer Ligne dans ListBox

Merci BrunoM45,

C'est une partie de la réponse. En fait, il faudrait que la ligne se supprime également sur la feuil1, là elle n'est supprimé que dans la listbox.

je ne l'ai pas précisé pardon

 

[ninbihan]

Re : Supprimer Ligne dans ListBox

Bonjour Erebus, bonjour Bruno,

Voici ton fichier modifié... J'espère que cela pourra t'aider

Bonne journée,

Ninbihan

 

[Erebus75]

Re : Supprimer Ligne dans ListBox

Merci BrunoM45 et ninbihan,

C'est exactement ce qu'il me fallait, je cherche ce code depuis quelques temps déjà vous me retirer une épine du pied.

Merci encore à vous deux

 

[kjin]

Re : Supprimer Ligne dans ListBox

Bonjour,
En ajoutant la ligne bleue pour vérifier la sélection

Private Sub CommandButton1_Click()
[COLOR="Blue"]If ListBox1.ListIndex = -1 Then Exit Sub[/COLOR]
If ListBox1.ListCount > 0 Then
    Range("A" & ListBox1.ListIndex + 2).Delete shift:=xlShiftUp
    'si tu veux supprimer la ligne entière remplace la ligne ci dessus par
    'Range("A" & ListBox1.ListIndex + 2).EntireRow.Delete
    init_listbox
Else
    MsgBox (" Il n'y' a plus d'enregistrement à supprimer")
End If
End Sub

A+
kjin

 

[Erebus75]

Re : Supprimer Ligne dans ListBox

Merci Kjin,

Si je peux me permettre, comment peut on modifier la listbox pour qu'à la place de me mettre simplement la colonne B et il rajoute aussi d'autres colonnes (C, D, ...), j'ai essayé dans cet partie

Sub init_listbox()
Agent.Clear
For i = 2 To Sheets("Agents").Range("B65536").End(xlUp).Row
    Agent.AddItem Sheets("Agents").Range("B" & i)
Next i
End Sub

de rajouter

Agent.AddItem Sheets("Agents").Range("C" & i)

en dessous mais dans la listbox il me la met en dessous aussi du coup

Merci

 

[Erebus75]

Re : Supprimer Ligne dans ListBox

Pardon pour le message d'avant je viens de trouver, simplement

Agent.AddItem Sheets("Agents").Range("B" & i) & "   " & Sheets("Agents").Range("C" & i)

pour ceux qui seraient intéressés.

Mais une petite précision, comment peut on faire pour que les deux lignes soient justifiées?

Ex:
Martin Stéphane Agents
Hubu David Agents
en
Martin Stéphane Agents
Hubu David Agents
Je continu à chercher mais merci de vos réponses