Petit code VBA

[Tom32]

Bonjour,

j'aurais besoin d'un tout petit code VBA (je pense qu'il est tout petit, mais je n'en suis pas sur).

J'aimerais qu'une fenêtre (type attention, la valeur est hors champ) s'ouvree si la valeur de la cellule H37 est supérieure à 10000.

Je ne sais pas du tout comment retranscrire ça en VBA. Quelqu'un peut il m'aider ?

Merci d'avance de votre aide

 

[JNP]

Re : Petit code VBA

Bonjour Tom32 ,
H37 est une cellule calculée ?
A +

 

[Tom32]

Re : Petit code VBA

oui c'est une cellule calculée (j'aurai pu intégrer le calcul à la macro mais, je ne sais pas trop comment m'y prendre pour, donc j'ai décidé de la calculer dans la feuille)

 

[JNP]

Re : Petit code VBA

Re ,
OK, mais sur quel élément peux-tu déclencher ?
A +

 

[Tom32]

Re : Petit code VBA

je veux qu'à l'ouverture de mon fichier, si la cellule H37 est supérieure à 10000 la fenêtre s'ouvre.
Ou alors si j'entre une valeur et que la cellule H37 passe au dessus de 10000, elle s'ouvre aussi !

 

[JNP]

Re : Petit code VBA

Re ,
Pour l'ouverture, dans ThisWorbook

Private Sub Workbook_Open()
If Sheets("Feuil1").Range("H37") > 10000 Then
MsgBox "Attention, valeur critique !", vbCritical, "Dépassement"
End If
End Sub

à adapter pour le nom de la feuille. Pour le changement de valeur, il faudrait savoir dans quelle cellule tu tapes les valeurs pour ne faire le test que si tu es dans ces cellules là, mais tu peux aussi mettre simplement dans le code de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H37") > 10000 Then
MsgBox "Attention, valeur critique !", vbCritical, "Dépassement"
End If
End Sub

Bon courage

 

[Tom32]

Re : Petit code VBA

ça ne marche pas !

Aucune message box ne s'ouvre, aussi bien quand j'ouvre le fichier ou bien qu'en entrant une nouvelle valeur qui fait dépasser 8000 dans la cellule H37.

 

[job75]

Re : Petit code VBA

Bonsoir Tom32, JNP

On se remet vite au boulot après le bug du siècle [Edit : supprimé le smiley car c'était du sérieux] , un grand merci David, que ferait-on sans XLD ?

Autre solution dans le code de la feuille, intéressante surtout si la cause du dépassement se trouve dans une autre feuille :

Private Sub Worksheet_Calculate()
If Range("H37") > 10000 Then _
MsgBox "Attention, valeur critique !", vbCritical, "Dépassement"
End Sub

A+

 

[JNP]

Re : Petit code VBA

Re ,

ça ne marche pas !

Aucune message box ne s'ouvre, aussi bien quand j'ouvre le fichier ou bien qu'en entrant une nouvelle valeur qui fait dépasser 8000 dans la cellule H37.

Faudrait savoir, tu avais demandé 10000 ...
Modifie le code avec la valeur que tu souhaites ...
Bonne soirée

 

[Tom32]

Re : Petit code VBA

oups oui ça ne venait pas du 10000 mais c'est bon j'ai trouvé la solution, une bête erreur de sécurité des macros !! (oui je sais erreur bête ...)

Juste un petit détail purement informatif, si je veux changer la croix rouge de la message box par un signe attention, il faut que je change vbcritical non ?? Et par quoi ??

Petit détail supplémentaire, une fois que H37 a dépassé la valeur voulue, la message box s'ouvre à chaque fois que je change de cellule, ce qui peut être énervant, n'est il pas possible que la message box ne s'ouvre qu'une seule fois après que H37 ait dépassé la valeur souhaitée ??

Sur c emerci et bonne soirée

 

[JNP]

Re : Petit code VBA

Re ,
Pour que le message ne s'affiche que lorsque tu changes la valeur, c'est ce que je te demandais tout à l'heure, quelles cellules changent?
En admettant que ce soit A1

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Range("H37") > 10000 Then
MsgBox "Attention, valeur critique !", vbExclamation, "Dépassement"
End If
End Sub

ne réagira que si A1 est modifié, donc à adapter à ton cas. J'ai mis un vbExclamation, je pense que ça t'ira mieux.
Bon courage

 

[Tom32]

Re : Petit code VBA

Alors l'idée est bonne, seulement ça ne fonctionne pas parce que c'est une valeur dans une colonne qui peut changer (celles dans la colonne B) et deuxièmement, parce qu'il y a déja une valeur donnée par une formule dans cette colonne B.
Donc la fonction Is Nothing ne peut pas fonctionner étant donné qu'il y a toujours quelque chose dans les cellules de ces colonnes. Il faudrait une fonction Is Changing lol mais je sais pas si ça existe...

 

[ninajams]

Re : Petit code VBA

salut tom,

peux tu mettre un exemple de ton fichier STP.

Ca nous aidera peut être à mieux visualiser ton problème.

Micka

 

[JNP]

Re : Petit code VBA

Re ,

Donc la fonction Is Nothing ne peut pas fonctionner étant donné qu'il y a toujours quelque chose dans les cellules de ces colonnes.

Non, Is Nothing vérifie si l'intersection de la cellule qui vient de changer correspond à la zone souhaitée...
Par contre, si c'est dans la colonne C par exemple que la valeur changée va se calculer dans B, puis du coup en H37, c'est l'intersection de C et de Target qu'il va faloir surveiller.
Capito ?
Bonne journée

 

[Tom32]

Re : Petit code VBA

Pas tout capito,

En tout cas il y a toujours des valeurs calculées dans la colonne B. Ces valeurs sont régulièrement modifiées (la formule est écrasée) ce qui peut amener à changer la valeur de la cellule H37.

Voila le scénario susceptible de changer la cellule H37. Je sais pas si c'est plus clair?

Merci