XL 2010 Exécution automatique code si valeur cellule devient inf à now

[Usine à gaz]

Bonjour à toutes et à tous,

Toujours dans mon fichier de travail, j'ai besoin pour ne pas oublier des rappels qu'un message vocal s'exécute automatiquement quand la valeur d'une cellule (de la plage définie) devient inférieure à "now".

J'ai les codes voix suivants :
code de la feuille

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("g2:g16")) Is Nothing And R.Count = 1 Then
  If R < Now Then
    Call Test_Voix
    R.Select
  End If
    End If
End Sub

Module standard

Sub Information(ByVal Phrase As String)
  Application.Speech.Speak Phrase
  End Sub
Sub Test_Voix()
Information "Bonjour le Forum, je vous souhaite une belle journée"
End Sub

Le code s'exécute si je clique sur une cellule inférieure à now mais PAS AUTOMATIQUEMENT

En plus d'être prévenu par message vocal, l'exécution automatique me permettrait de retomber automatiquement sur la cellule concernée (et dans un fichier avec plus de 20000 lignes, ce serait super).

J'ai fait et je continue des recherches mais je n'ai pas trouvé jusqu'à maintenant.
Auriez-vous la solution ?
Je joins le fichier test.
Avec mes remerciements,
Amicalement,
Lionel,

 

[Roland_M]

Bonjour tout le monde,

tout dépend de ce que tu souhaites !?

'ceci lorsque tu modifies la cellule (Edite)
Private Sub Worksheet_Change(ByVal R As Range)
If Not Intersect(R, Range("g2:g16")) Is Nothing And R.Count = 1 Then
If R < Now Then Call Test_Voix: R.Select
End If
End Sub

'ceci quand tu sélectionnes la cellule sans l'éditer
Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("g2:g16")) Is Nothing And R.Count = 1 Then
If R < Now Then Call Test_Voix: R.Select
End If
End Sub

 

[phlaurent55]

Bonjour Lionel,

voir fichier joint

à+
Philippe

Edit: Bonjour Roland

 

[Usine à gaz]

Bonjour Roland
Bonjour Philippe

Le fichier de philippe tombe pil poil sur ma demande (j'ai mis la macro dans le code de la feuille) ... ça marche très bien.

Petit bémol :
Après le premier message et sélection de la cellule, le code doit stopper son exécution pour que j'appelle la personne à appeler.
et je relance pour aller cherche le suivant etc ....
Un grand merci Philippe,
Un grand merci Roland,
Amicalement,
Lionel,

 

[Usine à gaz]

Re-Roland,
Re-Philippe,

J'ai trouvé comment faire pour stopper après le premier msg vocal et comment ralancer le code (pas trop dur LOL).

Mais je bute sur un truc :
A la relance, il reste sur la première cellule trouvée et je voudrais qu'il trouve la suivante etc ...
Je continue mes recherches.
Fichier joint
Amicalement,
Lionel,

 

[Usine à gaz]

En fait, il faudrait un code pour qu'il ignore la ou les cellules trouvées précédemment.
C'est à dire qu'il cherche "en descendant" après la dernière cellule trouvée.
Je ne vois pas comment codifier ça LOL.
Je cherche.

 

[Roland_M]

re

tu manques méchamment de méthode !
pour ce que tu souhaites l'automatisme ne peut pas fonctionner !

il te faut pratiquer plus simplement:
un bouton pour déclencher la recherche des dates inférieures à partir de la position cellule que tu choisis.
la recherche s'arrête sur la première cellule avec date inférieure, qui te permet d'agir selon tes besoins
puis tu re-cliques sur ce bouton pour la suite dans la colonne ...

c'est aussi simple que ça !

 

[Usine à gaz]

LOL Roland, bien au contraire,
Mais effectivement, je pourrais juste faire une recherche mais c'est pour le fun et pour apprendre

 

[Roland_M]

re

ok mais à ce moment là dis le !

poses ta question en demandant comment pratiquer pour effectuer telle ou telle opération.

exemple pour ce cas précis je te conseille ce que je t'ai proposé précédemment !

 

[Usine à gaz]

En fait, c'est bon, je n'avais pas réfléchi jusqu'au "bout" du traitement.
Puisque la valeur de la cellule trouvé change après l'appel, c'est donc automatiquement la suivante qui est trouvé à la relance.
Problème solutionné LOL
Un grand Merci
Amicalement,
Lionel,