Macro vba excel: copier une plage de données

nath94lp Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
nath94lp Messages postés 2 Date d'inscription Statut Membre Dernière intervention - 12 mai 2009 à 14:07

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

Afficher la suite

2 réponses

Réponse 1 / 2

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
hich24 Messages postés 1686 Statut Membre 753

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
5
1. nath94lp Messages postés 2 Date d'inscription Statut Membre Dernière intervention
  
  super Merci beaucoup
  
  0
Réponse 2 / 2
hich24 Messages postés 1686 Statut Membre 753

il suffit de mettre les nom en variable dans dux cellule que tu renseigne
0
1. nath94lp
  
  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
  
  0
  1. hich24 Messages postés 1686 Statut Membre 753 > nath94lp
    
    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
    
    0
  2. nath94lp > hich24 Messages postés 1686 Statut Membre
    
    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?.
    
    0
  3. hich24 Messages postés 1686 Statut Membre 753 > nath94lp
    
    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
    
    0
  4. nath94lp > hich24 Messages postés 1686 Statut Membre
    
    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.
    
    0

Macro vba excel: copier une plage de données

2 réponses

Discussions similaires

Newsletters