Discussion :

[Desert-Storm]

Bonjour,

Merci de m'aider à optimiser mon code VBA (Excel) ci-dessous.
Actuellement il m'affiche une erreur d'exécution 1004 à la ligne "MyDataRealise.Cells(rg.Row, "A").EntireRow.Delete"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EricDgn]

Bonjour,

Ceci devrait suffire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Set rg = MyDataRealise.Find(clebudget, Range("F1"), LookIn:=xlValues, LookAt:=xlWhole)
...
    rg.EntireRow.Delete
...

Bonne continuation.

[Menhir]

Mets un point d'arrêt sur ton If et regarde dans la fenêtre des variables locales ce que contient MyDataRealise et rg.