Macro pour copier et insérer ligne copiée

[norskfred]

Cher tous,
J'ai besoin de vos lumières!!
je vous expose le petit problème que je rencontre.
je souhaite créer un bouton qui, quand on clique dessus, copie une ligne (ligne 21 de la feuille "réponse" du fichier) et qui l'insère en ligne 23. Ce bouton doit être évidemment réutilisable avec insertion en 24, 25, 26 etc...
Voilà, j'espère que j'ai été suffisamment clair.
D'avance, je vous remercie.

Norskfred

 

[kjin]

Re : Macro pour copier et insérer ligne copiée

Bonsoir,

Sub Macro1()
With Sheets("Réponse")
    'détermine la première ligne vide en "B20:Bx"
    'Attention "B21" ne doit jamais être supprimée
    dl = .Range("B20").End(xlDown).Row + 1
    'insert une nouvelle ligne à cet endroit
    .Rows(dl).Insert Shift:=xlDown
    'copie la plage "B:I" de la ligne précédente
    .Range(.Cells(dl - 1, 2), .Cells(dl - 1, 9)).Copy
    'colle le format de cette plage dans la nouvelle ligne
    .Range("B" & dl).PasteSpecial Paste:=xlFormats
    'zt y colle la plage
    ActiveSheet.Paste
    'désactive le mode copier/coller
    Application.CutCopyMode = False
End With

End Sub

A+
kjin

 

[norskfred]

Re : Macro pour copier et insérer ligne copiée

Super!
J'essaie de suite😀

 

[norskfred]

Re : Macro pour copier et insérer ligne copiée

Génial!
ça marche du feu de dieu!
C'est exactement cela.
Toutefois, découvrant petit à petit le VBA, j'aurais besoin d'une petite explication de texte...
Aurais-tu la gentillesse de m'éclairer?
Merci

norskfred

 

[kjin]

Re : Macro pour copier et insérer ligne copiée

Bonjour,
J'ai réédité mon message précédent avec l'explication
A+
kjin

 

[norskfred]

Re : Macro pour copier et insérer ligne copiée

Merci beaucoup!!
c'est super!🙂