Timer qui actualise colonne de feuille

[mimy]

Bonjour!!

Savez vous comment faire un timer qui actualise une colonne de ma feuille ? Dans cette colonne je dois mettre des liens qui me permettent d avoir les cours d actions en live et fonction de certaines valeurs que prendront mes cellules un popup devra s afficher!

Merci!

 

[mimy]

Re : Timer qui actualise colonne de feuille

Je ne trouve toujours rien.... 🙁

 

[JCGL]

Re : Timer qui actualise colonne de feuille

Bonjour à tous,

A la lecture de ton message, je suppose que tu fais une requête sur le Web...
Il existe un paramètre dans les requêtes qui gère l'actualisation temporisée.

A + à tous

 

[néné06]

Re : Timer qui actualise colonne de feuille

Bonsoir Mimy

Les explications ne sont pas très claires pour moi .
Je pense qu'une petite pièce jointe et des explications plus fournies apporteraient des réponses.

Cordialement

Edit: Bonsoir JCGL

 

[mimy]

Re : Timer qui actualise colonne de feuille

Bonsoir,

Je vous explique, j'ai dans ma feuille excel, une première colonne et dans chaque cellule de cette colonne j'ai mis des liens qui me permettent d'avoir en live les cours de quelques indices.
Dans une deuxieme colonne, j'ai fixé ce qu'on appelle une "alerte", qui lorsque mes valeurs de cours sont inférieures à ma valeur "alerte", un popup doit se déclancher.
Seulement ça ne marche pas. J'ai testé dans une autre feuille des valeurs de cours que je rentre à la main, et quand j appuie sur entrer là ca marche.
Etant donné qu'avec les liens, les cellules sont dynamiques, le popup ne reconnait pas une valeur qui est inférieure à la valeur "alerte".

je vous donne le code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Static c As Byte
Dim mess As String

If Target.Address = "$B$7" Then
If Range("B7") < Range("C7") Then
c = c + 1

'Affichage du premier popup pendant 3 secondes
If c = 1 Then
CreateObject("WScript.Shell").Popup ("ALERTE INDICE BLABLA "), 3

'Affichage du popup au bout de 6 valeurs inferieures consecutives pendant 3 secondes
elseIf c = 6 Then
CreateObject("WScript.Shell").Popup ("ALERTE INDICE BLABLA "), 3
c = 0
End If
End If
End If
End Sub

On m'a dit qu'il fallait que je change l'évènement de ma feuille et remplacer Worksheet_Change par Worksheet_Calculate. Mais ça ne change rien...
Il faudrait trouver un moyen d'actualiser la cellule qui contient le cours en live pour que le popup soit lancer.
On m a dit que le timer serait la solution.

Je vous remercie.

 

[JCGL]

Re : Timer qui actualise colonne de feuille

Bonjour à tous,
Salut Néné,

Notre ami Néné souhaitait un fichier... Ce n'est plus un souhait, c'est une obligation....
Bien que ton explication soit claire mais il me manque certains éléments.

A + à tous

 

[mimy]

Re : Timer qui actualise colonne de feuille

Re,

Je n ai pas mon fichier excel avec les liens... Mais lorsque je l ai testé à mon école, ca ne marchait pas...

Désolé de ne pas pouvoir fournir ces infos.

 

[mimy]

Re : Timer qui actualise colonne de feuille

Bonsoir,

Après plusieurs recherches, je n'ai toujours pas réussi à faire ce que je voulais, c'est à dire faire prendre en compte la valeur de ma cellule afin que le popup se déclanche automatiquement, j ai donc cherché à faire un timer qui actualiserait toutes les secondes une de mes cellule mais rien.

Je vous envoie mon fichier avec mon exemple. Sachant que dans la colonne B7 il y aura un lien d'un site qui me donnera en temps réel le cours d'un indice boursier.

 

[mimy]

Re : Timer qui actualise colonne de feuille

J espere que ça vous aidera... 🙁

 

[Pierrot93]

Re : Timer qui actualise colonne de feuille

Bonjour à tous,

regarde peut être ceci, dans un module standard :

Option Explicit
Public v As Double

dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
v = Sheets("Feuil1").Range("B7").Value
End Sub

dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_Calculate()
Static c As Byte
If Range("B7") = v Then Exit Sub
If Range("B7") < Range("C7") Then
    c = c + 1
    If c = 1 Then
        CreateObject("WScript.Shell").Popup ("ALERTE INDICE BLABLA "), 2
    ElseIf c = 6 Then
    CreateObject("WScript.Shell").Popup ("ALERTE INDICE BLABLA "), 2
    c = 0
    End If
End If
End Sub

il eût été préférable de rester sur le même fil...
https://www.excel-downloads.com/thr...is-un-popup-sous-excel-et-code-en-vba.180273/

bonne journée
@+

 

[mimy]

Re : Timer qui actualise colonne de feuille

Bonjour Pierrot et merci pour ces renseignements, mais j ai fait comme tu me l as indiqué et il y a toujours ce même probleme: le cours bouge, passe sous l alerte et le popup ne se déclanche pas...

Je t envoie ce que j ai fait...

 

[Pierrot93]

Re : Timer qui actualise colonne de feuille

Re,

autant pour moi, il y a lieu de réactualiser la variable, dans le module de la feuille modifie comme suit :

Option Explicit
Private Sub Worksheet_Calculate()
Static c As Byte
If Range("B7") = v Then Exit Sub
If Range("B7") < Range("C7") Then
    c = c + 1
    If c = 1 Then
        CreateObject("WScript.Shell").Popup ("ALERTE INDICE BLABLA "), 2
    ElseIf c = 6 Then
    CreateObject("WScript.Shell").Popup ("ALERTE INDICE BLABLA "), 2
    c = 0
    End If
End If
v = Range("B7").Value
End Sub

 

[mimy]

Re : Timer qui actualise colonne de feuille

Je viens de voir une erreur que j avais faite!!!! j avais oublie de mettre "calculate" à la place de "change" et ca marcheeeeeeeeee!!!!!!!!!!!!! merci merci merci

 

[mutzik]

Re : Timer qui actualise colonne de feuille

bonjour,

le popup se déclenche bien à la première alerte puis quand la valeur a changé 6 fois en dessous du seuil, et pas avant

 

[mimy]

Re : Timer qui actualise colonne de feuille

Oui tout marche sur des roulettes!! encore merci Pierrot!!

Je voudrais optimiser mon code, exemple dans la cellule B6 il y a un lien tel que "=ph/cl..." (par ex) qui me m affiche au final dans cette même cellule "cac40" et dans mon code vba je voudrais éviter d écrire à la main pour le message du popup "Attention cac40" au cas ou si dans la cellule B6 je voulais changer d indice et donc de lien.

De plus, comme la connexion entre mon site d où je prends les liens et mon fichier excel est lente, dans ma cellule B7 il y a écrit #N/A (équivaut à non numérique) et un message d erreur du style "debug" s affiche. Je suis obligée, dès l ouverture de mon fichier d appuyer sur "end" et d attendre que la connexion se fasse et que une valeur apparaisse dans ma cellule.
Est il possible de faire dès qu il y a #N/A dans B7, d attendre que la mise à jour se fasse pour éxècuter le code??

Merci merci et encore mille merci!!