Microsoft 365 Insérer une ligne en dessous

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

  • 220104-Ledent Liège PV 001 copie.xlsm
    21.9 KB · Affichages: 17

fanch55

XLDnaute Barbatruc
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 ...
 

Discussions similaires

Réponses
4
Affichages
76

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec