Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Usine à gaz

XLDnaute Barbatruc
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
Code: 
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
Code: 
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,
 

Pièces jointes

  • Test Voix.xlsm
    19.7 KB · Affichages: 34
Trier par date Trier par votes

Roland_M

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
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,
 

Pièces jointes

  • 111.xlsm
    18.4 KB · Affichages: 25
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
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,
 

Pièces jointes

  • Test Voix.xlsm
    21.5 KB · Affichages: 29
Dernière édition:
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
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.
 
Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc
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 !
 
Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc
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 !
 
Dernière édition:
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
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,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
296
sylvanu
  • Question
XL 2019 Target ne s'exécute pas si je valide ma cellule vide
Réponses
5
Affichages
775
patricktoulon
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
1 K
mathieu20
M
K
  • Question
Microsoft 365 Remplir une cellule avec la date du jour uniquement si celle-ci est vide et si la première cellule de la ligne contient quelque chose
Réponses
5
Affichages
886
ThierryP
T
J
  • Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
R
  • Question
RVlalanne
Réponses
1
Affichages
839
fanfan38
W
  • Résolu(e)
XL 2013 Exécuter une macro uniquement si la date d'une cellule est inférieure à la date du jour
Réponses
3
Affichages
8 K
WIsh_
W
  • Résolu(e)
Autres Exécution Macro avec cellule vérouillée/feuille protégée
Réponses
4
Affichages
792
GRI84
  • Question
XL 2016 msgbox si double clic ou clic droit sur cellule au lieu d'1 seul clic
2 3
Réponses
43
Affichages
3 K
Usine à gaz
M
  • Question
XL 2016 Date de remplissage d'une cellule dans la colonne à côté
Réponses
3
Affichages
2 K
masrino
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…