Garder la liste des cellules cliquer

Bonjour a tous, j'aimerais pouvoir garder une liste des cellules cliquer dans une colonne, quelqu'un pourrait me mettre sur une piste. Ca pourrait etre stocker dans un userform ou meme simplement dans une feuille.

Merci d'avance.

Bonjour,

voici un exemple à essayer,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Sheets("liste")
.Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1) = Target.Address
End With
End Sub

ÉDIT:

garder une liste des cellules cliquer dans une colonne

la macro fait une liste sur la colonne "A" de la feuille "liste" de n'importe laquelle des cellules cliquer en Feuil1

Bonjour Capucin

Voici une proposition... mais c'est une très mauvaise idée !

Tu vas vite te retrouver avec une liste très grande ! et certaines circonstances bloquantes !

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ligFin

    If Not (Sh.Name = "LOG") Then
        Application.EnableEvents = False
        With Worksheets("LOG")
            ligFin = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Cells(IIf(ligFin > 2, ligFin, 2), 1) = Now
            .Cells(IIf(ligFin > 2, ligFin, 2), 2) = Sh.Name
            .Cells(IIf(ligFin > 2, ligFin, 2), 3) = Target.Row
            .Cells(IIf(ligFin > 2, ligFin, 2), 4) = Target.Column
            On Error Resume Next
            .Cells(IIf(ligFin > 2, ligFin, 2), 5) = Target.Value
            On Error GoTo 0
        End With
        Application.EnableEvents = True
    End If
End Sub

Salut, malheureusement j'utilise excel 2007. J'ai creer un tableau a 1 dimension qui se nomme tableau mais je n'arrive pas a mettre son contenu dans le listbox1 de mon UserForm2.

tableau(location) = ActiveCell.Row 'On ajoute cette ligne au tableau afin de garder un historique
        UserForm2.Show False
[code]Private Sub UserForm_Initialize()
ListBox1.RowSource = "tableau"

End Sub

[/code]

ListBox1.RowSource = "tableau"

si la plage de cellule est nommée via le gestionnaire de nom,

ListBox1.List = Range("tableau").Value

Édit:

n'oublier pas de spécifier également les propriétés ColumnCount et ColumnWidths

Bonjour à tous,

Dans le menu, tu peux choisir de suivre les modifications ... dans la feuille Historique ...

https://support.office.com/fr-fr/article/Le-suivi-des-modifications-dans-un-classeur-partag%C3%A9-22aea671-cac7-4fa3-845d-eeb23725bd15

En espèrant que cela t'aide ...

Finalement, j'ai trop de difficulté avec les tableaux, alors je vais sauvegarder sur une feuille qui s'appelle "liste". Par contre j'ai une erreur dans la derniere ligne du code plus bas: " Propriété ou méthode non géré par cet objet", quel est mon erreur?

 lig = ActiveCell.Row 'feuille piano
    derlig = Sheets("liste").Range("A100").End(xlUp).Row
    Sheets("piano").Range("A" & lig & ":N" & lig).Copy
    Sheets("liste").Range("A" & derlig & ":N" & derlig).Paste

Bonjour,

sinon tu en penses quoi des 2 propositions qui ont été faites à ta question ?

Bon ? Pas bon ? Content au point de pouvoir dire merci ?

eric

milles excuses, bien sur que j'aprécie que vous vous intéresser a mon probleme. Vos sugestions m'ont mis sur une piste. Pour ce qui est de l'utilisation de la suivie des modifications, ce n'est pas tout a fait ce que je veux faire car je veux seulement avoir une liste du contenu des lignes que j'ai cliqué. Pour la proposition de NCC 1701, je ne comprend pas assez ce code pour l'adapter a ce que je veux.

SabV, je ne crois pas que j'utilisais le gestionnaire de nom, et l'utilisation d'un tableau me donnait pas mal d'erreur. Par contre j'ai remarqué que tu suggerais t'utiliser une feuille alors j'ai essayé ton code et apres adaptation, ca m'a donné ceci:

 Dim lig As Long     
    lig = ActiveCell.Row
    derlig = Sheets("liste").Range("A100").End(xlUp).Row
    Sheets("piano").Range("A" & lig & ":N" & lig).Copy
    Sheets("liste").Select
    Sheets("liste").Range("A" & derlig + 1 & ":N" & derlig + 1).Select
    ActiveSheet.Paste
    Sheets("piano").Select

Il me reste qu'a trouvé comment me débarasser des pointillés autour de la ligne selectionné de la feuille "piano"

Alors, un gros merci pour votre aide, c'est tres apréciés

J'ai reglé le probleme de la zone en pointillé. Voici le code final:

Dim lig As Long
    Dim derlig As Long
    lig = ActiveCell.Row
    derlig = Sheets("liste").Range("A100").End(xlUp).Row
    Application.ScreenUpdating = False
    Sheets("piano").Range("A" & lig & ":N" & lig).Copy
    Sheets("liste").Select
    Sheets("liste").Range("A" & derlig + 1 & ":N" & derlig + 1).Select
    ActiveSheet.Paste
    Sheets("piano").Select
    Application.CutCopyMode = False 'permet d'enlever la zone source en pointillé

Merci a tous!