Message en automatique

Bonjour à tous,

Est-il possible de faire apparaitre une msgbox avec un message "quotat depasse" en automatique par exemple quand la case A1 = 0

Je cheche mais pour l'instant je n'y arrive pas

Merci d'avance

En A1 je suppose que tu as une formule. tu peux écrire la formule que tu as en A1?

Salut Brigand,

Dans l'évenement Change de ta feuille
tu tapes le code suivant :

Code:

---

1 2 3

If Range("A1") = 0 Then MsgBox("Quota Dépassé") End If

---

Merci tout d'abord pour ton aide.:zoubi:

En fait en A1 la formule est toute bete la difference entre a3 qui est une constante est a2 une variable.

En gros si A1 = 0 j'ai un message par un msgbox "quotat fini"

A2 variable, ça veut dire quoi? modifiable par l'utilisateur ou résultat aussi d'une formule?

oui c'est aussi le resultat d'une formule

:zoubi:

et je recommence ma question, tu peux reporter cette formule en A2?

Reboujour à tous
Merci pour les reponses que vous donnez:ccool:.

Imaginons une feuille la case A1 est la somme des case b1 à f1.
Si la somme egal à zero j'ai un message "quotat depasse".
Ceci fonctionne .

Par contre je ne voudrai avoir ce message que lorsque je selectionne une des cases b1 à f1. et pas de message lorsque je suis sur d'autre case que ceux -ci.
J'espere avoir été le plus clair possible.

voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub worksheet_change(ByVal target As Range)     If Range("A1") = 0 Then   MsgBox ("Quota Dépassé") End If     End Sub

---

Bonjour

La variable Target correspond a la cellule modifiée
En testant sa ligne et sa colonne ca devrait faire l'affaire

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub worksheet_change(ByVal target As Range)   If Target.Column >= 2 And Target.Column <= 6 And Target.Row = 1 Then   If Range("A1") = 0 Then MsgBox ("Quota Dépassé")   End If   End Sub

---

Merci :D:D:D

Cela fonctionne je n'avais pas penser à cette solution

merci encore