Copier coller de valeurs

[copainju]

Bonjour a tous,

Je suis nouveau venu dans la programmation en VBA, Aussi, j'ai besoin d'aide.

Mon probleme est basique, mais pas si évident que ca a resoudre pour un novice.

Je veux recopier les valeurs de Feuille 1 (A1) dans feuille 2 (A1:A10) puis Feuille 1 (A2) dans feuille 2 (A11:A20) etc... sachant que j'ai plus de 250 lignes, il faudrait que je puisse utiliser incréments et boucles, mais voila, je ne connais pas le language pour faire ca...

Le code (qui ne fonctionne pas 🙁 ) est celui-ci, peut être que cela pourra vous aider...

Sheets("Feuil1").Select
ActiveCell.Select
Selection.Copy
Sheets("Feuil2").Select
ActiveCell.Range("A1:A10").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
ActiveCell.Offset(1, 0).Select
Selection.Copy


Pourriez vous me venir en aide???😱

D'avance je vous remercie.

copainju

 

[pierrejean]

Re : Copier coller de valeurs

bonjour copainju

et bienvenue sur XLD

Je ne comprend pas bien ce que tu veux faire !!
Copier une cellule dans 10 cellules ???

Un petit fichier avec quelques données non confidentielles presentant l'etat de depart et celui auquel tu veux arriver nous permettrait de t'aider efficacement et rapidement

A te lire

 

[fanfan38]

Re : Copier coller de valeurs

Bonjour
derlig=range("a65500").end(xlup).row
for i=1 to derlig
Sheets("Feuil1").Select
Cells(i,1).Select
Selection.Copy
Sheets("Feuil2").Select
Cells(range("a65500").end(xlup).row,1).Select
ActiveSheet.Paste
next
A+ François

 

[wilfried_42]

Re : Copier coller de valeurs

Bonjour et bienvenue

voici une macro

Sub Copie()
      dim i as long, j as integer
      for i = 1 to sheets("Feuil1").range("A65536").end(xlup).row
           for j = 1 to 10
               sheets("Feuil2").cells(((i-1)*10)+j,1) = sheets("Feuil1").range("A" & i)
           next j
      next i
end sub

Edit : en retard le Wil, Bonjour PierreJean 🙂, Francois 🙂

 

[copainju]

Re : Copier coller de valeurs

Chers confrères,

Je tiens à vous dire un grand merci pour votre aide, vous me faites gagner énormément de temps pour retraiter mes données.

Et quelle rapidité... Incroyable! 🙂


Sincères salutations.

Julien