XL 2016 Macro , copier coller une ligne

julie342 · 25 Février 2021

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 · 25 Février 2021

julie342 à dit:
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é.

julie342 à dit:
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 :

Code:

=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.

VB:

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...

sylvanu · 25 Février 2021

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é :

VB:

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 · 25 Février 2021

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

sylvanu · 25 Février 2021

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

julie342 · 25 Février 2021

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

julie342 · 25 Février 2021

ç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 · 25 Février 2021

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

sylvanu · 25 Février 2021

julie342 à dit:
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é.

julie342 à dit:
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 :

Code:

=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.

VB:

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 · 26 Février 2021

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

XL 2016 Macro , copier coller une ligne

julie342

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

julie342

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

julie342

XLDnaute Nouveau

julie342

XLDnaute Nouveau

julie342

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

julie342

XLDnaute Nouveau

Discussions similaires