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

Résolu/Fermé
starnours Messages postés 48 Date d'inscription vendredi 26 octobre 2007 Statut Membre Dernière intervention 27 juillet 2009 - 6 juin 2008 à 11:17
starnours Messages postés 48 Date d'inscription vendredi 26 octobre 2007 Statut Membre Dernière intervention 27 juillet 2009 - 9 juin 2008 à 09:53
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

5 réponses

starnours Messages postés 48 Date d'inscription vendredi 26 octobre 2007 Statut Membre Dernière intervention 27 juillet 2009 4
6 juin 2008 à 11:22
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?
0
starnours Messages postés 48 Date d'inscription vendredi 26 octobre 2007 Statut Membre Dernière intervention 27 juillet 2009 4
6 juin 2008 à 13:33
oula, ça descend très vite! up
0
starnours Messages postés 48 Date d'inscription vendredi 26 octobre 2007 Statut Membre Dernière intervention 27 juillet 2009 4
9 juin 2008 à 09:36
up!
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 194
9 juin 2008 à 09:48
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+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
starnours Messages postés 48 Date d'inscription vendredi 26 octobre 2007 Statut Membre Dernière intervention 27 juillet 2009 4
9 juin 2008 à 09:53
Merci, j'venais de trouver ca justement à l'instant!
Sujet clos!
0