Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Macro pour ajouter des lignes copiées ?

ENDELL

XLDnaute Nouveau
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 !
 

Pièces jointes

  • Classeur1.xlsx
    12 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
Oups!
La même commentée.
VB:
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
 

Pièces jointes

  • Classeur1 (1).xlsm
    15.5 KB · Affichages: 4

Discussions similaires

T
  • Résolu(e)
Microsoft 365 pb effacement macro
Réponses
8
Affichages
427
Themax
T
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…