Discussion :

[Kodisez]

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

[Zekraoui_Jakani]

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 :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
 
End Sub

[Kodisez]

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 :

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

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

[BENNASR]

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 :

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

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 :

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

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

[jurassic pork]

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 :


Ami calmant, J.P

[Kodisez]

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