Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier tel ou tel tableau

  • Initiateur de la discussion Initiateur de la discussion fenec
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fenec

XLDnaute Impliqué
Bonjour le forum

Dans une feuille j’ai deux tableaux que je souhaite archiver, mon problème est que je ne parviens pas à les archiver indépendamment l’un de l’autre.

J’ai grâce à l’aide de recherche et du forum su adapter ma zone d’impression pour chaque tableau mais pour la zone à copier la je bloque.

Je n’ai trouvé que :
Code:
ActiveSheet.Copy
Mais cela me copie toute la feuille

Vous joint un fichier simplifié ainsi que des imprimes écrans de ce que j’obtiens

Cordialement

Fenec
 

Pièces jointes

  • Essai.xls
    Essai.xls
    174.5 KB · Affichages: 34
  • Tableau 1.jpg
    73 KB · Affichages: 35
  • Tableau 2.jpg
    73 KB · Affichages: 35
  • Essai.xls
    Essai.xls
    174.5 KB · Affichages: 32
  • Tableau 1.jpg
    73 KB · Affichages: 36
  • Tableau 2.jpg
    73 KB · Affichages: 38
  • Essai.xls
    Essai.xls
    174.5 KB · Affichages: 30
  • Tableau 1.jpg
    73 KB · Affichages: 34
  • Tableau 2.jpg
    73 KB · Affichages: 35
Re : Copier tel ou tel tableau

Bonjour fenec,

Au début, le fait de copier l'onglet ne me paraissait pas très judicieux, donc j'ai fait une macro (en module3, Essai V2.xls), permettant de copier les données dans un nouveau classeur, le problème c'est que les hauteurs de lignes ne sont pas reprises.

Donc, j'ai repris ta macro et l'ai modifiée suivant tes besoins. J'y ai apporté qq modifs, permettant de n'avoir qu'une seule macro générale avec 2 autres rattachées aux boutons, cela permet de donner le N° de la colonne voulue, comme ça s'il y a une modification à faire on ne l'a fait que dans la macro générale et non pas dans toutes les macros.

Je te joins, quand même, les 2 fichiers.

A te relire

Martial
 

Pièces jointes

Dernière édition:
Re : Copier tel ou tel tableau

Bonsoir le forum, Yaloo

Déjà merci de t’intéresser à mon problème et aux solutions apportées.

Dans Essai V2 :
Mis à part la hauteur des lignes qui ne sont pas reprises comme tu le signales
Pourquoi le chemin d’enregistrement est différent entre les deux macros ?

Pour Essai V1 :
Pour la ligne « 44 »manquante j’ai rajouté +1 à la ligne :
Code:
Rows(DLigColV & ":" & Rows.Count).EntireRow.Delete
Soit
Code:
Rows(DLigColV + 1  & ":" & Rows.Count).EntireRow.Delete

Pour le reste j’essaie de comprendre tes modifications mais j’avoue que des explications me seraient utiles car je ne comprends pas :

Comment tu associes les macros

Ni,

Pourquoi il y a 19 pages à l’impression

A te relire

Philippe
 
Re : Copier tel ou tel tableau

Bonsoir fenec,

Pour la V2, le chemin n'est pas le même car lorsque l'on copie les données, on a pas la première ligne vide ni la première colonne. Les données sont mises directement en A1 et non en B2.

Pour la V1, je te mettrai les explications demain.

Je n'ai pas compris les 19 pages à l'impression, avec l'aperçu avant impression, pour la V2 il n'y a qu'une page, pour la V1 il y avait 2 pages. C'est corrigé dans la V1.1

A+

Martial
 

Pièces jointes

Re : Copier tel ou tel tableau

Bonjour le forum, Yaloo

Merci pour la correction, je vais en attendant tes explications essayer d'appliquer la V1 à mon classeur final

Cordialement

Philippe
 
Re : Copier tel ou tel tableau

Bonjour le forum,Yaloo

Merci pour ces explications une petite question si tu permets:

Pourquoi écris tu dans v1.1
Code:
ElseIf Col > 4 Then

et dans v1.1 avec explications
Code:
ElseIf Col > 10 Then

A+

Philippe
 
Re : Copier tel ou tel tableau

Bonsoir Philippe,

Dans la 1ere version, j'avais 2 conditions : If Col < 10 then et plus loin ElseIf Col > 4 then ce n'était pas très cohérent. C'est pour ça que j'ai rectifié dans la seconde pour avoir If Col < 10 then et plus loin ElseIf Col > 10 then

A+

Martial
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
Réponses
13
Affichages
1 K
Nath641
N
C
Réponses
1
Affichages
2 K
Christou
C
A
Réponses
9
Affichages
1 K
ArielD27
A
T
Réponses
1
Affichages
7 K
Y
Réponses
5
Affichages
2 K
yasminajm
Y
C
Réponses
11
Affichages
4 K
A
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…