Création d'un msgbox en vba

Bonjour tout le monde,
Je souhaiterais créer un msgbox vba, qui m’alerte lorsque l’une des cellules des plages :
C4 à GD4 et C31 à GD31 , contienne un chiffre égale ou supérieur à 3 ou 4 ou 5 .
Se chiffre vient d’une somme et n’est pas taper manuellement ou la cellule n’est pas sélectionné au préalable.
je vous remercie pour votre colaboration
:)

Bonjour.

Un chiffre ou un nombre ?

Supérieur à 3 ou 4 ou 5 = supérieur à 3 ?

PGZ

Bonjour,

bon je vois que tu as cherché du coté des événements SelectionChange, Change..

essai maintenant avec l'événement Calculate.

@pgz

Bonjour et merci pour votre réactivité.
"Enfin de rester sur le fils du rasoir, je dirais égale et/ou supérieur à trois.
Bien que le Franciscain Guillaume d’Occam ne connaissait pas Excel et encore moins le VBA, je tacherais à l’avenir d’appliquer ce principe de raisonnement que d’autre utilisa bien avant lui. "
Merci. :)

@bbil

Bonjour,
En fait je n’ai pas de connaissance en VBA, je me contente juste pour l’instant, de tester des codes que je cherche sur le net, et, "tant bien que mal" les utiliser au mieux. J’envisage une formation courant 2015 dans ce domaine afin d'exploiter le maximum des possibilités d'Excel.
:)

Bonjour Philippe l'érudit.

Comme souvent, le pb c'est de trouver quel évènement exploiter. Comme bbil l'a suggéré, Calculate semble pas mal. Tu peux essayer de mettre cette procédure dans le module associé à la feuille à surveiller

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_Calculate() Dim oCell As Excel.Range   For Each oCell In Me.Range("C4:GD4").Cells If IsNumeric(oCell.Value) And (oCell.Value >= 3) Then Exit For Next oCell   If oCell Is Nothing Then For Each oCell In Me.Range("C31:GD31").Cells If IsNumeric(oCell.Value) And (oCell.Value >= 3) Then Exit For Next oCell End If   If Not oCell Is Nothing Then MsgBox "Alerte !" Set oCell = Nothing   End Sub

---

Bonne journée,

pgz

Bonsoir,
Je m’incline respectueusement, pgz.
Un tel résultat me donne, encore plus l’envie d’apprendre les bases du VBA.
Ton code fonction à merveille.
Merci et bonne soiré!


PS: "Erudit" je ne le suis point, juste curieux d'une expression que je découvre et qui m'incite à chercher son origine.:)