Afficher une MsgBox en fonction d'une formule

DoubleZero

XLDnaute Barbatruc

• 17 Juillet 2013

• #2

Re : Afficher une MsgBox en fonction d'une formule

Bonjour, alexes82, le Forum,

Peut-être avec ce code, placé dans le module de l'onglet concerné :

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If [c3].Value > [d8].Value Then
        MsgBox "Attention : la valeur est trop grande !"
        [c3].Select
    End If
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 17 Juillet 2013

• #3

Re : Afficher une MsgBox en fonction d'une formule

alexes82 à dit:

Bonjour, j'ai trouvé des discution similaire mais rien ne pouvant m'aider.

J'aimerais qu'un message s'affiche lorsque la valeur de ma cellule "C3" est supérieur à la valeur de ma cellule "D8"

Pour me dire "Attention la valeur est trop grande!"

Cliquez pour agrandir...

Bonjour à tous,

Rien de plus simple :

Code:

Option Explicit

Sub ESSAI()
If Range("C3") > Range("D8") Then
MsgBox "Attention la valeur est trop grande!"
End If
End Sub

Bonne journée

 

Vote positif 0 Vote négatif

D

Denis

Guest

• 17 Juillet 2013

• #4

Re : Afficher une MsgBox en fonction d'une formule

Bonjour à tous,
encore plus simple:
Sélectionner C3
Validation de données / autoriser nombre / inférieur à / maximum "= D8"
Ensuite dans l'onglet "alerte d'erreur", mettre le message
Bon courage et à+
Denis

 

Vote positif 0 Vote négatif

A

alexes82

Guest

• 17 Juillet 2013

• #5

Re : Afficher une MsgBox en fonction d'une formule

Merci beaucoup ça marche impécable!

 

Vote positif 0 Vote négatif

A

alexes82

Guest

• 17 Juillet 2013

• #6

Re : Afficher une MsgBox en fonction d'une formule

Oui finalement c'est plus simple pour moi et pour mes besoin. Avec la question voulez vous continuer : Oui ou non comme ça mes chef seront content 😉

Merci a tous

 

Vote positif 0 Vote négatif