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