Re : Boite de dialogue
Bonsoir,
le code serais celui-ci
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range(Cells(2, 2), Cells(7, 8))) Is Nothing Then
For Each c In Range(Cells(7, 2), Cells(7, 8))
If c < 12 Then
MsgBox "Moyenne est inférieur à 12!", vbRetryCancel + vbCritical, "ERREUR !"
c.Select
Exit For
End If
Next c
End If
End Sub
Laurent