XL 2016 Vérifier si la valeur d'une cellule est plus grande que 1

job75 à dit:

Bonsoir dindin,

Dim c As Range
If IsNumeric(c) Then If CDbl(c) > 1 Then MsgBox "Bonsoir"

A+

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

Peut-être plus simple avec une validation des données

JHA

Cliquez pour agrandir...

dindin à dit:

Je n'arrive pas à adapter ce code.

Cliquez pour agrandir...

Sub Test()
Dim c As Range
For Each c In ActiveSheet.UsedRange
    If IsNumeric(c) Then If CDbl(c) > 1 Then MsgBox "Valeur " & c & " en " & c.Address(0, 0), , "Valeur > 1"
Next
End Sub

job75 à dit:

Bonjour dindin, JHA,

Vous n'avez pas fait beaucoup d'effort !

VB:

Sub Test()
Dim c As Range
For Each c In ActiveSheet.UsedRange
    If IsNumeric(c) Then If CDbl(c) > 1 Then MsgBox "Valeur " & c & " en " & c.Address(0, 0), , "Valeur > 1"
Next
End Sub

A+

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range
For Each c In ActiveSheet.Range("M15:o2300")
    If IsNumeric(c) Then If CDbl(c) > 1 Then MsgBox "Le vacataire : " & ActiveCell & " est sélectionné plus d'une fois, voir " & c.Address(0, 0), , "Attention remplacement non autorisé"
Next

End Sub

JHA à dit:

Bonjour à tous,

Il n'y a aucune formule dans le fichier d'origine.
Tu as aussi les MFC

JHA

Cliquez pour agrandir...

job75 à dit:

Bonjour dindin, le forum,

Au post #8 le message avec ActiveCell me paraît bizarre.

A+

Cliquez pour agrandir...