excel out of memory sur un worksheet_change évènement
Le
bpascal123
Bonjour,
En l'absence de error resume next, le code suivant génère une erreur ou=
t of memory. Un conseil?
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
If Target = "raz" Then
ActiveSheet.Cells.ClearContents
End If
End Sub
Merci
Pascal
En l'absence de error resume next, le code suivant génère une erreur ou=
t of memory. Un conseil?
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
If Target = "raz" Then
ActiveSheet.Cells.ClearContents
End If
End Sub
Merci
Pascal
Ajoute :
Application.EnableEventsúlse
avant l'effacement des cellules et repositionne à "True" après.
Daniel
Merci Daniel