création d'un historique automatique dans excel

Yoyo01000 à dit:

Bonjour,
formule à mettre en A1 de la feuille 2 :

=SI(Feuil1!$X1<>"";Feuil1!A$1)

Formule à tirer à droite sur la même ligne.

Cliquez pour agrandir...

job75 à dit:

Bonjour kamgang, bienvenue sur XLD, salut Yoyo01000,

A placer dans le code de la feuille source (clic droit sur l'onglet et Visualiser le code) :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, lig
Set r = Intersect(Target, [X:X])
If r Is Nothing Then Exit Sub
With Feuil2 'CodeName de la feuille de destination
    If .[A1] = "" Then .[A1] = " "
    lig = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row + 1
    For Each r In r 'en cas d'entrées multiples
        If r <> "" Then r.EntireRow.Copy .Rows(lig): lig = lig + 1
    Next
End With
End Sub

La macro se déclenche quand on entre une valeur en colonne X.

Enregistrer le fichier en .xlsm.

A+

Cliquez pour agrandir...

job75 à dit:

A placer dans le code de la feuille source (clic droit sur l'onglet et Visualiser le code) :

Cliquez pour agrandir...

kamgang à dit:

Bonjour job75,
merci pour la réponse.
J'ai oublié de préciser que je suis un bleue sur vba excel et et je suis à mon premier pas. j'ai donc les difficultés à appliquer ta proposition de solution.
merci de me détailler la procédure d’exécution je t’en prie.

Et aussi dans ta syntaxe je ne vois pas ou définir la source de la copie.
excuses moi si je suis un peu bête: c'est juste que je suis un bleue

Cliquez pour agrandir...

job75 à dit:

J'ai bien expliqué ici :

Cliquez pour agrandir...

job75 à dit:

J'ai bien expliqué ici :

Cliquez pour agrandir...