inserer une ligne grace a un bouton vba/excel - VB/VBA/VBS - Programmation
MarshPosté le 11-05-2012 à 16:31:01
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:
'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.
Marsh Posté le 11-05-2012 à 16:31:01
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:
'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