[vb6] copier de feuilles en feuilles dans le meme tableau excel via vb6

Question

Salut a tous et toutes 
encore une gal&#232;re de stagesque je vais vous faire partager

je trie des donn&#233;es a partir d'un tableau excel 
je les envoie vers d'autres tableau excel suivant la colonne de d&#233;but 
jusque l&#224; pas de probl&#232;mes mais ensuite  2&#232;me tri :
je voudrais r&#233;organiser chaque tableau(feuille1)
en plusieurs feuilles dans le meme tableau
( c'est pas trop clair !!!!)

donc je voudrais savoir comment copier de feuilles en feuilles
j'ai test&#233;

appexcel.activeworkbook.sheets(1).select
rows(a).select
selection.copy
appexcel.activeworkbook.sheets(2).select
rows(a).select
activesheet.paste

merci d'avance
batao

Molenn · Answer

Copier de feuilles en feuilles dans un m&#234;me fichier Excel, le plus simple que j'ai trouv&#233; c'est par exemple :

- Pour des cellules :
worksheets("Feuille1").range("A1:C3").copy

worksheets("Feuille2").range("D20:F23").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

- Pour des lignes :
worksheets("Feuille1").rows("1:4").copy

worksheets("Feuille2").rows("6:10").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Pour des colonnes : 
worksheets("Feuille1").columns("A:D").copy

worksheets("Feuille2").columns("F:J").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

(pour une raison que je n'ai pas encore &#233;lucid&#233;, si je le fais avec juste un ".paste", j'ai des soucis)

Et si tu veux faire la m&#234;me chose dans 2 fichiers diff&#233;rents, il faut que les 2 soient ouverts et il te suffit de rajouter windows("Nomdufichier") devant, ce qui te donne par ex :
windows("Nomdufichier1").worksheets("Feuille1").range("A1:C3").copy

windows("Nomdufichier2").worksheets("Feuille2").range("D20:F23").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

batao · Answer

J'ai essay&#233; pour les colonnes car c'est ce qui m'int&#233;resse mais rien ne se passe
je dois d&#233;finir les feuilles comme
dim Feuille1 as Worksheet
ou qqchose du genre ???

Molenn · Answer

Non non, c'est juste le nom de ta page.

Par exemple, 
Ton classeur Excel a pour nom Test.
Il contient 3 feuilles Toto, Tata, Titi

Si tu veux copier la colone A de la feuille Toto dans la colone C de la feuille Tata, &#231;a te donne

Tu cr&#233;es un bouton sur une feuille.
Dans son code, tu colles :

Sub Bouton_Click()
   
   worksheets("Toto").columns("A:A").copy

   worksheets("Tata").columns("C:C").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

End sub

Et quand tu cliques sur le bouton, &#231;a te fait la copie.

[vb6] copier de feuilles en feuilles dans le meme tableau excel via vb6

3 réponses

Discussions similaires