High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Macro vba excel: copier une plage de données

Dernière réponse le 12 mai 2009 à 14:28:17 nath94lp, le 11 mai 2009 à 18:20:37 
 Signaler ce message aux modérateurs

Bonjour,
Est-il possible de créer une macro VBA sous Excel qui donne l'instruction de copier une plage de données (avec nombre de lignes et de colonnes variables selon les fichiers)?
Je débute, j'ai trouvé un exemple de macro pour copier avec un nombre de lignes variables mais avec un nombre de colonnes fixes. Merci de votre aide

Configuration: Windows XP Internet Explorer 7.0

Posez votre question Répondre

1

hich24, le 11 mai 2009 à 18:38:40

Il suffit de mettre les nom en variable dans dux cellule que tu renseigne

   
Répondre à hich24

2

nath94lp, le 12 mai 2009 à 09:19:52

Merci mais je ne vois pas trop comment faire. Aujourd'hui, ma macro est:
Dim derlig As Long

derlig = Range("A65536").End(xlUp).Row
Range(Cells(1 + 1, 1), Cells(derlig - 1, 10)).Copy

pour un tableau de 10 colonnes (je commence à la deuxième ligne et je ne veux pas prendre la dernière qui est une ligne de total).
Merci d'avance

   
Répondre à nath94lp

3

hich24, le 12 mai 2009 à 09:55:42
  • +4

Dim derlig As Long
Dim x As Long
derlig = Range("A65536").End(xlUp).Row
x = Range("iv2").End(xlToLeft).Column
Range(Cells(2, 1), Cells(derlig - 1, x)).copy

   
Répondre à hich24

4

nath94lp, le 12 mai 2009 à 10:15:30

Super, merci beaucoup.
Je vais abuser mais j'ai encore une question. J'ai affecté cette macro à un bouton mais est-ce que je peux l'utiliser dans d'autres feuilles de calcul?.

   
Répondre à nath94lp

5

hich24, le 12 mai 2009 à 11:10:12

1-- si mes message en peut vous etre utiles alors voter pour aider simplifier la recherche ( le petit carrée vert )
2- oui c'est possible a une condition d'ajouter une instruction

sheets("nom de lafeuille ").select , nom de lka feuille est celui de la feuille ou se trouve le tableau

   
Répondre à hich24

6

nath94lp, le 12 mai 2009 à 12:38:04

Quand je lance la macro par le bouton sur un autre ficher, cela me dit: erreur d'éxécution '9' l'indice n'appartient pas à la sélection. Si je fais fin, par contre, cela marche parfaitement.

Ma macro est:
Dim derlig As Long
Dim x As Long
derlig = Range("A65536").End(xlUp).Row
x = Range("iv2").End(xlToLeft).Column
Range(Cells(2, 1), Cells(derlig - 1, x)).Copy
sheets("macro").Select

"macro" est le nom de la feuille.

   
Répondre à nath94lp

7

hich24, le 12 mai 2009 à 13:13:06
  • +1

Le button doit etre sur la feuille qui contien les donnée a copyée , sinon pour mettre le button sur une autre feuille il faut ajouter la phrase en gras


sheets("mafeuille").select
Dim derlig As Long
Dim x As Long
derlig = Range("A65536").End(xlUp).Row
x = Range("iv2").End(xlToLeft).Column
Range(Cells(2, 1), Cells(derlig - 1, x)).Copy

   
Répondre à hich24

8

 nath94lp, le 12 mai 2009 à 14:07:29

Super Merci beaucoup

   
Répondre à nath94lp
Posez votre question Répondre
Ils ont besoin de votre aide