Bonjour à tous !
Voila, j'ai une macro qui me permet d'insérer une ligne par la simple pression d'un bouton, cette macro recopie juste les formules de la ligne du dessous, et efface mise en formes et autres valeurs inutiles.
La voici :
Je voudrai modifier légèrement cette macro, en lui disant que au lieu de recopier la ligne du dessous, il me recopie la ligne 200 par exemple.
Etant débutant en VBA, je fais appel à vous car je ne comprend pas grand chose à ce code...
Merci à tous pour votre aide !
jo1177
Voila, j'ai une macro qui me permet d'insérer une ligne par la simple pression d'un bouton, cette macro recopie juste les formules de la ligne du dessous, et efface mise en formes et autres valeurs inutiles.
La voici :
Code:
Sub Insère()
ActiveCell.EntireRow.Insert
Rows(ActiveCell.Row + 1).CopyRows (ActiveCell.Row)
On Error Resume Next
Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants, 23).ClearContents
Rows(ActiveCell.Row).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Je voudrai modifier légèrement cette macro, en lui disant que au lieu de recopier la ligne du dessous, il me recopie la ligne 200 par exemple.
Etant débutant en VBA, je fais appel à vous car je ne comprend pas grand chose à ce code...
Merci à tous pour votre aide !
jo1177