cellule vide avec if

[mat]

je voudrais que lorsque des cellules vides sont dans les rangs a3:u3 cela m'affiche un message d'erreur

 

[jp]

SALUT,

essaye cette macro

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
For Each c In Range("A3:U3")
If IsEmpty(c.Value) Then
Cancel = True
MsgBox "Des infos n'ont pas été saisies dans la cellule " &
c.Address
End If
Next c
End Sub

 

[mat]

merci ça marche