Créer un message d'alerte quand ma cellule change

Bonjour le forum,

je bosse actuellement sur la création d'un tableau de bord et j'aimerai mettre en place une macro qui m'affiche un message lorsque ma cellule change.

j'ai calculé le nombre de personne ayant atteint 61 ans (cellule E4), j'aimerai que lorsque cette cellule change un message apparait pour me dire "ATTENTION, IL FAUT BIENTOT PRÉVOIR UN NOUVEAU SALARIÉ"

Pouvez vous m'aider svp je suis vraiment nul en VBA...

Merci d'avance et bonne journée à vous

bonjour

sans VBA

Bonjour,

Une proposition à étudier.

Cdlt.

Bonjour.

Essayer ce code que j'ai trouvé déjà sur le net. Je l'ai testé et ça marche bien.

Dans le module de la feuille

Public ValPrec

Private Sub Worksheet_Calculate()

Vérif

End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

Vérif

End Sub

Private Sub Vérif()

If VarType(Range("A1")) = VarType(ValPrec) Then _

If ValPrec = Range("A1") Then Exit Sub

MsgBox "Cellule A1 passe de " & CStr(ValPrec) & _

" vers " & CStr(Range("A1"))

ValPrec = Range("A1")

End Sub

' Dans le module de code ThisWorkbook :

Dans le module du classeur

Private Sub Workbook_Open()

Feuil1.ValPrec = Feuil1.Range("A1")

End Sub

Bonne réception.

bonjour

un essai avec une pichnette de VBA

cordialement

re à tous

il y une question à se poser : l'indicateur (avec son alarme, c'est à dire son objectif maxi) est-il :

• "valeur qui change"
• ou bien "valeur >4" ?

dans le premier cas il faut un brin de VBA, comme dit ci-dessus

dans le second, un simple SI suffit, comme dit ci-dessus

Merci à tous pour votre aide... j'ai réussi