Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

excel out of memory sur un worksheet_change évènement

2 réponses
Avatar
bpascal123
Bonjour,

En l'absence de error resume next, le code suivant g=E9n=E8re une erreur ou=
t of memory. Un conseil?

Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
If Target =3D "raz" Then
ActiveSheet.Cells.ClearContents
End If
End Sub

Merci
Pascal

2 réponses

Avatar
DanielCo
Bonjour,
Ajoute :
Application.EnableEventsúlse
avant l'effacement des cellules et repositionne à "True" après.
Daniel


Bonjour,

En l'absence de error resume next, le code suivant génère une erreur out 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
Avatar
bpascal123
je crée une méthode récursive sans le savoir...l'évènement efface r appel l'évènement change qui appel l'évènement effacer et ainsi d e suite
Merci Daniel