M mat Guest 21 Juillet 2004 #1 je voudrais que lorsque des cellules vides sont dans les rangs a3:u3 cela m'affiche un message d'erreur
je voudrais que lorsque des cellules vides sont dans les rangs a3:u3 cela m'affiche un message d'erreur
J jp Guest 21 Juillet 2004 #2 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 Vote positif 0 Vote négatif
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