Microsoft 365 Copier / coller plusieurs lignes Excel selon une valeur

ventu · 7 Mars 2022

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 · 7 Mars 2022

Re

A tester sur une copie de ton classeur

VB:

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.

Staple1600 · 7 Mars 2022

Bonsoir

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

ventu · 7 Mars 2022

Oui en effet, et garder les formes automatique.

Merci beaucoup

J.v

Staple1600 · 7 Mars 2022

Re

A tester sur une copie de ton classeur

VB:

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 · 8 Mars 2022

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

Microsoft 365 Copier / coller plusieurs lignes Excel selon une valeur

ventu

XLDnaute Nouveau

Pièces jointes

Staple1600

Staple1600

XLDnaute Barbatruc

ventu

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

ventu

XLDnaute Nouveau

Discussions similaires