recuperer information d'une cellule

[oinegain]

Bonjour,
Je voudrais savoir comment je peux enregistrer les informations figurant sur la ligne A1:L1 (ou plus) de la feuille 1 via un bouton de commande ceci afin de le recopier sur la feuille 2 en A1:L1 (ou plus).
De plus, le souhaiterai que lorsque je modifie les information de la feuille 1, et que j'enregistre à nouveau, le nouvel enregistrement se mettra en A2:L2 (ou plus. et ainsi de suite.
Sur la feuille 1, seule la ligne 1 est renseigné, puis effacé à chaque fois
Je joins un fichier test1
Ps j'utilise Office 2007
Merci pour vos informations

 

[Cousinhub]

Re : recuperer information d'une cellule

bonjour,

une autre solution :

Private Sub CommandButton1_Click()
Dim DerLig As Long
With Sheets("Feuil2")
    DerLig = IIf(.[A1] = "", 1, .[A65000].End(xlUp).Row + 1)
    Range("A1", [IV1].End(xlToLeft)).Copy .Cells(DerLig, 1)
End With
End Sub

Bonne journée

 

[oinegain]

Re : recuperer information d'une cellule

Merci pour vos réponses, je retiens la réponse de BHBH, car elle correspond exactement a ce que je souhaite faire.
toutefois je remercie aussi carcharodon-carcharias d'avoir apporte sa pierre a l'édifice.
Un grand bravo a ce super forum

 

[oinegain]

Re : recuperer information d'une cellule

Bonjour, je reviens vers vous avec un problème rencontré lors de la mise en place de mon projet.
J'ai utilisé la formule à BHBH, toutefois lors de la copie sur la feuille 2, les format des liste de choix sont aussi copié . je ne souhaite pas avoir de liste dans les cellules H, I, J de la feuille2
voir exemple
Merci pour vos reponses