Discussion :

[potili2]

bonjour
par un lien DDE, des données arrivent en cellule A1 et effacent donc la donnée prédédente.

Comment les stocker au fur et à mesure de leur arrivée dans un tableau qui, idéalement, verrai sa dimension s'adapter?
aucune idée de la façon dont il faut procéder...
Et vous?
merci
Jean Pierre

[helios77]

Avant de lancer l'import des données
Tu devrais sauvegarder la feuille précédente sous un autre nom en faisans un collage spécial afin de n'avoir que les valeurs, formats etc .... sans les formules pour pas que ton tableau se remette à jour au fur et à mesure
Dans ta feuille actuelle, tu laisses la mise à jour se lancer

[potili2]

merci pour ta réponse, mais il s'agit de données boursières qui arrivent à un moment indéterminé, toute la journée.
mon but serait de stocker la valeur avant qu'une autre ne l'efface

[SfJ5Rpw8]

as tu essayé voir ... si la fonction événementielle change de la feuille est déclenchée...:

à mettre dans code feuille concerné... par exemple pour surveiller cellule B10..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
  If Target.Address = "$B$10" Then
    Debug.Print "Nouvelle valeur à " & Now & " . :" & Target.Address & " ==> " & Target.Value
  End If
End If
End Sub

[doringen]

Pour ma part, je ferais plus dans le bourrin et à chaque nouvelle "arrivée", decaler les valeurs vers le bas d´une ligne pour libérer A1 et garder les anciennes données (du coup, l´ordre est antéchronologique, les plus vieilles valeurs sont en bas).
Je pense qu´avec 500 lignes dispos, cela devrait pouvoir tenir une journée de cours avant archivage manuel...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_Change(ByVal Target As Range)
Target = Range("A1")
If Range("A1") <> 0 Then
 Range("A1:A500").Cut
 Range("A2").Select
ActiveSheet.Paste
End If
End Sub

[potili2]

je pensais effectivement les stoker dans une colonne en les décalant
le code indiqué ne semble pas fonctionner.
je vais tenter avec la fonction "décaler".
puis stockage dans un fichier.
merci
Jean Pierre

[SfJ5Rpw8]

avant d'aller plus loin :

as tu essayé voir ... si la fonction événementielle change de la feuille est déclenchée...:

[potili2]

la fonction est bien déclenchée à chaque changement de valeur en A1
pas de pb à ce niveau là.
j'eesaie de comprendre la façon dont travaille la fonction "décaler", mes bouquins ne sont pas très clairs à ce sujet ou alors c'est moi qui ne le suis pas!