Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target) And Target.Value < 0 Then MsgBox "inf à 0..."
End Sub
Cordialementvu les détails donnés...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Then Exit Sub
If IsNumeric(Target) And Target.Value < 0 Then MsgBox "inf à 0..."
End Sub
Option Explicit
Private Sub Worksheet_Calculate()
If IsNumeric(Range("P7")) And Range("P7").Value < 0 Then MsgBox "inf à 0..."
End Sub
de quel code parles tu ? plusieurs déjà donnés.. peut être faire un test sur le nombre de cellules modifiées :Et ensuite j'ai un probléme car si je supprime plusieurs données ya une erreur qui s'affiche ( errer...'13' ..)
If Target.Count > 1 Then Exit Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Then Exit Sub
If IsNumeric(Target) And Target.Value < 0 Then MsgBox "inf à 0..."
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Or Target.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Value < 0 Then MsgBox "inf à 0..."
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 5 Or Target.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Value < 0 Then MsgBox "inf à 0...": Target = ""
End Sub