Copier tel ou tel tableau

[fenec]

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 :

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

 

[Yaloo]

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

 

[fenec]

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 :

Rows(DLigColV & ":" & Rows.Count).EntireRow.Delete

Soit

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

 

[Yaloo]

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

 

[fenec]

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

 

[Yaloo]

Re : Copier tel ou tel tableau

Bonjour Fenec,

Voici le fichier avec les lignes d'aide, je n'ai pas inséré d'aide dans les lignes que tu avais créées 😉

A+

Martial

 

[fenec]

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

ElseIf Col > 4 Then

et dans v1.1 avec explications

ElseIf Col > 10 Then

A+

Philippe

 

[Yaloo]

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