Bonjour,

Pour mon projet de fin d'étude je dois réaliser un outils de dimmensionnemnt sur excel avec l'intégration de vba.

Sur ma feuille excel j'ai 5 tableaux, placés les uns au dessous des autres (escpacé de quelques lignes).

A la fin de chaque tableau j'ai créé un bouton qui permet de rajouter des lignes avec la meme mise en forme que la ligne du dessus,

voici un code que j'ai trouvé et qui fonctionne:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
'faire une nouvelle ligne 
ActiveCell.EntireRow.Insert Shift:=xlDown 
'copier la ligne du dessus 
ActiveCell.Offset(-1, 0).EntireRow.Copy Cells(ActiveCell.Row, 1) 
On Error Resume Next 
'effacer le contenu de la nouvelle ligne mais garder la forme 
ActiveCell.EntireRow.ClearContents
Le seul soucis est que cette "insertion de ligne " se fait sur la cellule active (ActiveCell)

Je veux que l'insertion se fasse sur une ligne définie du genre à la ligne 17,21 par exemple.




Merci