Discussion :

[philippe07000]

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

[pgz]

Bonjour.

Un chiffre ou un nombre ?

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

PGZ

[SfJ5Rpw8]

Bonjour,

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

essai maintenant avec l'événement Calculate.

[philippe07000]

@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.

[pgz]

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 :

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

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

[philippe07000]

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.