1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Dim clebudget As String
Dim rg, rgmois As Range
Dim reponse As Integer
Dim MyDataRealise As Object
clebudget = ListBoxBudgetReel.Column(1, ListBoxBudgetReel.ListIndex) & "/" & ListBoxBudgetReel.Column(0, ListBoxBudgetReel.ListIndex) & "-" & ListBoxBudgetReel.Column(3, ListBoxBudgetReel.ListIndex)
Set MyDataRealise = Sheets("Realise").Range("F1").CurrentRegion
Set rg = MyDataRealise.Range("F1:F10000").Find(clebudget, MyDataRealise.Range("F1"), LookIn:=xlValues, LookAt:=xlWhole)
If Not rg Is Nothing Then
reponse = MsgBox("Voulez vous vraiment supprimer cet enregistrement ?", vbYesNo + vbQuestion, "Confirmation")
If reponse = vbYes Then
MyDataRealise.Cells(rg.Row, "A").EntireRow.Delete
MsgBox "Enregistrement supprimé avec succès !", vbInformation, "Informations"
ListBoxBudgetReel.RowSource = "Tabrealise"
End If
Else
MsgBox "Impossible de supprimer l'enregistrement !", vbCritical, "Informations"
End If |
