Supprimer source listbox ligne selectionné

Bonjour à tous,

j'ai besoin de votre aide qui me sera précieuse pour faire avancer ma base dont je joint un extrait. je souhaite pouvoir supprimer, en cliquant sur le bouton supprimer, un enregistrement sélectionné à partir de listbox.

Private Sub ComboBox1_Change()
Dim plage As Range, cell As Range
Dim recherche As String, Adresse As String
Dim Ligne As Integer, n As Integer
Dim C As Range
'effacer la listebox
ListBox1.Clear
n = 0
recherche = Me.ComboBox1.Value
Ligne = Sheets("feuil1").Range("a" & Rows.Count).End(xlUp).Row

Set plage = Sheets("feuil1").Range("a2:" & "a" & Ligne)

With plage
Set C = .Find(recherche, LookIn:=xlValues)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(recherche) = UCase(Left(C, Len(recherche))) Then
ListBox1.AddItem C.Offset(0, 0), n
        ListBox1.List(n, 0) = C
         ListBox1.List(n, 1) = C.Offset(0, 1)
          ListBox1.List(n, 2) = C.Offset(0, 2)
           ListBox1.List(n, 3) = C.Offset(0, 3)
            ListBox1.List(n, 4) = C.Offset(0, 4)
             'ListBox1.List(n, 5) = C.Offset(0, 5)
                n = n + 1
                End If

         Set C = .FindNext(C)

     Loop While Not C Is Nothing And C.Address <> Adresse

End If
End With
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim i As Integer

For i = 2 To Sheets("feuil1").Range("a" & Rows.Count).End(xlUp).Row

Me.ComboBox1.AddItem Sheets("feuil1").Cells(i, 1)
Next i
End Sub

Bonjour,

Dans la mesure où tu as déjà trouvé les coordonnées de la source .... il te suffit d'ajouter :

C.EntireRow.Delete

bonjour James007,

merci de ta réponse, j'ai mis ton code mais ça signale "erreur d'exécution 424" objet requis.

Private Sub CommandButton1_Click()
Dim C
C.EntireRow.Delete
End Sub

peut-on trouve une solution à l'erreur?

Bonjour,

Ton code est juste ... c'est simplement la déclaration de la variable qu'il fallait changer ...

Ci-joint ton fichier test ...

bonjour James007,

merci beaucoup, c'est exactement ce je voulais. thanks!

Re,

You are welcome ...!!!

Merci pour tes remerciements ....

bonjour à tous,

ce sujet était clos mais, mes besoins ont evolué, le code

C.EntireRow.Delete

supprime toujours la première ligne de listbox. Je voudrais maintenant que le code supprime la source de la ligne selectionnée dans listbox. Merci d'avance.

Bonjour,

Dans ta dernière version du fichier joint ... il me semble que c'était déjà le cas ...

Private Sub CommandButton1_Click()
'Supprimer
C.EntireRow.Delete
ComboBox1.Clear
ListBox1.Clear
MsgBox " La ligne a été supprimée ..."
End Sub

Zongo86 a écrit :

bonjour à tous,

ce sujet était clos mais, mes besoins ont evolué, le code

C.EntireRow.Delete

supprime toujours la première ligne de listbox. Je voudrais maintenant que le code supprime la source de la ligne selectionnée dans listbox. Merci d'avance.

bonjour James007, pour la suppression dans listbox c'est bon, je voudrais supprimer donc la source de la ligne même s'il ya plusieurs, juste celle selectionnée.

Re,

je voudrais supprimer donc la source de la ligne même s'il ya plusieurs, juste celle selectionnée.

Sincèrement .... je ne comprends pas du tout ...

re, James007

merci pour ton temps,

sur la listbox peut s'afficher 2 ou 3 lignes, exemple: je selectione la ligne 3, je voudrais qu'en cliquant sur le bouton contenant le code, ça supprime la ligne correspondante sur la feuille excel.

Re,

Je suis vraiment désolé ... car c'est bien le choix dans la listbox qui supprime la ligne dans la feuille Excel ...

Pourrais-tu m'envoyer un nouvel exemple du résultat que tu attends ...???