Bonjour,
Ce que je cherche a réalisé est le lancement automatique d une macro lors de la modification du contenu d une cellule.
Dans le fichier ci-joint se trouve:
* En D20 une heure en temps réelle (macro réalisée par MyDearFriend que je remercie au passage)
* En D25 se trouve une heure que je rentre manuellement.
* En D29 un résultât de comparaison en l heure rentrée et l heure actuelle (passage a 1 si heure manuelle dépassée)
Lors du passage de 0 a 1 (avec fonction SI) je veux lancer une macro, pour ce faire j utilise le code (inséré dans la feuille contenant ces cellule):
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D29")) Is Nothing Then
Message_Box
End If
End Sub
Le problème que je rencontre est le suivant:
Le lancement ne s effectué que si j update manuelle la valeur de la cellule D29.
Que dois-je faire pour que ma macro se lance automatiquement sans avoir besoin d updater manuellement la cellule D29?
Merci par avance pour votre aide
Cordialement
Alexandre BESSY
Ce que je cherche a réalisé est le lancement automatique d une macro lors de la modification du contenu d une cellule.
Dans le fichier ci-joint se trouve:
* En D20 une heure en temps réelle (macro réalisée par MyDearFriend que je remercie au passage)
* En D25 se trouve une heure que je rentre manuellement.
* En D29 un résultât de comparaison en l heure rentrée et l heure actuelle (passage a 1 si heure manuelle dépassée)
Lors du passage de 0 a 1 (avec fonction SI) je veux lancer une macro, pour ce faire j utilise le code (inséré dans la feuille contenant ces cellule):
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D29")) Is Nothing Then
Message_Box
End If
End Sub
Le problème que je rencontre est le suivant:
Le lancement ne s effectué que si j update manuelle la valeur de la cellule D29.
Que dois-je faire pour que ma macro se lance automatiquement sans avoir besoin d updater manuellement la cellule D29?
Merci par avance pour votre aide
Cordialement
Alexandre BESSY