Inserer des lignes avec VBA sous contraintes

PAT -  
 PAT -
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.

A voir également:

2 réponses

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonsoir,

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

eric
0
PAT
 
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
0