Microsoft 365 Copier / coller plusieurs lignes Excel selon une valeur

[ventu]

Bonjour à tous,

Je début en VBA malgré plusieurs recherche je n 'ai pu trouvé sur les forums.
Je cherche à dupliquer une liste de ligne en fonction d'une valeur rentrée manuellement. Pour les lignes il s'agit de la ligne A15 à P21. La valeur pour le nombre de copie est C4. Le but c'est d'ajouter automatiquement le calcul d'autre vannes en dessous et aussi est de pouvoir conserver les formules et l'image sur les lignes qui seront crées.

Merci à vous,

Bonne journée,

J.V

 

[Staple1600]

Bonsoir

Ce ne serait plutôt les lignes A14:P20 ?
(et il faut aussi recopier les formes automatiques ?)

 

[ventu]

Oui en effet, et garder les formes automatique.

Merci beaucoup

J.v

 

[Staple1600]

Re

A tester sur une copie de ton classeur

Sub test()
Dim rng As Range, nbV
nbV = [C4]
Set rng = Rows("14:20")
For i = 1 To nbV
rng.Copy Cells(Rows.Count, 1).End(xlUp)(2)
Application.CutCopyMode = False
Next
End Sub

Après avoir lancer la macro, tu comprendras pourquoi il fallait le faire sur une copie du classeur.

 

[ventu]

Bonjour,

Merci beaucoup pour ton retour !!! Ca marche au top. En effet j'ai quelques ajustements à faire pour que cela soit mieux exploitable.
Pour aller plus loin, sur un autre onglet j'ai une liste de nom pour ces vannes dans un tableau. Est-ce que je pourrai exporter le nom de ces vannes dans une case en fonction du nombre de ligne que je crée.
Par exemple dans mon tableau la vanne n°12 à le même nom que la douzième panoplie que j'ai crée ?

Merci à toi,

J.V