Probleme Excel Application finance Fermé

Question

Bonjour,
J'ai cherché sans succes pendant 3 jours sur le web avant de poster, j'ai trouver des solutions approchées mais jamais exact...
Voici donc mon probleme :
J'ai crée un tableau excel avec des cours de bourse qui se mettent à jour en temps réel sur le web.
J'aimerai faire en sorte que lorsque le cours en question "approche" un plafond que j'aurais fixé (plafond - 2% du plafond) pour chaque cours, une message box apparaisse pour m'en avertir.
Je suis nul en vba donc j'ai essayer mais sans succes de programmer une macro...

Donc voilà si quelqu'un peu m'aider je lui en serais grandement reconnaissant.
Merci par avance.

Mike-31 · Answer

Salut,

Le problème n'est pas de faire apparaitre une box, c'est le nombre de cellule à gérer et le code VBA va être lourd, à moins que l'on crée une seule box pour la feuille et dès qu'une somme est atteinte apparait une box !
le plus simple et qui n’alourdirai pas la feuille, est la mise en forme conditionnelle qui coloriserai une cellule lorsque la somme est atteinte.

Met sur le forum un exemple de ce que tu attends avec ce lien.


https://www.cjoint.com/

A+

Dfripe · Answer

Merci pour ton implication voici le lien :

https://www.cjoint.com/?jssmOAkH1G

J'ai essayé d'etre le plus concis possible.

Mike-31 · Answer

Salut,

Récupères ton fichier et teste le en ajoutant des liens en A et B et des seuil en F et G jusqu’à la ligne 50 et regarde le fonctionner. 
Si cela peut être une solution je t'expliquerai les macros qui sont entièrement automatique.

Comme je te le dis sur le fichier je te proposerai un fichier avec des cellules clignotantes et un avec des commentaires clignotants, mais il sera lourd et risque interférer avec les liens externes.

https://www.cjoint.com/?jtqCu7jdyL


A+

Mike-31 · Answer

veux tu parler des messages d'erreurs en colonne E

A+

Mike-31 · Answer

Salut Dfripe,

Je ne t'ai pas oublié, je suis en train de te monter une macro qui transformera les données reçues en format numérique en une seule opération, et une boite de dialogue s'affichera chaque fois qu'une valeur est atteinte sans limitation de ligne, avec un code macro épuré. 
Ainsi qu'un togglButton qui te permettra d'arrêter la procédure afin de pouvoir accéder à certaines saisies si nécessaire dans la colonne cours limite.
Je pense pouvoir te mettre un exemple pour demain.

A+

Dfripe · Answer

Merci infinement Mike31 (je ne le dirais jamais assez!)

NB:
Le message d'erreur ne provient pas de la colonne E mais des B & C.
C'est un message d'erreur qui provient de "Windows/Excel" et non pas de VBA.

Ce probleme m'ennuis beaucoup parce que j'ai besoin que mon tableau soit le plus dynamique possible et par voie de fait pouvoir m'en servir sur n'importe quel poste...

Dfripe · Answer

Encore un autre NB:

Pour préscision, tu peut observer dans VB  que j'ai une ligne de code pour chaque cours (Cours1/Cours2...) cependant mon tableau d'origine fait environ 160 lignes avec différentes positions sur une meme action (par ex 1000 carrefour & 100 carrefour est différent de 1100 Carrefour).

Je cherche donc une solution pour les n lignes. 
Mais c'est vraiment dur( j'ai regardé et essayé avant de poster!) et je n'y arrive pas...

Encore merci.

Mike-31 · Answer

Salut,
Le problème NB est réglé et je t'ai écris une formule qui modifie en une seule fois les données reçues donc économie d'une colonne.exemple les données reçues en C sont directement en format numérique en D. pour le reste attends ce soir voir demain matin pour juger de mon code et on reparlera de tout cela.

A+

Dfripe · Answer

Très bien, 
merci infiniment pour la rapidité de ta réponse
à demain.

Mike-31 · Answer

Salut,

Récupères le fichier avec ce lien et on en reparle

https://www.cjoint.com/?jxo73dGX5k

A+

Dfripe · Answer

Merci beaucoup de ton implication 

voici le lien de ce que tu m'a envoyé avec mes modifs et mes notes:

https://www.cjoint.com/?jxsftCdsOW

Mike-31 · Answer

Salut,

Chez moi, je n’ai aucun problème de réception des cotes via boursorama, de même qu'avec les formules colonne E tout se modifi sans aucun problème. En ce qui concerne ces formules en E je peux intégrer un code macro, ce qui sera plus souple et automatique.

A+

Dfripe · Answer

Bonjour Mike,
Ton dernier post m'inquiète parce que je ne vois pas pour quel raison le fichier fonctionnerais chez toi et pas chez moi...?

PS: Peut etre un problème de version..J'utilise Excel 2003.

Merci à toi.

Dfripe · Answer

PS : J'ai oublié de te demander si tu avais toi aussi 3 alertes à la suite pour un seul seuil atteint?

Dfripe · Answer

Désolé j'ai compris pourquoi la colonne E ne marchais pas ,
j'avais remplacé dans les options la virgule par le point comme séparateur de décimales!

Mike-31 · Answer

Salut,

excuse pour le retard, je travaille encore avec excel 2003, je regarde ton fichier et te repropose une autre version tout en BVA

A+

Dfripe · Answer

Aucun problème ,
Mon ennui majeur à présent est le fait que quand un seuil est atteint j'ai 3 fois le meme message d'alerte...
Ce qui tue le dynamisme du tableau vu que l'actualisation des données est stoppée quand la msgbox est affichée.

Par exemple "Cours à 55 seuil à 53 " va s'afficher 3 fois car l'actualisation des données sur le web se fait (se calcule) en 3 temps [1-2-3 / Visibles grace au petit globe tournant en bas à droite de la feuille Excel].

Peut etre devrais t on implémenter un "OK dans 30 sec + décompte" en suivant le principe des maj windows pour permettre à la maj web de continuer? (Bien évidement si cela est possible).

Tu vas voir c'est infernal on est obliger de cliquer dix fois sur OK!

https://www.cjoint.com/?jymeSK78Il

Peut etre devrait on définir si c'est possible une éxécution de macro toute les deux minutes (regarde la frise sur le fichier).

Encore merci de ton implication.

Mike-31 · Answer

Salut,

Pour les 3 chiffres aprés la virgule en D Mets ta colonne en surbrillance et format/cellule onglet nombre et sélectionne 3 décimales.

Pour la msgbox à répétion, n'utilise pas la fonction Calculate, les données reçu le sont par palier et chaque fois qu'une info bouge ça te déclenche la macro et si avais 50 lignes, la msgbox appaitrait 50 fois.
Je vais t'écrire un code pour déclenchement minuté

A+

Dfripe · Answer

Merci infiniment Mike!
Désolé pour la question bete concernant les 3 chiffres après la virgule.

Voici une impression écran concernant mon problème d'actualisation : 

https://www.cjoint.com/?jyrmotmIdl

Dfripe · Answer

Voici une impression écran concernant mon problème d'actualisation :

https://www.cjoint.com/?jyrmotmIdl

Mike-31 · Answer

Salut Dfripe,

Pour ce qui concerne la mise à jour des données externes par boursorama, je te conseille d'ouvrir une autre discussion sur le forum programmation afin de toucher ces spécialistes. Pour cela vide un fichier de toutes macros, laisses simplement actif les liens avec boursorama en signalant que sur un de ton micro ainsi que sur d’autre comme le mien, cela marche sauf sur ton deuxième. À mon sens il doit y avoir un problème de pare-feu, d’anti mouchard ou ton anti virus, tu me diras.

Ensuite colle ton ce code macro ci-dessous dans un module, crées un bouton sur ta feuille pour lacer la macro. Un bip sonne retentira toutes les deux minutes pour tester la cadence d’exécution des macros qui le replaceront.

Sub LancementAutomatique()
                    ' Définit l'intervalle avec l'heure actuelle + 0heure+2minutes+0seconde
    DansHourMinuteSecond = TimeSerial(Hour(Time) + 0, Minute(Time) + 2, Second(Time) + 0)
                    ' Appel récursif de la fonction LancementAutomatique
    Application.OnTime DansHourMinuteSecond, "LancementAutomatique"
                    ' Appel des macros se fera à partir de ce stade
   
    Beep    ' Beep est le bip sonnore de windows, placé ici provisoirement
            'pour tester la cadence du retour des macros qui seront insérées dans cette zone.
    
End Sub

A+

Dfripe · Answer

Merci beaucoup Mike.
Je suis désolé mais je ne comprend pas bien ce que je dois faire. 
En particulier dois lier le bouton à la Macro 1 ou à "Lancement automatique"?
En fait je ne connais rien aux propriétés des modules...

Mike-31 · Answer

Salut,
tu ouvres un fichier, clic droit sur l'onglet de ta feuille
visualiser le code
insertion / module
et dans cette feuille tu colles le code que je t'ai envoyé
tu renviens sur ta feuille et tu crée un bouton à partir de la berre d'outils formulaire ou plus simplement tu sélectionnes une forme géométrique de ta barre de dessin exemple un rond
clic droit sur l'option choisie exemple le rond
affecté à une macro
clique sur le nom de la macro LancementAutomatique
pour lancer la macro clic sur l'option choisie (bouton ou rond) et mets le son pour juger de la fréquence de l'exécution perceptible par un bip toutes les 2 minutes
A+

Dfripe · Answer

Je suis désolé mais j'ai fais exactement comme tu m'as indiqué et ça ne fonctionne pas...
J'ai toujours les 36 messages qui s'affichent!
Tu peux en juger par toi-meme:

https://www.cjoint.com/?jzpWuRT0h8

Je ne sais vraiment pas comment arranger cela

Mike-31 · Answer

Tout à fait les macros ne sont pas synchronisées avec la macro de déclenchement automatique.
Mets la macro de déclenchement automatique sur un fichier vierge ou sur le fichier avec le bouton de désactivation que je t’ai envoyé et enfonce le bouton pour arrêter les macros ce qui n’arrêtera pas la réception des infos boursorama mais tu pourra juger pas les bip perceptible la cadence a laquelle seront activer tes macros, afin d’accélérer ou ralentir.
Je te préparerai une synchronisation de l’ensemble après afin de terminer ton projet

A+

Dfripe · Answer

Merci pour ta réponse,
J'ai fait comme tu m'a indiqué (cf imp écran)

https://www.cjoint.com/?jzrGyRWcxH

Quand je clique sur le cercle jaune j'entend bien un bip...
Encore une fois je suis vraiment désolé mais je ne comprends pas très bien quel retour tu attends de moi?

Dfripe · Answer

Merci pour ta réponse,
J'ai fait comme tu m'as indiqué (cf imp écran)

https://www.cjoint.com/?jzrGyRWcxH

Quand je clique sur le cercle jaune j'entends bien un bip...

Encore une fois je suis vraiment désolé mais je ne comprends pas très bien quel retour tu attends de moi?

Mike-31 · Answer

une fois que tu lances la macro en appuyant sur le bouton elle doit bipper toutes les deux minutes, ce qui correspondra à l'activation des macros dont nous avons parlé précédemment.

laisse cette macro tounée quelques temps pour voir si cette cadence d'exécution te convient, c'est tout

A+

Dfripe · Answer

ok très bien :
la macro produit bien un bip au bou de 2 minutes (j'ai chronométré!!)
mais elle en produit aussi 4 d'affilé au bout de 1 min 50 sec. et je ne comprends pas pourquoi? Mais je te le signale tout de meme au cas ou...

Merci à toi je m'excuse de ma précédente inconpréhension.

Mike-31 · Answer

Salut Dripe,

Je ne t’ai pas oublié, juste un petit pépin, une limaille dans un œil en installant un réseau, ce qui m’a valu quelques jours sans écran.
Le code de déclenchement automatique que je t'ai écris est déstabilisé par la collecte des infos Boursorama. Pour y remédier j’ai dû écrire un code en cascade afin de le rendre cohérant. Je te prépare tout cela avant la fin de semaine.
J’ai également vu que tu avais posé un post pour des cellules clignotants, dès que cette discussion sera terminée je te proposerai un code.

A+

Dfripe · Answer

Hello,

J'espère pour toi que ça n'est pas trop grave pour ton oeil...
En tout cas ça doit pas etre très agréable de se prendre ça dans l'oeil (j'ai mal rien qu'en imaginant)!

Je pensait que tu m'avais oublié! Je suis soulagé de t'entendre, parce que je cherche à m'en sortir seul depuis mais sans aucun succès!!

Par contre je vais suivre ton conseil et créer une autre question pour ce qui est du problème de l'actualisation de mes données.

J'attend vivement de tes nouvelles et encore merci d'etre toujours là.

Mike-31 · Answer

Salut,

Récupéres la pièce jointe et testes la, je pense qu'elle répond à tes attentes. Il ne te reste plus qu'a l'adapter à tes besoins en prenant soin de rectifier le code en fonction.

Si c'est le cas mets le statut de cette discution en résolu.

Tu peux toujours m'envoyer un message privé pour un conseil ou une modification de ce code. Et excuses moi pour le contre temps.

Demain je regarde ton problème de cellule clignotante sur l'autre post, suis le !

Sur comment Ca Marche tout est possible

https://www.cjoint.com/?kcqyx4p7h0

A+

Mike-31 · Answer

Salut,

Pour répondre à ta première question, comme j'échange pas mal de fichier, je travaille avec un niveau de sécurité élevé et donc je suis obligé de signer mes macros afin de ne pas avoir à autoriser l'activation des mes macros à chaque ouverture de fichier. 
pour toi plusieurs possibilités
1/ tu crée ton propre fichier en respectant les emplacements des cellules etc ... et tu copies les macros dans un module et si tu modifies les emplacements de cellules tu dois en tenir compte dans le code macro et le modifier en conséquence.

2/ tu vas dans le visual basic editor Outils/signature électronique normalement tu devrais voir le nom de ma signature Ma Griffe, tu cliques sur supprimer mais pour ne pas être obligé d'autoriser l'activation macro tu devra placer ton niveau de protection sur moyen à partir de ta feuille de calcul outils/macro/sécurité

3/ si tu travaille sous excel 2007 tu crées ta propre signature pour authentifier tes macros, sinon il te faut Selfcert de Microsoft pour créer cette signature. Il existe surement d'autre possibilités
Pour les question concernant ton projet
Lorsque tu renommes un fichier, il convient de modifier le code macro 
Windows("DernierFichierMike31.xls").Activate

Ainsi que si tu renommes une feuille
Sheets("Feuille source").Select

Pour les données multiples concernant le même titre sur la feuille exécution de la macro il ne doit pas y avoir de problème, je te regarde ça

A+

Mike-31 · Answer

Salut,

regardes le dossier joint et on en reparle

https://www.cjoint.com/?kiu4CS3lw8

Dans le post concernant le clignotement d'une ligne, je t'ai également mis un modèle

A+

Dfripe · Answer

Hello,

Merci beaucoup je la test en ce moment...

Seulement le code semble "s'embaler" comme à l'époque du "sub Calculate" !
Plus séroeusement je veux dire que je me prend souvent deux ou trois vagues de messages d'alerte d'affilé...

J'ai regardé le code avant de t'en parlé mais je n'y arrive pas.

Je te remet le fichier (j'ai réajusté les numéros de colonnes dans VBA)

 https://www.cjoint.com/?kkrsOcL4Nu

Encore un grand merci à toi et bon WE (je ne t'en voudrais pas de te pencher dessus que Lundi!).

Mike-31 · Answer

C'est bizare, je teste le fichier et change régulièrement le temps cyclique, tout marche nickel sans perturbation. La seule chose qui perturbe l'apparition des messages vient des cellules vides colonne extraction du cours en face valeur brute qui déclenche une boite par ligne. Je vais supprimer l'enclenchement automatique  à l'ouverture du fichier, ce qui obligera de le lancer avec le bouton de réenclenchement pour voir

A+

Probleme Excel Application finance

36 réponses

Discussions similaires