XL 2016 Macro , copier coller une ligne

[julie342]

Bonjour à tous,
J'ai besoin de votre lumière car je patagoge depuis quelques jours ... je suis novice et autant vous dire que malgré la motivation je commence à saturé.
J'ai un tableau :
Colonne 1 = départ à A
Fin des colonnes en M
Début de ligne (hors titre) : 8
Fin de ligne : 16

J'aimerai que copier ma ligne 16 (sur la totalité) et pouvoir la coller à la ligne 17.
Sauf que lorsque je fais ma commande :

Sub Macro6()
'
' Macro6 Macro
'
Dim derligne As Integer
derligne = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(derligne, "B").Select
Selection.Insert
Rows(derligne).Select
Selection.Copy

End Sub

Avant le "End Sub" je ne sais pas comment lui dire de me coller la ligne en dessous.
Pouvez-vous m'aider ?

 

[sylvanu]

Bonjour Julie,
Si j'ai bien compris vous voulez copier les cellules de A à M de la dernière ligne sur la ligne suivante ?
Si c'est bien ça, alors une possibilité :

Sub Macro6()
    Dim DL%
    DL = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & DL + 1 & ":M" & DL + 1) = Range("A" & DL & ":M" & DL).Value
End Sub

 

[julie342]

Malheureusement ça ne fonctionne pas.. ou alors je m'y prend comme un pieds

 

[sylvanu]

Ou je n'ai rien compris.
Testez cette PJ.

 

[julie342]

ça fonctionne parfaitement sur votre tableau mais pas sur le mien ... bizarre !

 

[julie342]

ça va seulement mettre les mêmes informations mais sans la mise en forme
et si ma ligne initiale est la 9, cela va m'indiquer le 9 mais pas le 10

 

[julie342]

Je vous joins le document en question, si cela peut vous aider à m'aider ...

 

[sylvanu]

si ma ligne initiale est la 9, cela va m'indiquer le 9 mais pas le 10

Evidemment. C'est la copie de la ligne précédente et en colonne A le contenu est figé.

J'aimerai que copier ma ligne 16 (sur la totalité) et pouvoir la coller à la ligne 17.

Une copie est une copie, ça ne touche pas le contenu.
Ce que vous voulez faire, c'est dupliquer la ligne.

Testez cette PJ.
En Colonne A j'ai mis :

=MAX($A$8:A19)+1

Donc à chaque ligne le N° sera incrémenté.
Et j'ai modifié le code pour que la dernière ligne soit dupliquée.

Sub AjouterLigne()
    Dim DL%
    DL = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & DL & ":M" & DL).Copy
    Rows(DL + 1 & ":" & DL + 1).Select
    ActiveSheet.Paste
    Cells(DL + 1, "B").Select
End Sub

 

[julie342]

Bonjour,
Je vous remercie pour votre aide, ma collègue a trouvé une solution.