VBA (Excel - Macro)

Le
BlackRabbit Hors ligne
Bonjour,

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


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
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Publicité
Poster une réponse
Anonyme