Historique de cours de bourse

  • Initiateur de la discussion Initiateur de la discussion sbenichou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sbenichou

XLDnaute Nouveau
Bonsoir,
Je vous soumet un petit probleme qui me donne beaucoup de fil a retordre(mes competences excel étant un peu limitées):

J'importe des données d'un cours de bourse en temps réel dans une cellule.
cette cellule change donc constamment.
Je souhaiterais conserver l'integralité des valeurs de cette cellule dans un autre endroit.

Merci de votre aide.
 
Re : Historique de cours de bourse

Bonjour,

Supposons que la cellule qui reçoit les données est la cellule A1 de la feuille 1 et que ces données sont sauvegardées dans la feuille 2 à chaque fois que cette cellule A1 est modifiée (et uniquement cette cellule), tu peux tester ceci :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets(2).Cells(Rows.Count, 1).End(xlUp)(2) = Range("A1")
End If
End Sub

A insérer directement dans l'objet Feuil1 (et non dans un module)

En y réfléchissant, on pourrait également compléter par la date et l'heure d'enregistrement de la modif, ce qui donnerait :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim X%
If Target.Address = "$A$1" Then
With Sheets(2)
X = .Cells(Rows.Count, 1).End(xlUp)(2).Row
.Cells(X, 1) = Range("A1")
.Cells(X, 3) = Format(Date, "dd/mm/yyyy") & " - " & Format(Time, "h:mm:ss")
End With
End If
End Sub
 
Dernière édition:
Re : Historique de cours de bourse

Bonjour et merci pour ta reponse (mieux vaut tard que jamais).

Ton code fonctionne a condition que la valeur qui change soit changée à la main.
Par contre si cette cellule est actualisée automatiquement par un lien avec la bourse, rien ne se passe.

Y vois tu une solution?

Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
501
Réponses
4
Affichages
607
Retour