Boite de dialogue avertissant dépassement d'un pourcentage

[aurelie]

bonjour le forum,

j'ai une petite (ou grande) requête à vous demander.
je précise: je suis débutante en VBA...
J'ai une cellule qui a une formule (somme de recherchev), et je voudrais que lorsque cette cellule est <135% qu'une boite de dialogue s'ouvre et me dise que je ne suis pas bon.
Peut être existe t'il déjà des exemples mais impossible de les trouver.
Je travaille sous excel 5.0 (il n'y a que des modules et pas de worksheet open etc...)
J'espère avoir été clair dans mon problème
Merci d'avance pour votre aide,

Aurélie

 

[Bernard]

Bonsoir Aurelie

Petite macro automatique à mettre dans le module de la feuille ou se trouve la cellule.

Dans cet exemple, c'est la cellule A1 qui est concernée.

En cas de valeur inférieure à 135%, elle deviendra rouge et un message t'avertit du passage sous la valeur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A1] < 1.35 Then
[A1].Interior.ColorIndex = 3
MsgBox "Pourcentage erroné"
Else
[A1].Interior.ColorIndex = 0
End If
End Sub

Cordialement

Bernard

 

[aurélie]

Bonjour Bernard, le forum,

Cela marche mais seulment une seule fois. C'est à dire que lorsque que je change mes données ca ne me reprend pas la valeur. dobnc quand je dépasse le pourcentage l

Merci bernard pour ton aide
Aurélie