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.

 

[patricktoulon]

re
bonsoir
pour etre sur

remplace "nom de la feuille" par le nom de ta feuille

Sub dialogue()

If val(sheets("nom de la feuille").Range("B3")) > val(sheets("nom de la feuille").Range("B5")) Then

MsgBox ("Quota annuel dépassé")

End If

 

[Harry Khauver]

Bonsoir,

Merci de ta réponse.
J'ai fait un copier/coller de ta réponse et plus rien ne fonctionne.
Vieillesse ennemie ou code à revoir:
Sub dialogue()

If Val(Sheets("Feuil1").Range("B3")) > Val(Sheets("Feuil1").Range("B5")) Then

MsgBox ("Quota annuel dépassé")
End If

End Sub

H.K.

 

[patricktoulon]

re
ton code est correcte pourtant

 

[Harry Khauver]

Désolé mais ne fonctionne pas alors qu'avec mon exemple du début cela fonctionnait mais unique ment si je demandais l'exécution

 

[Staple1600]

Bonsoir le fil, Harry Khauver (chouette le pseudo )

Harry Khauver
Je confirme cela fonctionne

Sub dialogue()
With Sheets("Feuil1")
  If Application.CountA(.[B3:B5]) Then
  If .[B3] > .[B5] Then
  MsgBox "Quota annuel dépassé!", vbCritical, "Erreur"
  End If
  Else
  MsgBox "Les cellules sont vides!", vbCritical
  End If
End With
End Sub

Tu as bien une feuille nommée Feuil1 dans ton classeur ?

 

[Harry Khauver]

Re

Je viens de faire un essai et il s'avère que le format heure est probablement le frein au fonctionnement. Avec un format nombre si je demande l'exécution le msgbox apparaît.
H.K.

 

[patricktoulon]

ahh... ce sont des heures hh:nn ???
il fallait le dire

Sub dialogue()
If cdate(Sheets("Feuil1").Range("B3")) > cdate(Sheets("Feuil1").Range("B5")) Then
msgBox ("Quota annuel dépassé")
End If
End Sub

 

[Harry Khauver]

Bonsoir le fil, Harry Khauver (chouette le pseudo )

Harry Khauver
Je confirme cela fonctionne

Sub dialogue()
With Sheets("Feuil1")
  If Application.CountA(.[B3:B5]) Then
  If .[B3] > .[B5] Then
  MsgBox "Quota annuel dépassé!", vbCritical, "Erreur"
  End If
  Else
  MsgBox "Les cellules sont vides!", vbCritical
  End If
End With
End Sub

Tu as bien une feuille nommée Feuil1 dans ton classeur ?

 

[Harry Khauver]

re
bonsoir
pour etre sur

remplace "nom de la feuille" par le nom de ta feuille

Sub dialogue()

If val(sheets("nom de la feuille").Range("B3")) > val(sheets("nom de la feuille").Range("B5")) Then

MsgBox ("Quota annuel dépassé")

End If

Bonsoir le fil, Harry Khauver (chouette le pseudo )

Harry Khauver
Je confirme cela fonctionne

Sub dialogue()
With Sheets("Feuil1")
  If Application.CountA(.[B3:B5]) Then
  If .[B3] > .[B5] Then
  MsgBox "Quota annuel dépassé!", vbCritical, "Erreur"
  End If
  Else
  MsgBox "Les cellules sont vides!", vbCritical
  End If
End With
End Sub

Tu as bien une feuille nommée Feuil1 dans ton classeur ?

Cela fonctionne uniquement si je clique sur "Exécuter". J'aimerais une exécution automatique.
Merci de ton soutien
Cordialement
H.K.

 

[Harry Khauver]

ahh... ce sont des heures hh:nn ???
il fallait le dire

Sub dialogue()
If cdate(Sheets("Feuil1").Range("B3")) > cdate(Sheets("Feuil1").Range("B5")) Then
msgBox ("Quota annuel dépassé")
End If
End Sub

Ca fonctionne uniquement si je clique sur "Exécuter". Ce que je souhaite c'est une application automatique.
Merci de ton aide.
H.K.

 

[patricktoulon]

ok donc dans l'evenement change des cellule c'est ca ?

avant d'aller plus loin
tes cellules qui changent comment changent -elles ?
par formules ou par vba ou a la main

 

[Harry Khauver]

ok donc dans l'evenement change des cellule c'est ca ?

avant d'aller plus loin
tes cellules qui changent comment changent -elles ?
par formules ou par vba ou a la main

La B5 est fixe, la B3 par formule

 

[Staple1600]

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

 

[Harry Khauver]

La B5 est un nombre fixe
La B3 est une somme de plusieurs cellules
H.K.