Macro pour inserer lignes
Bonjour
Je rebondis sur ce cas (https://forum.excel-pratique.com/viewtopic.php?f=2&t=25730) pour l'adapter à ma problématique. (EXCEL 2010)
Même pb c'est à dire ajoute de ligne juste au dessus de mon bouton macro.
Seul souci que je n'arrive pas à programmer, c'est de reproduite un certains nombre de cellule prérempli avec des fonctions.
Lorsque je le fais en enregistrement, la macro sort ci dessous.
Mon problème est d'y insérer un flottant c'est à dire de récupérer la ligne du bouton pour remplacer le "73:73" par "ligne au dessus de mon bouton.
Pouvez vous m'aider ?
En résumé, si bouton en ligne 73, insérer une ligne identique à celle d'au dessus pour en format avec notamment la colonne A et K à N reprenant les même formules (B à J étant vierge sur la nouvelle ligne)
Et si je pouvais y insérer en plus l'insertion multiple proposée au dessus en proposant le nombre de nouvelle ligne ce serait top !!!
AJOUTER_EI Macro
'
'
Rows("73:73").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A72").Select
Selection.AutoFill Destination:=Range("A72:A73"), Type:=xlFillDefault
Range("A72:A73").Select
Range("K72").Select
Selection.AutoFill Destination:=Range("K72:K73"), Type:=xlFillDefault
Range("K72:K73").Select
Range("N72").Select
Selection.AutoFill Destination:=Range("N72:N73"), Type:=xlFillDefault
Range("N72:N73").Select
Range("A73:N73").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
Merci aux pros
Bonjour,
à tester,
Range("A73:N73").Insert Shift:=xlDown
Range("A72:N73").FillDown
Range("B73:J73").ClearContents