XL 2016 MsgBox

[Harry Khauver]

Bonjour,
J'ai bientôt 80 ans et la programmation en VBA est pour moi récente.
J'ai créé un fichier Excel destiné à réguler le nombre d'heures de travail prestées par des étudiants et de m'alerter lorsqu'ils dépassent leur quota, en l'occurrence 80h.
Ce quot est indiqué dans une cellule mais ce n'est pas obligatoire.
J'ai créé une macro mais le MsgBox ne s'affiche pas automatiquement
Où est l'erreur?
Voici le code que j'ai réalisé:
Sub dialogue()

If Range("B3") > Range("B5") Then
MsgBox ("Quota annuel dépassé")
End If

End Sub

Merci de votre aide
H.K.

 

[Staple1600]

Re

Tu as du zappé mon précédent message 😉
(on a posté en même temps)

 

[patricktoulon]

@Staple1600 tu es sur que l’événement sera déclenché avec la formule 😉
je pense que non

A voir

 

[Harry Khauver]

Re

Dans ce cas, il faut passer par une procédure événementielle
( à mettre dans le code de la feuille, et pas dans un module standard (comme Module1) )

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3", "B5")) Is Nothing Then
If Application.CountA(Range("B3", "B5")) = 2 And [B3] > [B5] Then
MsgBox "Quota annuel dépassé!", vbCritical, "Erreur"
End If
Else
MsgBox "Les cellules sont vides!", vbCritical
End If
End Sub

J'ai fait un "copier/coller" de ta procédure et rien ne se déclenche.
Je crois que je vais arrêter de vous embêter avec mes problèmes.
Vous finirez peut-être par vous lasser.
Merci pour tout
H.K.

 

[Staple1600]

Re

Tu l'as copié/collé où exactement?

 

[job75]

Bonsoir à tous,

Puisque en B3 il y a une formule la macro Worksheet_Change ne se déclenche pas, il faut utiliser une Worksheet_Calculate.

A+

 

[Harry Khauver]

Re

Tu l'as copié/collé où exactement?

Dans "Feuil1"

 

[Harry Khauver]

Bonsoir à tous,

Puisque en B3 il y a une formule la macro Worksheet_Change ne se déclenche pas, il faut utiliser une Worksheet_Calculate.

A+

Merci. Je vais essayer.

 

[Harry Khauver]

Bonjour à tous,
Merci de votre aide mais je crois que ma demande est probablement irréalisable. J'ai peut-être placé la barre un peu trop haut pour un "vieux" novice en matière de VBA.
Je vais me contenter d'une formule "SI".
Cordialement et encore merci à tous.
H.K.

 

[patricktoulon]

re
bonjour
tu a dit qu'une cellule était fixe et l'autre était une formule
j'ai une petite idée qui me trotte dans la tète depuis hier qui pourrait constituer un pseudo événement 😉
pourrai je connaitre cette formule

 

[Harry Khauver]

Bonjour,
La formule est: =SOMME(A1:J1)
C'est gentil

 

[patricktoulon]

re
j'ai trouvé un truc intéressant a mettre au point
j'ai ouvert une autre discussion je te laisse aller voir et même tester le fichier c'est par ici

 

[job75]

Bonjour à tous,

La formule est: =SOMME(A1:J1)

On peut alors utiliser cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:J1,B3,B5]) Is Nothing And [B3] > [B5] Then MsgBox "Quota annuel dépassé!", 48
End Sub

A+

 

[Harry Khauver]

Bonjour à tous,

On peut alors utiliser cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:J1,B3,B5]) Is Nothing And [B3] > [B5] Then MsgBox "Quota annuel dépassé!", 48
End Sub

A+

Cela fonctionne parfaitement.
Un tout grand merci
H.K.

 

[Harry Khauver]

Bonjour,
Merci à tous ceux qui se sont mobilisés pour résoudre mon petit problème.
Cordialement
H.K.