Remplir une plage avec les différentes vale=?iso-8859-15?Q?urs_successives_d'une_cellule_??=

Bonjour.
La macro suivante inscrit l'historique en colonne B, à partir de B2

Private Sub Worksheet_Calculate()
If [A1] <> Range("B65536").End(xlUp) Then
Range("B65536").End(xlUp).Offset(1, 0) = [A1]
End If
End Sub

Cordialement.
Daniel
"Tof" <fourtoua_pasdepourrielmerci@tele2.fr> a écrit dans le message de
news: MPG.20802d3333fcc83f9896d5@nntpserver.tele2.fr...
Bonjour à tous,

Est-il possible de remplir un tableau, ou une plage de cellule, avec les
différentes valeurs successives d'une seule cellule ?

Mettons que j'ai le résultat d'un calcul dans une cellule A1.

Je voudrais alors copier cette valeur dans un tableau (mais dans une
cellule différente à chaque fois) au fur et à mesure que cette valeur
change.

De cette façon je pourrais garder un historique des évolutions de cette
valeur.

Comment peut-on réaliser cela ?
Je vous remercie par avance.
--
Cordialement,
Tof

In article <#ceaKHDeHHA.596@TK2MSFTNGP06.phx.gbl>,
dZZZcolardelle@free.fr says...

Je vous remercie pour votre réponse.
En ce qui concerne la logique de la macro :

Est-ce qu'elle teste si une valeur de A1 n'existe pas dans la colonne B,
ou si la valeur de A1 a changée ?

Merci d'avance

--
Cordialement,
Tof

Elle n'enregistre que les changements de valeur.
Daniel
"Tof" <fourtoua_pasdepourrielmerci@tele2.fr> a écrit dans le message de
news: MPG.208051c6499e4dd09896d6@nntpserver.tele2.fr...
In article <#ceaKHDeHHA.596@TK2MSFTNGP06.phx.gbl>,
dZZZcolardelle@free.fr says...

Je vous remercie pour votre réponse.
En ce qui concerne la logique de la macro :

Est-ce qu'elle teste si une valeur de A1 n'existe pas dans la colonne B,
ou si la valeur de A1 a changée ?

Merci d'avance

--
Cordialement,
Tof

In article <#uFpUoEeHHA.2316@TK2MSFTNGP04.phx.gbl>,
dZZZcolardelle@free.fr says...

Elle n'enregistre que les changements de valeur.
Daniel
"Tof" <fourtoua_pasdepourrielmerci@tele2.fr> a écrit dans le message de
news: MPG.208051c6499e4dd09896d6@nntpserver.tele2.fr...
In article <#ceaKHDeHHA.596@TK2MSFTNGP06.phx.gbl>,
dZZZcolardelle@free.fr says...

Je vous remercie pour votre réponse.
En ce qui concerne la logique de la macro :

Est-ce qu'elle teste si une valeur de A1 n'existe pas dans la colonne B,
ou si la valeur de A1 a changée ?

Merci d'avance

Super ! Merci beaucoup, je testerais cela ce soir

--
Cordialement,
Tof

Bonsoir,

Mémorise l'historique d'une cellule dans la zone commentaire de la
cellule.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 3 And Target.Count = 1 Then ' colonne 3
seulement
If Target.NoteText = "" Then Target.AddComment ' Création
commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Format(Target.Value, "# ##0.00 €") & " Modifié par:" &
Environ("UserName") & _
" Le " & Now & vbLf
Target.Comment.Visible = True
Target.Comment.Shape.Select
Selection.AutoSize = True
Target.Comment.Visible = False
End If
Application.EnableEvents = True
End Sub

http://boisgontierj.free.fr/fichiers/jb-commentaires.zip

JB


-Alt+F11
-Double clic sur Feuil1
-Choisir WorkSheet
-Choisir événement Change

On 6 avr, 11:11, Tof <fourtoua_pasdepourrielme...@tele2.fr> wrote:

Bonjour à tous,

Est-il possible de remplir un tableau, ou une plage de cellule, avec les
différentes valeurs successives d'une seule cellule ?

Mettons que j'ai le résultat d'un calcul dans une cellule A1.

Je voudrais alors copier cette valeur dans un tableau (mais dans une
cellule différente à chaque fois) au fur et à mesure que c ette valeur
change.

De cette façon je pourrais garder un historique des évolutions de cette
valeur.

Comment peut-on réaliser cela ?
Je vous remercie par avance.
--
Cordialement,Tof