Effectuer un décalage à chaque modif d'une cellule donnée

Bonjour,

Je cherche à faire quelque chose d'un peu spécial, je pense, et je n'ai pas trouvé de réponse dans le forum.

Voilà, je désire qu'à chaque modification d'une cellule donnée, par exemple la A1, que le contenu nouveau de cette cellule soit reporté dans une cellule différente.

Exemple : A1 contient TOTO

au 1er coup D1 doit récupérer le contenu de A1 et indiquer TOTO

Puis je modifie A1 en mettant TITI

je désire que maintenant D1 conserve l'ancienne valeur TOTO

et avoir en D2 : TITI

et ainsi de suite, si je remodifie A1 en mettant TUTU, je désire avoir en D3 TUTU et conserver sans modification les contenus précédents de D1 et D2

En fait à côté de A1, en B1, je mets la formule Maintenant() pour avoir date et heure correspondant à la saisie

et en E1, à côté de TOTO j'ai la date et l'heure de cette saisie,

et ainsi de suite ; à chaque modification de A1, Excel ne modifie pas les précédentes cellules et rajoute un contenu en incrémentant d'une ligne : E2, E3, E4 etc...

Et si possible en utilisant les formules Excel, sans macro VBA !

Si vous avez une solution, je vous en remercie par avance.

Voir le fichier joint.

Merci d'avance

Leodogan

Bonjour

Et si possible en utilisant les formules Excel, sans macro VBA !

Sans macro? Impossible.

A toi de voir

Cordialement

Rebonjour et merci Amadeus pour ta réponse.

Bon si j'ai bien compris, point de salut sans macro...

alors va pour la macro, si tu peux m'expliquer.

Je te remercie par avance du temps que tu voudras bien consacrer à m'aider,

cordialement,

Leodogan

Bonjour

alors va pour la macro, si tu peux m'expliquer.

Je te remercie par avance du temps que tu voudras bien consacrer à m'aider,

Je crains de ne pas être celui qui...chacun ses capacités, place aux experts VBA.

Cordialement

Bonjour

Avec une macro simple

Salut le forum

Code à recopier dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLig As Long
 If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
  DerLig = Range("E1").End(xlDown).Row + 1
    Cells(DerLig, 4) = Target
    Cells(DerLig, 5) = Format(Target.Offset(0, 1), "mm/dd/yyyy hh:mm")
 End If
End Sub

Mytå

Bonjour

Banzai64, j'avais aussi bidouillé à partir d'un code de galopin

Cordialement