Supprimer une cellule

Question

Bonjour je suis débutant en VBA , Eric Kergresse m'a aidé à faire une vba.

J'aimerai juste ajouter à son vba, de nettoyer la cellule G7,

j'ai ajouté

 Range("G7").Select
           Selection.Clear

elle marche mais ça crash dès que cela se termine .

Vous avez des idées? Merci

Private Sub Worksheet_Change(ByVal Target As Range)

        If Target.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("ReferencePlus")) Is Nothing Then
           AddSubtract Range("ReferencePlus"), Range("ZonePlus")
           Range("G7").Select
           Selection.Clear
        End If

        If Not Intersect(Target, Range("ReferenceMoins")) Is Nothing Then
           AddSubtract Range("ReferenceMoins"), Range("ZoneMoins")
        End If

End Sub

BsAlv · Accepted Answer

Vous avez créer un "deadlock", parce qu'excel reste dans un boucle infini d'effacer G7

au lieu de

Range("G7").Select

Selection.Clear

utilisez

with range("G7")

if Len(.value)>0 then .clearcontents

end with

ou bien il faut utiliser "enableEvents" false et true