Copier/Coller de(s) lignes(s) au choix

Bonjour,

Après avoir cherché sur tous les forums et essayé différentes manières, je n'ai pas aboutit.

Je souhaiterai copier des lignes de mon tableau "Onglet Data", et les coller sur une autre feuille en incrémentant par le haut.

Je précise que la sélection des lignes se ferait manuellement.

Exemple:

Sélection: A7:V7 (copier/coller)

Sélection: A7:V7 + A11:V11 (copier/coller)

Sélection: A12+A15+A21 (copier/coller)

Merci d'avance pour vos lumières

Peux-tu nous mettre un fichier en pièce jointe que nous comprenions ton problème ?

Bonjour,

à tester :

dim r as range

for each r in selection

'Copier/Coller

next r

Bonjour Girodo et merci pour répondre si rapidement !

Voici comme tu l'as demandé, mon tableau. J'aimerai copier de Data des commandes vers une autre feuille.

Et si c'est possible, après avoir fait mon copier/coller, supprimer la ou les ligne(s) de ma feuille "Data des commandes"

pour ne conserver que la copie sur l'autre feuille.


Bonjour minanse et merci pour ta réponse. Je vais tester.

Est-ce un code à insérer ou je peux l’utiliser tel quel?

NB: Mon tableau n'arrive pas à se mettre en pièce jointe...

c'est un code a compléter

J'ai fait un copier/coller du tableau en question car mon fichier original est trop lourd pour le mettre en pièce jointe.

NB: La ligne 2 s'incrémente automatiquement via un bon de commande.

J'espère que ça permettra de mieux comprendre. Merci encore !

11tableau-copie.xlsm (13.89 Ko)

le code que j'ai fourni en haut te permet de faire ta sélection manuellement.

j'aimerai savoir comme tu voudrai coller t'es donnée ( dans un tableau comme celui donner en exemple, sur une feuille vierge ...)

Voila minanse,

Voici le code que je souhaite utilisé. Sauf qu'il m'est impossible de choisir les lignes que je souhaite. J'espère que ça pourra t'aider d'avantage...

Sub Macro_Test()

'

' Macro_Test Macro

'

'

Rows("3:3").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Sheets("Data").Select

Range("A3:V3").Select

Selection.Copy

Sheets("Feuil1").Select

ActiveSheet.Paste

Sheets("Data").Select

Application.CutCopyMode = False

Selection.ListObject.ListRows(2).Delete

End Sub


oui, chaque ligne(s) sélectionné(s) sera collé sur une feuille vierge (incrémenter par le haut) et celle copier sera supprimer.


minanse,

j'ai ajouter ton code sur le mien (certainement mal) au-dessus de "Rows("3:3").Select" et ça marche pas...

L'ai-je bien placé?

Rechercher des sujets similaires à "copier coller lignes choix"