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

Microsoft 365 Insérer une ligne en dessous

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Marcus275?

XLDnaute Nouveau
Bonjour, je cherche une macro sous forme de bouton qui permettrait de copier la ligne sur laquelle on est et de la coller en dessous sans contenu, mais avec la mise en forme et fusion de cellule (surtout), une ligne identique à celle copiée, si possible avec une numérotation +1 à celle copié (en fonction des colonne A, B, C ou D
Marcus275?
 

Pièces jointes

Bonjour,
Se positionner sur la ligne à dupliquer ou une de ses cellules
et exécuter la sub ci-dessous ( à assigner à un bouton )
VB:
Sub DupFil()
Dim Cel As Range
    With ActiveSheet
        .Rows(Selection.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Set Cel = .Cells(Selection.Row, 1).End(xlToRight)
        If Cel.Column < .Columns.Count _
        Then Cel.AutoFill Destination:=Cel.Resize(2), Type:=xlFillDefault
    End With
End Sub

Attention, c'est un "autofil" bestial, il ne "recalcule/modifie" pas ce qui est déjà existant ...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…