Code VBA - déclenchement automatique message Box en cas de dépassement d'une valeur par rapport à une autre

bonjour

je voudrais l'ouverture automatique d'une message box qui avertit l'utilisateur du dépassement de valeur d'une Cellule ( sommant les valeurs d'une colonne) en comparaison d'une autre cellule contenue dans la même feuille

je suppose que cette macro doit être placée au niveau de ma feuille mais quelle est la méthode à employer.. ?
merci pour votre aide et un exemple simple de code que je pourrais tester

Clic droit sur le nom de la feuille; Puis "Voir Code ou View Code"
Choisissez "WorkSheet" dans la liste déroulante, puis "Change" dans les événements à droite
En principe vous aurez qq chose, comme :

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range)   End Sub

---

J'avais en effet pensé assigner à la variable Target le nom de mon range ( ici la référence de la Cellule sommant la colonne) et la tester par rapport à l'autre cellule

pensez-vous que mon code infra à un sens ? je l'ai en tout cas testé, mais ça n'est pas concluant

Code:

---

1 2 3 4 5

sub Assez-Credit() Target = range("$A$2").value if Target.value > range($b$2).value then msgbox " vous n'avez pas assez de crédit" end if end sub

---

cependant, ça n'a pas fonctionné


Au

Dans l'hypothèse ou tu veux comparer la somme de la colonne B avec la cellule A1 de l'onglet FEUIL1 à l'ouverture du classeur , tu peux faire un module et tu appelle ce module lors de l’éventement workbook.open.
module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub sommecolonneB()   Dim MaPlage As Range Dim MaSomme As Single Set MaPlage = Sheets("Feuil1").Columns(2)   MaSomme = Application.WorksheetFunction.Sum(MaPlage) If MaSomme > Sheets("Feuil1").Range("A1").Value Then MsgBox ("La somme de la colonne B est de : " & MaSomme & " dépasse la valeur cible qui est de : " & Sheets("Feuil1").Range("A1").Value) End If End Sub

---

et

Code:

---

1 2 3

Private Sub Workbook_Open() Call sommecolonneB End Sub

---

si tu veux avoir ce message non pas à l'ouverture mais lors de l'ajout d'une valeur dans la colonne B dans ce cas Worksheet_Change

Hello,
l'utilisation d'un surlignage ( texte en rouge par exemple) est peut-être plus judicieux que l'utilisation d'une messageBox . Dans ce cas on peut utiliser une mise en forme conditionnelle.
Exemple :
Pièce jointe 616395

Ami calmant, J.P

bonjour

cependant, je désire plutôt utiliser la MSGBOX dans mon cas
en effet, la valeur à comparer avec mon solde figure tout en bas d'une longue colonne ( cellule sommant les valeur de la colonne) , ce qui fait qu'un formatage conditionnel ne serait pas d'office apparent - un pop-up serait donc plus approprié dans mon mon cas

Hello,
tu peux utiliser l'événement Calculate de la feuille où est la formule (si calcul automatique).
Exemple :

Code:

---

1 2 3 4 5

Private Sub Worksheet_Calculate() If Range("C5").value > Range("A1") Then MsgBox "La valeur de C5 est trop grande" End If End Sub

---

Mais Attention ça risque de se déclencher à chaque fois qu'il y a un recalcul.

Ami calmant, J.P