Microsoft 365 Macro pour ajouter des lignes copiées ?

[ENDELL]

Bonjour, étant tout à fait nouveau (pas sur Excel mais sur VBA), j'ai besoin de faire un bouton avec une macro toute simple qui puisse me permettre de générer une ligne au dessus d'une autre, et en gardant la mise en forme si possible (pas forcément le contenu). Exemple dans le fichier ci-joint, j'aimerais que le fait d'appuyer sur le bouton 1 me permette de générer une ligne entre A1 et A2 qui aie la même mise en forme que A2 (ici un simple fusionner et centrer).

Je comprends un peu comment fonctionnent les macros et les formules, mais j'avoue qu'il ya des points sur lesquels je bloque, du coup si possible d'avoir une petite explication avec, ce serait pas de refus :/

Merci !

 

[Hasco]

Bonjour,

Et pour des macros vous mettez un fichier .xlsx ?

 

[ENDELL]

Bonjour,

Et pour des macros vous mettez un fichier .xlsx ?

Au temps pour moi, mauvaise terminaison

Merci de la correction

 

[sylvanu]

Bonjour Endell,
Un essai en PJ avec :

Sub Insère()
    L = ActiveCell.Row
    Rows(L).Copy
    Selection.Insert Shift:=xlDown
    Rows(L).ClearContents
    Cells(L, "A").Select
End Sub

 

[ENDELL]

Bonjour Endell,
Un essai en PJ avec :

Sub Insère()
    L = ActiveCell.Row
    Rows(L).Copy
    Selection.Insert Shift:=xlDown
    Rows(L).ClearContents
    Cells(L, "A").Select
End Sub

J'avoue que c'est parfait, possible d'avoir quelques explications au niveau de la macro ?

Merci beaucoup

 

[sylvanu]

Oups!
La même commentée.

Sub Insère()
    L = ActiveCell.Row              ' "L" récupère la ligne qui est sélectionnée
    Rows(L).Copy                    ' On copie cette ligne
    Selection.Insert Shift:=xlDown  ' On l'insère au dessus
    Rows(L).ClearContents           ' On en efface le contenu ( mais pas le format )
    Cells(L, "A").Select            ' On sélectionne la cellule en colonne A ( par pur esthètique )
End Sub