Inserer des lignes avec VBA sous contraintes Fermé

Question

Bonjour, 

Débutante dans le domaine, je recherche de l'aide afin de pouvoir insérer automatiquement des lignes dans un tableau Excel.

Cette tâche est normalement simple mais il y a des contraintes :

-  la cellule ("A10") contient le nombre de lignes à rajouter et je souhaite rajouter des  lignes en fonction de cette valeur (sous la ligne ("20:20"))

- de plus les lignes rajoutées doivent contenir les mêmes formules et la même mise en forme que la ligne ("20:20")

Je vous remercie pour toute l'aide que vous pourrez m'apporter.

Configuration: Windows Vista / Internet Explorer 8.0

eriiic · Answer

Bonsoir,

Rows(20).Copy
Rows("21:" & 20 + [A10]).Insert Shift:=xlDown

eric

PAT · Answer

Merci Eric pour ta réponse 
Ca fonctionne!

J'ai eu une autre proposition qui fonctionne aussi :
Sub Macro1() 
i = Range("A10" ) 
Do While i > 0 
    Rows("20:20" ).Copy 
    Range("A21" ).Insert Shift:=xlDown 
    i = i - 1 
Loop 
End Sub 

A+

Patricia

Inserer des lignes avec VBA sous contraintes

2 réponses

Discussions similaires