Bonjour à tous, je me tourne de nouveau vers vous, j'ai réalisé une macro me permettant à l'aide d'un bouton, d'insérer une ligne. Le problème que je rencontre est que je souhaite l'utiliser pour plusieurs bouton, mais je n'arrive pas à trouver la ligne de code permettant de récupérer la ligne ou se trouve mon bouton pour qu'l est effet que sur celle ci. je vous laisse mon bout de code en espérant que je trouverais une réponse. Merci.
Code:
Sub Insertion()
Dim Inser As Long
Inser = Cells(Application.Rows.Count, 11).End(xlUp).Offset(1, 0).Row
Range(Cells(Inser, 1), Cells(Inser, 13)).Inser
Range(Cells(Inser, 1), Cells(Inser, 13)).FormulaR1C1 = Range(Cells(Inser - 1, 1), Cells(Inser - 1, 13)).FormulaR1C1
End Sub
Code:
Sub Insertion()
Dim Inser As Long
Inser = Cells(Application.Rows.Count, 11).End(xlUp).Offset(1, 0).Row
Range(Cells(Inser, 1), Cells(Inser, 13)).Inser
Range(Cells(Inser, 1), Cells(Inser, 13)).FormulaR1C1 = Range(Cells(Inser - 1, 1), Cells(Inser - 1, 13)).FormulaR1C1
End Sub
Dernière édition: