Bonjour,
Je rencontre un message d'erreur aléatoire qui me bloque Excel :
"Erreur système & H80010108 (-2147417848). L'objet invoqué s'est déconnecté de ses clients."
Lorsque j'exécute la macro ci-dessous avec un raccourci clavier, elle insert une ligne avec une copie de la ligne du dessus et supprime les cellules C à H de la ligne copiée.
Lorsque le message système apparait, le copié/collé est effectué et la ligne de code Application.CutCopyMode = False n'est pas passée en exécution.
Avez-vous déjà rencontré ce problème?
Cordialement
la macro est enregistrée au niveau du ThisWorkbook
Sub insertionligneCalendrier()
Dim DernLigne As Integer
Dim rng As Range
Dim L As Long
If ActiveSheet.Name <> ("Eau") Then Exit Sub
Application.ScreenUpdating = False
L = ActiveCell.Row
Rows(L - 1).Copy
Rows(L).Insert Shift:=xlDown
Application.CutCopyMode = False
Range("c" & L, "h" & L).ClearContents
DernLigne = Range("i" & Rows.Count).End(xlUp).Row
Set rng = ThisWorkbook.Worksheets("Eau").Range("i26:i" & DernLigne)
rng.Formula = "=i25-g26+h26"
Set rng = Nothing
Application.ScreenUpdating = True
End Sub