Plage de cellules restreintes pour une target

Bonjour le forum,

Je souhaiterais appeler une macro dès que :

1/ je fais une modification dans une plage de cellules (plage de cellules => D3:G3)

2/ si après modification dans cette plage, toutes les cellules sont non vides.

Cela donnerait (à mon avis mais c'est mal écrit) :

Private Sub Worksheet_change(ByVal Target As Range)

If Target.Address = range("D3":"G3") Then

If Not IsEmpty(Target) Then

Call ma_macro

end if

end if

end sub

En vous remerciant par avance .

Bonjour,

À tester ...

Private Sub Worksheet_change(ByVal Target As Range)

   If Target.Count > 1 Then Exit Sub
   If Intersect(Target, Range("D3:G3")) Is Nothing Then Exit Sub
   If Application.CountA(Range("D3:G3")) = 4 Then Call ma_macro
End Sub

Sub ma_macro()
MsgBox " traitement"
End Sub

ric

Bonjour Quiquequoidontou, le forum

Et aussi

Private Sub Worksheet_change(ByVal Target As Range)
If not Intersect(Target, [D3:G3] is Nothing and Application.CountA([D3:G3])=4 then Ma_macro Else Exit sub
End sub

Merci vous êtes top sur ce forum!