Discussion :

[Brigand1936]

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

[mercatog]

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

[Touffe54]

Salut Brigand,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Brigand1936]

Merci tout d'abord pour ton aide.

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"

[mercatog]

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

[Brigand1936]

oui c'est aussi le resultat d'une formule

[mercatog]

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

[Brigand1936]

Reboujour à tous
Merci pour les reponses que vous donnez.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Brigand1936]

Merci

Cela fonctionne je n'avais pas penser à cette solution

merci encore