inserer une ligne grace a un bouton vba/excel

inserer une ligne grace a un bouton vba/excel - VB/VBA/VBS - Programmation

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  
   
 

Reply

Marsh Posté le 11-05-2012 à 16:31:01   

Reply

Marsh Posté le 17-05-2012 à 10:50:57    

cells(17,21).select


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 24-05-2012 à 16:10:25    

merci!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed