Bonjour
ce serait un code de test du genre
If range('B8') = 1 or range('B17') = 0 or range('F11') = 0 then
msgbox 'manque valeur dans cellule'
cancel=true
end if
à placer dans
Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
et
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End Sub
Mais je ne comprends pas trop tes conditions
PS : Sinon plaisir de te relire ça faisait un bail qu'on ne s'etait croisé sur un fil
Message édité par: Pascal76, à: 02/03/2006 14:31