Discussion :

[Matdenice]

Bonjour,

désolé si le titre n'est pas très clair mais ce n'est pas facile a dire en une phrase ^^

voila mon code

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cells As Range
For Each Cel In Range("f152:aj152")
    If Cel > 10 Then
    MsgBox "Seuil critique atteint", vbOKOnly, 48
Exit For
    End If
Next
End Sub

Je souhaite afficher un MsgBox en fonction d'une valeur d'une cellule d'une plage donnée, ( si une valeur dans (f152:aj152) passe supérieur à 10 le message s'affiche.

Mais je voudrais que quand je clique sur ok, et que je modifie une autre donnée, tant que une autre valeur ne passe pas au dessus de 10, le message ne s'affiche plus...

En vous remerciant par avance.

[unparia]

Bonjour

Une simple variable booléenne générale --->> False (par défaut) au départ, la mettre à True la 1ère fois et n'afficher la msgbox que si encore False. Non ?

Ceci dit : il y a une petite contradiction avec :

tant que une autre valeur ne passe pas au dessus de 10

A moins que tu n'aies pas donné les précisions nécessaires, voire indispensables, sur beaucoup de choses ...

EDIT (et quand même) : et si tu t'intéressais un peu à ce qu'est la validation des données ? (Ce ne serait pas du temps perdu).

[Matdenice]

Merci pour cette réponse rapide,

la premiere chose que j'aurais peut être du préciser est que je débute le VBA,

-Mes valeurs contenues dans (f152:aj152) sont des résultat de fonction "somme", j'ai essayer les validations de données et ca ne marche pas,

qu'entend tu par "Une simple variable booléenne générale --->> False (par défaut) au départ, la mettre à True la 1ère fois et n'afficher la msgbox que si encore False."

je ne connais pas.

[unparia]

la premiere chose que j'aurais peut être du préciser est que je débute le VBA

Non ! La précision espérée n'a rien à voir avec le développement et tout à voir avec l'exposé des tenants et aboutissants.
Commence par cela. On verra le reste ENSUITE (lorsqu'au moins les aboutissants seront exprimés sans la moindre ambiguïté).

[Matdenice]

Je gère un fichier RH qui se presente comme suit

Agents Postes 1 2 3 4 5 Jusqua 31 Janvier

A Vendeur
B Caissier
C commercial
D Vendeur
E Livreur
F Commercial

Je coche des qu'un agent est absent, ca me fait un total en bas grace a un NBVAL, si le 3 janvier j'ai 10 absent ou plus, je suis déclencher l'alerte, une fois l'alerte déclenchée le total du 3 janvier reste le même mais si je coche une absence le 5 Janvier, étant donnée que le total du 3 Janvier est superieur à 10 le message apparait, je veut qu'il réapparaisse si par exemple le 9 Janvier jai plus de 10 absent,

J'espère avoir été clair,

Merci

[unparia]

Veux-tu s'il te plait mettre ici une copie d'écran (pas ton fichier, mais une copie d'écran) montrant :
- la disposition de tes données (entêtes incluses)
- la/les cellule(s) où est ta formule NBVAL
On y verra alors probablement plus clair.

[Phil'oche]

Allez, pour te donner un coup de pouce :

En admettant que ta ligne des totaux se situe en 20ème ligne de la même feuille, tu peux essayer ça (code écrit avec les pieds, je sais... )

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Row >= 20 Then Exit Sub       ' Pour éviter de boucler lors d'une mise à jour des totaux
 
If Cells(20, Target.Column) > 10 Then               ' Si le total (en ligne 20) dépasse 10
    If Cells(21, Target.Column) <> "A" Then         ' et que l'alerte n'a pas déjà été donnée (en ligne 21)
        MsgBox "alerte"                             ' on affiche l'alerte
        Cells(21, Target.Column) = "A"              ' et on la marque comme signalée (en ligne 21)
    End If
Else
    Cells(21, Target.Column).Clear                  ' on redescend en dessous de 10, on supprime la marque d'alerte
End If
 
End Sub

En gros, à chaque fois que tu vas modifier une cellule "avant" de la ligne 20, l'évènement se déclenche. On vérifie si ta valeur auto-calculée (en ligne 20) dépasse 10, si c'est le cas et qu'on n'a pas émis d'alerte, on affiche le message et on met un "A" en ligne 21 pour flager l'alerte comme déjà effectuée.

[Matdenice]

C'est parfait, ca marche nikel, merci beaucoup,

[Menhir]

Je souhaite afficher un MsgBox en fonction d'une valeur d'une cellule d'une plage donnée, ( si une valeur dans (f152:aj152) passe supérieur à 10 le message s'affiche.

A ta place, je ferais une simple mise en forme conditionnelle qui passe la cellule en rouge (par exemple).
Ce serait 10 fois plus rapide et plus pratique qu'un MsgBox dans un Worksheet_Change.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Row >= 20 Then Exit Sub       ' Pour éviter de boucler lors d'une mise à jour des totaux
 
If Cells(20, Target.Column) > 10 Then               ' Si le total (en ligne 20) dépasse 10
    If Cells(21, Target.Column) <> "A" Then         ' et que l'alerte n'a pas déjà été donnée (en ligne 21)
        MsgBox "alerte"                             ' on affiche l'alerte
        Cells(21, Target.Column) = "A"              ' et on la marque comme signalée (en ligne 21)
    End If
Else
    Cells(21, Target.Column).Clear                  ' on redescend en dessous de 10, on supprime la marque d'alerte
End If
 
End Sub

A ta place, plutôt qu'un "A", j'aurais mis Cells(20, Target.Column).
Ca aurait permis de tester une éventuelle variation sur sa valeur.