[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

A voir également:

[VBA] copie liste valeur d'1 feuil à 1 autr
Liste déroulante excel - Guide
Copie cachée - Guide
Copie écran samsung - Guide
Annuaire inversé gratuit liste rouge - Forum Mobile
Copie disque dur - Guide

5 réponses

Réponse 1 / 5

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?

Réponse 2 / 5

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

Réponse 3 / 5

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!

Réponse 4 / 5

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
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+

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

Posez votre question

Réponse 5 / 5

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!

Discussions similaires

lien copié

Comment retrouver des lien copier sur sont téléphone

Excel VBA : Récupérer la valeur d'une cellule

appliquer une pause dans une macro vba excel

"L'indice n'appartient à la sélection" + VBA

Discussions similaires

Newsletters