Inserer des lignes avec VBA sous contraintes
PAT
-
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.
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.
2 réponses
-
Bonsoir,
Rows(20).Copy Rows("21:" & 20 + [A10]).Insert Shift:=xlDown
eric -
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
