macro permettant de copier et coller plusieurs cellules

[loiclass]

Bonjour,

Je cherche à copier plusieurs cellules et de les coller dans d'autres cellules sur une 2ème feuilles mais je n'y arrive pas.

Voici la structure de ma macro:

Au départ j'ai une fonction INPUTBOX, ou je demande à l'utilisateur de sélectionner la ligne de début et de fin où les données seront analysées.
Je fais une série de copier/coller qui fonctionne bien (la valeur copiée/collée s'écrase à chaque ligne mais ça ne me pose pas de problème puisque c'est à chaque fois la même).

Par contre il y a une colonne où les valeurs sont différentes sur chaque ligne et je ne veux pas pas qu'elles s'écrasent, mais plutôt que si je copie 5 lignes, 5 lignes soient créées.

mon code pour copier est:

For i = Debut to fin

Worsheets("Feuil1").Range("A"&i).copy
Worsheets("Feuil2").select
Range("B1").select

.........

Quelqu'un peut il m'aider, par ce que là je bloque vraiment.

Merci d'avance

 

[Pierrot93]

Re : macro permettant de copier et coller plusieurs cellules

Bonjour,

pas facile de t'aider avec 3 bouts de code jetés sur un post.... mets plutot un tout petit fichier en pièce jointe représentant uniquement le problème posé mais avec le code COMPLET.

bonne journée
@+

 

[glaine]

Re : macro permettant de copier et coller plusieurs cellules

Bonjour,

Cela peut être t'aider. Je me lance.

Sub copier_coller()
Dim pre As Integer
Dim deu As Integer
pre = 1
deu = 12
For i = 1 To deu
Worksheets(2).Select
Rows("1:5").Insert shift = xlDown
Worksheets(1).Range("A2").Copy
ActiveSheet.Paste Destination:=Worksheets(2).Range("A2")
Application.CutCopyMode = False
Next i
End Sub

Amicalement

 

[loiclass]

Re : macro permettant de copier et coller plusieurs cellules

Glaine, je teste ton code demain.

Je viens d'ajouter un fichier simplifier au maximum avec mon morceau de code.

Concrètement, la fonction inputbox (qui n'est d'ailleurs pas totalement terminée) sert à sélectionner plusieurs lignes.
je suis bloqué au moment ou je sélectionne et copie les lignes de la colonne "qualité commandée", je veux copier ces lignes dans la feuille "demande échantillons".
Si je sélectionne 5 lignes, je veux coller ces 5 lignes.

J'espère que le fichier aidera à mieux comprendre mon problème.

Merci

 

[loiclass]

Re : macro permettant de copier et coller plusieurs cellules

Bonjour,

J'ai essayé le code de GLAINE, mais je n'arrive pas à l'adapter à mon fichier.

Je pense essayer une nouvelle méthode. Il doit exister une formule pour copier une cellule suivant le numéro de ligne.

Merci

 

[chaton1]

Re : macro permettant de copier et coller plusieurs cellules

Bonjour à tous,
je suis tout nouveau sur le forum,
je suis belge et j'ai trouvé mon bonheur sur votre forum

malheureusement le code trouvé sur ce fil
fonctionnant très bien certes mais je voudrais le réaliser dans la même feuille
je m'explique
je voudrais recopier mon nom 10 fois à partir de la cellule B1 juque la cellule B10
mon nom se trouve dans la cellule A1 même feuille

Suis-je assez clair ???

Je vous remercie
Amicalement
Jean-Claude

 

[Staple1600]

Re : macro permettant de copier et coller plusieurs cellules

Bonjour et bienvenue sur XLD

chaton1
Comme tu es nouveau ici, je te conseille amicalement de suivre les bons conseils distillés par la charte du forum
Notamment celui-ci:
Ouvrir une nouvelle discussion pour poser sa question et éviter ainsi de poser sa question dans un fil initié par un autre membre du forum.

A te relire donc dans ta propre discussion

PS: N'oublies de joindre un fichier exemple dans ta nouvelle discussion (mais pas dans celle-ci)
Au passage, ta question peut se résoudre simplement sans macros mais par formules
(en B1=$A$1 puis recopie vers le bas jusqu'en B10)