(RESOLU)supprimer selon combobox

[chaelie2015]

Bonjour Forum
Dans mon USF j’ai ComboBox1 et un bouton « supprimer »
Je souhaite supprimer la ligne (dans le tableau de la feuille « BdD » ) qui contient la donnée qui a été sélectionnée par ComboBox1(liste de la colonne L)
Exemple :
Supposons que la ComboBox contient l’info suivante : XXX3 qui est dans la cellule L12
Alors quand je clic sur le bouton Supprimer je doit supprimer la ligne 12 du tableau
Edit: La cellule de la colonne L commence a prtir de L4

A+

 

[Chris401]

Re : supprimer selon combobox

Bonjour

Merci de joindre ton fichier.

Cordialement
Chris

 

[chaelie2015]

Re : supprimer selon combobox

Re
ci dessous la solution qui n'est pas encore finalisée

Private Sub CommandButton1_Click()
Rows(ComboBox1.ListIndex + 4).Delete
ComboBox1.Clear
UserForm_Initialize
ComboBox1 = ""
End Sub

Private Sub UserForm_Initialize()
For n = 4 To Range("L65536").End(xlUp).Row
ComboBox1.AddItem Range("L" & n)
Next n
End Sub

je souhaite faire apparaître un message avant la suppression
avec les info suivant - voulez vous supprimer la note N° "cellule AD " de " cellule A"
si oui sup sinon...
A+

 

[Chris401]

Re : supprimer selon combobox

Re

Tu adapteras le message car je ne vois à quoi correspond "cellule AD"

Private Sub CommandButton1_Click()
x = ComboBox1.ListIndex + 4
If MsgBox("voulez vous supprimer la note " & Cells(x, 12) & vbCr & _
"cliquez sur OUI pour Supprimer" & vbCr & _
"cliquez sur NON pour Annuler", vbYesNo, _
"Demande de confirmation") = vbYes Then
Rows(x).Delete
End If
ComboBox1.Clear
UserForm_Initialize
ComboBox1 = ""
End Sub

Cordialement
Chris

 

[chaelie2015]

Re : supprimer selon combobox

Bonjour CHRIS
EXCELLENT TRAVAIL
Mon souci est résolu
Merci