Bonjour,
Voici une petit macro sur laquelle je travaille mais je ne parviens pas à la finaliser.
En effet, je ne parviens pas à mentionner le choix d'une cellule correspondant à l'ActiveCell.Row
Sub Insr_ligne()
If ActiveCell.Row > 10 Then
Call Dévérouiller
Selection.EntireRow.Insert
Range("A10:S10").Copy .Range(cellule X de activeCell.row).PasteSpecial: xlPasteFormulas
Call Vérouiller
End If
End Sub
Pour être plus précis, je donne un exemple. J'active la cellule E15, et j'active ma macro via un bouton. Je souhaiterais que les formules de la plage de cellule A10:S10 soient copier à partir de la cellule E10.
Merci de vos contributions
P.S. : Je vous joins un petit fichier exposant la situation.
Voici une petit macro sur laquelle je travaille mais je ne parviens pas à la finaliser.
En effet, je ne parviens pas à mentionner le choix d'une cellule correspondant à l'ActiveCell.Row
Sub Insr_ligne()
If ActiveCell.Row > 10 Then
Call Dévérouiller
Selection.EntireRow.Insert
Range("A10:S10").Copy .Range(cellule X de activeCell.row).PasteSpecial: xlPasteFormulas
Call Vérouiller
End If
End Sub
Pour être plus précis, je donne un exemple. J'active la cellule E15, et j'active ma macro via un bouton. Je souhaiterais que les formules de la plage de cellule A10:S10 soient copier à partir de la cellule E10.
Merci de vos contributions
P.S. : Je vous joins un petit fichier exposant la situation.
Pièces jointes
Dernière édition: