[VBA] copie liste valeur d'1 feuil à 1 autr Résolu

Question

Bonjour,

Je recherche le moyen de copier une liste de valeurs (un tableau en fait) d'une feuille de mon classeur excel dans une autre feuille du même classeur.

J'arrive très simplement à copier le contenu d'une case mais pas tout un ensemple. Donc, a part l'utilisation d'une boucle de copie (qui s'avérerait être bien lourd dans le programme), existe-t-il un moyen de faire une selection d'ensemble?

Je vous montre comment je tente de procéder :


    [...]
    Sheets("EnjeuxTechnos").Select
        
    Range((deb,51):(fin,51)).Select => Je sais, j'ai du rêver en croyant que ça allait marcher... :(
    Selection.Copy

    Sheets("Feuil1").Select
    Range("A1").Select
    ActiveSheet.Paste

starnours · Answer

J'ai oublié de préciser, je ne peux pas faire une selection du  genre A1:B5 car les dimensions de mon tableau sont variables et elles sont définies en temps que telles dans mon programme. Il faudrait donc que j'arrive à les utiliser pour ma selection.

Par, exemple, si j'ai x1,y1 et x2,y2 les 4 variables qui définissent l'emplacement de mon tableau, comment faire ma selection?

starnours · Answer

oula, ça descend très vite! up

starnours · Answer

up!

lermite222 · Answer

bonjour,
Dim debL As Long, DebCol As Long, FinL As Long, FinC As Long
debL = 5 'de ligne 5
debC = 1 'de colonne A
FinL = 13 'à ligne 13
FinC = 5 ' à colonne E

Sheets("Feuil1").Range(Cells(debL, debC), Cells(FinL, FinC)).Copy _
Destination:=Sheets("feuil2").Range("A1")
Faut bien sûr que tu adapte les valeurs et les noms de feuilles
C'est quelque chose comme cela que tu cherche ?
A+

starnours · Answer

Merci, j'venais de trouver ca justement à l'instant! 
Sujet clos!

[VBA] copie liste valeur d'1 feuil à 1 autr

5 réponses

Discussions similaires

Newsletters