Incrementer Des Valeurs D Une Matrice

[UKKO]

Bonjour à toutes et tous.
Je suis un vrai débutant et je rencontre une énorme difficulté.
Je désire faire un programme en VBA mais je ne connais pas les rudiments.
Peut être pourrez vous m'aider.
Je vous joins un fichier en indiquant ce que veux obtenir.
En fait j'ai un logiciel boursier qui me fourni des cours de bourse en temps réel par l'intermédiaire d'une matrice.
Pour exploiter ces données j'aimerais avoir un petit programme en VBA que je pourrais adapter à mes connaissances.
En l'occurence je voudrais qu'à chaque changement de volume (qui peut être successivement le même nombre) il y ait une incrémentation pour chacune des colonnes A B C sous les titres (Heure - Volume - Valeur).
Cela pour obtenir un graphique en temps réel d'une action et pouvoir par la suite créer des courbes en fonction de mes choix.

une pauvre âme en peine
merci
UKKO

 

[pierrejean]

Re : Incrementer Des Valeurs D Une Matrice

bonjour UKKO

A tester !!!

 

[UKKO]

Re : Incrementer Des Valeurs D Une Matrice

Bonjour Jean-Pierre,
merci pour la réponse ultra rapide.
J'ai essayé de lancer la procédure, mais cela ne fonctionne pas.
Peux-tu détailler (avec les commentaires) les différentes étapes ?
UKKO

 

[pierrejean]

Re : Incrementer Des Valeurs D Une Matrice

Re

Euh moi c'est pierrejean (il y a un jeanpierre qui pourrait ne pas apprecier l'amalgame !!)

Et toutes mes excuses:
pour ne pas detruire la formule en F4 j'ai fait des tests avec F13 et oublié de modifier
c'est fait dans cette version
Mais cela reste a tester

 

[UKKO]

Re : Incrementer Des Valeurs D Une Matrice

RE
Désolé Pierre-Jean
je suis confu d'avoir écorché ton prénom.....
Merci pour la modif, je vais voir si ça fonctionne.....;;
a+
UKKO

 

[UKKO]

Re : Incrementer Des Valeurs D Une Matrice

ça ne marche pas.
j'ai fait F5 pour enclencher la procédure, mais j'ai une userform qui s'est ouverte (ATTEINDRE). J'ai ciblé la cellule A4, mais toujours rien. !!
peux-tu m'expliquer le fonctionnement de la procédure avec des commentaires ?
a+ UKKO

 

[pierrejean]

Re : Incrementer Des Valeurs D Une Matrice

Re

La procedure est une macro evenementielle declenchée par un changement en F4

Public flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then Exit Sub
flag = True
' si c'est F4 qui a declenché la macro
If Target.Address = "$F$4" Then
' alors on reporte
Range("A65536").End(xlUp).Offset(1, 0) = Range("F11")
Range("B65536").End(xlUp).Offset(1, 0) = Range("F4")
Range("C65536").End(xlUp).Offset(1, 0) = Range("F5")
End If
flag = False
End Sub

Le flag est la pour eviter a la macro de tourner en rond puisqu'elle provoque elle-meme un changement

Es-tu sur que la cellule F4 change de valeur ?

 

[UKKO]

Re : Incrementer Des Valeurs D Une Matrice

Oui, c'est certains
il s'agit d'une matrice qui envoie des infos du serveur de mon broker. les données changent continuellement tant qu'il y a des achats et ventes de l'action sélectionnée. en l'occurence j'ai pris AIR FRANCE (AF : code Mnémonique).
La procédure que tu me proposes prend peut-être les changements de la valeur, mais il n'y a pas d'affichage avec incrémentation dans les cellules A4B4C4.
Je vais parcourir les forums à la recherche de matrice similaire la mienne.
a+ UKKO

 

[UKKO]

Re : Incrementer Des Valeurs D Une Matrice

Bonjour, à tout le forum.
ça y est j'ai fini par trouver la réponse à mon problème.
merci à Pierre-Jean pour ses conseils, dont je me suis inspiré.
en réalité j'ai utilisé woorksheet_calculate() et un petit medlay de ce que j'ai glané par ci par là.
Vous pourrez voir le résultat dans mon fichier joint.
je précise que cela ne fonctionne qu'avec le serveur DDE de mon broker, mais la méthode est semble-t-il la même pour d'autres systèmes similaires.
Merci encore à Pierre-Jean.
UKKO