Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Copier / coller plusieurs lignes Excel selon une valeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ventu

XLDnaute Nouveau
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
 

Pièces jointes

Solution
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.
😉
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.
😉
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…