dreamalain
XLDnaute Junior
Bonjour à tous
Voici un code qui fonctionne pour supprimer une ligne d'une base de donnée alimentée par combobox
Le problème et que la liste déroulante ne tiens pas compte des suppressions
Il faudrait que la mise à jour soit faite sans fermer complétement l'userform
Merci d'avance
[Private Sub ComboVM1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Reponse As Variant
Dim Indexlist
Reponse = MsgBox("SUPPRIMER ?", 52, "Effacement de données")
If Reponse = vbNo Then Exit Sub
Indexlist = ComboVM1.ListIndex + 2
If Indexlist < 2 Then Exit Sub
Sheets("VIANDES").Rows(Indexlist).Delete
ComboVM1.ListIndex = -1
ComboVM1.Value = ""
Application.ScreenUpdating = False
End Sub]
Voici un code qui fonctionne pour supprimer une ligne d'une base de donnée alimentée par combobox
Le problème et que la liste déroulante ne tiens pas compte des suppressions
Il faudrait que la mise à jour soit faite sans fermer complétement l'userform
Merci d'avance
[Private Sub ComboVM1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Reponse As Variant
Dim Indexlist
Reponse = MsgBox("SUPPRIMER ?", 52, "Effacement de données")
If Reponse = vbNo Then Exit Sub
Indexlist = ComboVM1.ListIndex + 2
If Indexlist < 2 Then Exit Sub
Sheets("VIANDES").Rows(Indexlist).Delete
ComboVM1.ListIndex = -1
ComboVM1.Value = ""
Application.ScreenUpdating = False
End Sub]