recuperer information d'une cellule

oinegain · 1 Juillet 2010

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 · 2 Juillet 2010

Re : recuperer information d'une cellule

bonjour,

une autre solution :

Code:

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 · 2 Juillet 2010

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 · 3 Juillet 2010

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

recuperer information d'une cellule

oinegain

XLDnaute Junior

Pièces jointes

Cousinhub

XLDnaute Barbatruc

oinegain

XLDnaute Junior

oinegain

XLDnaute Junior

Pièces jointes

Discussions similaires