[Excel] Fusionner plusieurs feuilles de calculs du meme classeur

Fusionner plusieurs feuilles de calculs du meme classeur [Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 09-11-2006 à 14:10:32    

Bonjour,
 
J'aimerais fusionner les informations se trouvant sur plusieurs feuilles de mon classer Excel afin de pouvoir faire des tris dynamiques sur le document final.
 
Ex:
feuil1:
AGE     NOM    TAILLE
18      ARTHUR   1.70
22      SYLVAIN  1.75
 
feuil2:
AGE     NOM    TAILLE
18     NICOLAS  1.72
21     JEROME   1.78
 
RESULAT SOUHAITE :
Feuil3:
AGE     NOM    TAILLE
18      ARTHUR   1.70
22      SYLVAIN  1.75
18     NICOLAS  1.72
21     JEROME   1.78
 
Voila, je pense que c'est clairement exprimé.
D'avance merci à ceux qui pourront m'aider.
Je continu aussi mes recherches de mon coté.
 
 
Vincent.
 

Reply

Marsh Posté le 09-11-2006 à 14:10:32   

Reply

Marsh Posté le 09-11-2006 à 18:21:14    

Tu fais des compteurs, et par la suite, tu incrémentes progressivment, ton code ressemblera à ca
 
For i=2 to 15
Range("feuil3!A" & i).value = Range("feuil1!A" & i).value
Range("feuil3!A" & i+15).value = Range("feuil2!A" & i).value
next i
 
Ta valeur qui doit changer c'est le 15, où tu pourras faire référence à une cellule dans laquelle tu stockes ce dont tu as bessoin.
 
Bonne continuation.

Reply

Marsh Posté le 09-11-2006 à 18:46:29    

Merci pour ta réponse, mais je ne suis pas très fort en programmation, pourrais-tu développer, m'aider un peu plus.
D'avance merci.
 
 
 
Vincent

Reply

Marsh Posté le 09-11-2006 à 23:42:27    

si tu as des feuilles avec toujours le meme nombre d'informations, la valeur de la boucle for sera fixe, sinon le code deviendra:
on stocke le nombre d'informations de la premiere feuille dans la cellule D1 de feuil1
For i=2 to range("feuil1!D1" ).value
Range("feuil3!A" & i).value = Range("feuil1!A" & i).value
Range("feuil3!A" & i+range("feuil1!D1" ).value).value = Range("feuil2!A" & i).value
Range("feuil3!B" & i).value = Range("feuil1!B" & i).value
Range("feuil3!B" & i+range("feuil1!D1" ).value).value = Range("feuil2!B" & i).value
next i  
 
tu vois mieux ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed