copier coller la derniere ligne

[Christian53]

Bonjour à tous,
En remplissant mon tableau, je souhaiterais une macro pour qu'à chaque nouvel enregistrement elle copie la dernière ligne entière sur la ligne du dessous pour éviter de ressaisir 95% des mêmes informations et ne modifier que les 5% qui restent.
Un simple copier coller suffirait mais le tableau comporte beaucoup de colonnes et glisser de gauche à droite jusqu'au bout du tableau fait perdre pas mal de temps ...

merci d,avance de votre aide

 

[camarchepas]

Re : copier coller la derniere ligne

Bonjour,

Sans fichier , j'ai opté que la colonne A est toujours rempli et je calcul donc la dernière ligne par rapport à cette colonne .



Sub copie()
Dim derligne As Long
'Ici l'on trouve la derniere ligne de la colonne A
derligne = Range("A" & Rows.Count).End(xlUp).Row
Rows(derligne).Copy Destination:=Rows(derligne + 1)
End Sub

 

[Christian53]

Re : copier coller la derniere ligne

Merci pour la rapidité de la réponse mais ça ne fonctionne pas ...
ci joint le fichier

 

[Christian53]

Re : copier coller la derniere ligne

J'ai trouvé la ligne manquante. Selection de la feuille en cours.
Voici donc le code qui fonctionne
MERCI !!!!!

Sub copie()
Sheets("feuil1").Select
Dim derligne As Long
'Ici l'on trouve la derniere ligne de la colonne A
derligne = Range("A" & Rows.Count).End(xlUp).Row
Rows(derligne).Copy Destination:=Rows(derligne + 1)
End Sub

 

[camarchepas]

Re : copier coller la derniere ligne

Re ,

Et pourtant .....

 

[Si...]

Re : copier coller la derniere ligne

Salut
avec

Rows(derligne).Copy Rows(derligne + 1)

toutes les cellules de la ligne sont copiées !
Pour éviter cela et d’ajouter des lignes vides, en termes "Tableau"* cela pourrait être :

Option Explicit
Sub copie()
  If Application.CountA([Table1]) = 0 Then Exit Sub
  Dim L As Long
  L = [Table1].Rows.Count
  [Table1].Rows(L).Copy [Table1[nom]].Rows(L + 1)
End Sub

* on n’a pas à se préoccuper de l’emplacement de la table !

 

[Christian53]

Re : copier coller la derniere ligne

Merci à tous les 2, ça fonctionne très bien !