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

[dindin]

Bonjour,
Comment peut on exprimer en VBA dans une boucle la condition suivante :
Si la valeur d'une cellule dans la la plage suivante est plus grande que 1
Si vrai afficher le message suivant ....
Sinon rien faire
Merci pour votre aide.

 

[job75]

Bonsoir dindin,

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

A+

 

[dindin]

Bonsoir dindin,

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

A+

Bonjour job75
je n'arrive pas à adapter ce code. je joins un exemple, c'est plus simple
le but est de parcourir la plage en permanence et afficher un msgbox "xxxxxxxxxxxxxxx" si la valeur >1

 

[JHA]

Bonjour à tous,

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

JHA

 

[dindin]

Bonjour à tous,

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

JHA

Bonjour JHA
votre idée est bonne sauf que elle ne fonctionne pas avec des cellules qui contiennent des formules.
ou c'est moi qui a mal compris?

 

[job75]

Bonjour dindin, JHA,

Je n'arrive pas à adapter ce code.

Vous n'avez pas fait beaucoup d'effort !

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+

 

[JHA]

Bonjour à tous,

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

JHA

 

[dindin]

Bonjour dindin, JHA,

Vous n'avez pas fait beaucoup d'effort !

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+

Merci Job75
voici votre code final et qui fonctionne cette fois ci

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

 

[dindin]

Bonjour à tous,

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

JHA

je l'ai déjà fait avec la MFC, j'ai voulu rajouté encore un petit message de rappel.
En tout cas merci.

 

[job75]

Bonjour dindin, le forum,

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

A+

 

[dindin]

Bonjour dindin, le forum,

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

A+

le fichier gère un planning de vacation, dons si un nom est sélectionné depuis une liste déroulante plus d'une fois par jour, le msgbox récupéré le dernier nom sélectionné pour alerter que tel personne est sélectionnée par erreur.