Discussion :

[elbush]

Bonjour a tous,

j'ai besoin de votre aide pour la creation d'une macro sous excel 2003, je vous explique se que j'éssaie de faire.

j'ai un classeur avec une liste de personne ;
- Nom :colonne A2 à A10
- Prenom: colonne b2 à b10
- type : colonne c2 à c10

Je souhaiterais avec une macro récuperer les cellules du premier classeur ver le second classeur ; et que la macro se trouve sur le second classeur.
- colonne A B C..

Sa me semble pas trop compliqué , sa me semble un bon exercice pour commencer.
Merci d'avance

[bentor22]

tu veux dire ligne A2 à A10?

[elbush]

oui c'est sa "bentor22" !!

[leinadjan]

C'est facile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Dim x As Integer
 
for x = 2 to 10 
 
   Worksheets("Feuil2").Range("A" & x).Value = Worksheets("Feuil1").Range("A" & x).Value 
   Worksheets("Feuil2").Range("B" & x).Value = Worksheets("Feuil1").Range("B" & x).Value 
   Worksheets("Feuil2").Range("C" & x).Value = Worksheets("Feuil1").Range("C" & x).Value 
 
next x

En gros c'est un peu comme ça.

[elbush]

ok d'accord merci, mais par contre moi j'ai pas 2 feuilles mes 2 fichiers excel différent.

sa devrai donner ca je pense:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
feuil2 = c:\document_export.xls
feuil1 = c:\document_import.xls
 
Dim x As Integer
 
for x = 2 to 10 
 
   Worksheets("Feuil2").Range("A" & x).Value = Worksheets("Feuil1").Range("A" & x).Value 
   Worksheets("Feuil2").Range("B" & x).Value = Worksheets("Feuil1").Range("B" & x).Value 
   Worksheets("Feuil2").Range("C" & x).Value = Worksheets("Feuil1").Range("C" & x).Value 
 
next x