Supprimer enregistrement depuis listbox

Salut chers tous

J'aimerais avoir un code qui supprime l'item dans listbox et l'enregistrement correspondant dans ma base de donnees

Merci.

Bonjour,

Pour la ListBox, c'est:

RemoveItem position,nombre

Pour la BD, il faut le no d'enregistrement.

Boisgontier

J'ai essayé d'adapter à mon fichier mais je n'y arrive pas.

Je veux associer au bouton supprimer du Usf : "Supprimer dans la table la ou les lignes sélectionnées dans la listbox"

Je joins un fichier test pour illustrer ma préoccupation.

Encore merci

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("liste")
  With ListBox1
    .ColumnCount = 6
    .ColumnWidths = "20;20;20;20;20;20"
    .MultiSelect = fmMultiSelectMulti
  End With
  Set Rng = f.Range("A2:F" & [A65000].End(xlUp).Row)
  Me.ListBox1.List = Rng.Value
End Sub

Private Sub CommandButton1_Click()
  For i = Me.ListBox1.ListCount - 1 To 0 Step -1
    If Me.ListBox1.Selected(i) Then
      f.Rows(i + 2).Delete
    End If
  Next i
  UserForm_Initialize
End Sub

Boisgontier

Merci Mais la suppression se fait uniquement dans la liste box mais pas aussi dans la table

C'est sur la feuille liste que la suppression se fait.

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("liste")
  With ListBox1
    .ColumnCount = 6
    .ColumnWidths = "20;20;20;20;20;20"
    .MultiSelect = fmMultiSelectMulti
  End With
  Me.ListBox1.List = f.Range("A2:F" & f.[A65000].End(xlUp).Row).Value
End Sub

Private Sub CommandButton1_Click()
  For i = Me.ListBox1.ListCount - 1 To 0 Step -1
    If Me.ListBox1.Selected(i) Then f.Rows(i + 2).Delete
  Next i
  UserForm_Initialize
End Sub

Boisgontier

C'est vrai Merci

Rechercher des sujets similaires à "supprimer enregistrement listbox"