Macro dupliquer ligne

[Manu]

Bonjour,

Pour éviter le fastidieux copier PUIS insérer ligne je recherche comment faire une macro pour dupliquer une ligne juste en mettant le curseur n'importe ou sur la ligne...
J'ai déjà vue cette Macro mais pas assez compétent pour la refaire...

MERCI BEAUCOUP

MANU DE MONTPELLIER

 

[Charly2]

Bonsoir Manu, le forum,

Tu peux insérer ce code dans ton classeur de macros personnelles :

Sub CopierInsererLigne()
' Sélectionne la première colonne de la ligne courante
Cells(Selection.Row, 1).Select
' copie toute la ligne Selection.EntireRow.Copy
' Et l'insère en décalant les cellules vers le bas Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

Amicalement
Charly

 

[Charly2]

Re à tous,

Je te le refais :

Sub CopierInsererLigne()
' Sélectionne la première colonne de la ligne courante
Cells(Selection.Row, 1).Select
' copie toute la ligne
Selection.EntireRow.Copy
' Et l'insère en décalant les cellules vers le bas
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

C'est mieux ainsi 😉

Charly

 

[jsljulius]

Re : Re:Macro dupliquer ligne

Bonjour,

Merci pour cette macro. Elle me serait utile à condition qu'elle fonctionne lorsque les données sont filtrées. Cependant, lorsque j'essaie d'exécuter cette macro sur des données filtrées, je reçois le message d'erreur suivant :

Erreur d'exécution '1004':
La méthode Insert de la classe Range a échoué.

Savez-vous s'il est possible de trouver une solution à ce problème?

Merci beaucoup!