Copier/coller valeurs sur nouvelle ligne en fin de tableau en liste

[Paddy33]

bonsoir,
j'ai un souci pour écire une macro.
Voila, j'ai un fichier excel de suivi d'achat et vente de sicav, et je souhaite que lorsque je clic sur le bouton valider de a feuille "souscritpion", la macro me copie les valeurs choisies (dates, nbre et valeur unitaire) dans l'onglet "tableau récap" qui est en liste crée.
Donc il faudra que la macro me trouve la derniere valeur de la liste (avant le total) et colle les valeurs de la feuille souscription en transposé.. J'ai déja fait une bonne partie de la macro mais je bloque sur le fait qu'elle doit trouver la dernière valeur de la liste et coller transposé sur la ligne en dessous.
Pour info, dans la tableau recap il y a une formule PEPS qui se valide quand on sort de la "liste".
Je joints le fichier pour support.
Merci a vous pour votre aide
Paddy

 

[Paddy33]

Re : Copier/coller valeurs sur nouvelle ligne en fin de tableau en liste

Personne pour m e venir en aide?
Merci a vous
Paddy

 

[stefan373]

Bonsoir paddy33 et le forum.
Il faudrait un peu de patience me semble t'il.😎
En plus votre fichier est zippé 2 fois et illisible en ce qui me concerne.
Donc reposté le.
A + 🙂

 

[Paddy33]

Re : Copier/coller valeurs sur nouvelle ligne en fin de tableau en liste

Bonjour,
Je joints le fichier que j'ai zippé une fois seulement...sinon il fait 72ko non zippé et il est trop grand pour être insérer....
J'espère que quelqu'un pourra me venir en aide sur ce tableau..
Merci d'avance
Paddy

 

[Fo_rum]

Re : Copier/coller valeurs sur nouvelle ligne en fin de tableau en liste

salut

en rajoutant une ligne, peut-être ainsi ?

Sub Validation_Souscription()
  Dim Tot As Range,  li as Byte
  With Sheets("Tableau Recap")
    Set Tot = .[A:A].Find("TOTAL")
    li = Tot.Row
    .Rows(li).Insert
    .Cells(li, 1) = [D7]
    .Cells(li, 2) = [D8]
    .Cells(li, 3) = [D9]
    .Cells(li, 4) = [D14]
  End With
End Sub