1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

création d'un historique automatique dans excel

Discussion dans 'Forum Excel' démarrée par kamgang, 6 Février 2019.

  1. kamgang

    kamgang XLDnaute Nouveau

    Inscrit depuis le :
    6 Février 2019
    Messages :
    8
    "J'aime" reçus :
    0
    salut,
    j'ai un problème qu me tracas: je veux créer un historique dans excel tel que étant dans la feuille 1, quand je valide l'information dans une cellule de la colonne X, la ligne contenant la cellule est automatiquement enregistrée dans une ligne vide de la feuille 2.
    merci de m'aider à résoudre ce problème.

    kamgang
     
  2. Chargement...

    Discussions similaires - création historique automatique Forum Date
    Création d'historique automatique Forum Excel 31 Mars 2008
    Création d'un historique à partir d'une base excel Forum Excel 20 Décembre 2017
    creation d'un bordereau versement avec historique Forum Excel 16 Avril 2017
    Créations historique boursier dynamique Forum Excel 25 Février 2012
    Problème avec mes macros (création d'historique, et ouverture fichier) Forum Excel 28 Avril 2011

  3. Yoyo01000

    Yoyo01000 XLDnaute Junior

    Inscrit depuis le :
    8 Octobre 2018
    Messages :
    76
    "J'aime" reçus :
    4
    Bonjour,
    formule à mettre en A1 de la feuille 2 :

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

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

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    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 (Text):
    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+
     
    arthour973 aime votre message.
  5. kamgang

    kamgang XLDnaute Nouveau

    Inscrit depuis le :
    6 Février 2019
    Messages :
    8
    "J'aime" reçus :
    0

    Bonjour Yoyo01000,
    merci pour la réponse mais ça ne resoud pas mon problème.
    chaque fois que une cellule de la colonne X de la feuille 1 est modifiée, toute la ligne contenant cette cellule est enregistrée sur une nouvelle ligne vide et à la suite des autres lignes non vides de la feuille 2.
     
  6. kamgang

    kamgang XLDnaute Nouveau

    Inscrit depuis le :
    6 Février 2019
    Messages :
    8
    "J'aime" reçus :
    0
    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
     
  7. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    J'ai bien expliqué ici :
     
  8. kamgang

    kamgang XLDnaute Nouveau

    Inscrit depuis le :
    6 Février 2019
    Messages :
    8
    "J'aime" reçus :
    0
     
  9. kamgang

    kamgang XLDnaute Nouveau

    Inscrit depuis le :
    6 Février 2019
    Messages :
    8
    "J'aime" reçus :
    0
    oui je l'ai fait mais j'arrive pas à enregistrer ou alors à exécuter.
    je suis un bleue je t'en prie
     
  10. kamgang

    kamgang XLDnaute Nouveau

    Inscrit depuis le :
    6 Février 2019
    Messages :
    8
    "J'aime" reçus :
    0
    salut job75,
    voici ou ça bloque (voir image) .
    je veux que chaque fois que j'entre les données dans une cellule de la colonne C de la feuille1, la ligne portant la cellule soit enregistrée dans la feuille2 sur une ligne vide à la suite des lignes non vides.
    prière de m'aider je vous en prie.

    upload_2019-2-7_15-14-5.png
     
  11. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bah vous avez placé le code en Feuil2 !!!

    Feuil2 est la feuille de destination, j'ai bien dit que le code doit être placé dans la feuille source (normalement Feuil1).
     
  12. kamgang

    kamgang XLDnaute Nouveau

    Inscrit depuis le :
    6 Février 2019
    Messages :
    8
    "J'aime" reçus :
    0
    ok merci
     
  13. kamgang

    kamgang XLDnaute Nouveau

    Inscrit depuis le :
    6 Février 2019
    Messages :
    8
    "J'aime" reçus :
    0
    job75 mille fois merci !!!
    ca marche !!!
     

Partager cette page