Discussion :

[francois78]

Bonjour

Ma macro exécute une routine dont une partie consiste à copier / coller des données

1. A partir d'un tableau classique (t1), la macro filtre sur un critère (un secteur géographique N)
2. Copie les données de (t1)
3. Colle les données dans un tableau structurée (t2)
4. Suite de la macro...

La routine s'exécute au temps de fois qu'il y a de secteur géographique.

Si mon tableau (t1) contient 1000 lignes,après le filtre du secteur géographique, il n'en reste que 300 lignes
La macro copie les 300 lignes et les colle dans le tableau (t2).

Mais je m'aperçois que c'est très long, le fameux copier/coller (plusieurs minutes, voir dizaines de minutes, juste pour ces 2 transactions, surtout le coller)

Avez-vous des idées pour simplifier ou améliorer le temps de travail?

Merci d'avance pour vos conseils !
A bientôt

[QuestVba]

Bonjour,
Pourrais-tu nous montrer le code que tu utilises actuellement ? Ce sera d'autant plus facile pour t'aider.
NB : il existe un Forum dédié Macro et VBA Excel.

[halaster08]

Mais je m'aperçois que c'est très long, le fameux copier/coller (plusieurs minutes, voir dizaines de minutes, juste pour ces 2 transactions, surtout le coller)

As-tu des formules dans ton tableau, si oui il tu peux bloquer le recalcul automatique (application.calculation= ? "xlmanual" a remettre a "automatic" à la fin, vérifie les valeurs des constantes, je n'en suis pas bien sur)

[francois78]

Hello

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$1:$AR$" & DernLigne).AutoFilter Field:=4, Criteria1:=REGION
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:AR" & DernLigne).Select
Selection.Copy
Workbooks(REGION & "" & ".xlsx").Activate
Sheets("Table").Select
Range("A2").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

En fait, mon vrai problème est le suivant :
Lorsque je sélectionne ma zone filtrée, copie et colle les données, je constate que les valeurs filtrées sont bien collées, mais aussi des lignes vides (qui correspond à la différence entre le nbre de ligne filtré et le nbre de ligne du tableau )

Exemple :

• Le tableau fait 1000 lignes.
• J'obtiens 300 lignes après le filtre
• Je colle 300 lignes de données
• et 700 lignes vides insérées

Et comme c'est collé dans un tableau structuré, cela ajoute des lignes automatiquement et fausse les calculs in fine.

C'est cette ligne qui pose problème, enfin je crois.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Cela compte l'ensemble des lignes du tableau, y compris si c'est filtré.

J'ai testé différentes méthodes de comptage disponibles ici mais ca change pas grand chose

J'ai essayé une autre méthode mais le coller est très long.

J'imagine plusieurs solutions :

1. Savoir copier uniquement les valeurs sélectionnées
2. Supprimer les lignes vides dans le tableau structuré après le collé
3. Ou...

J'espère que cela est plus claire....

[Menhir]

Commence par supprimer les Select et Activate, ça ira plus vite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$1:$AR$" & DernLigne).AutoFilter Field:=4, Criteria1:=REGION
Range("A2:AR" & DernLigne).Copy
Workbooks(REGION & "" & ".xlsx").Sheets("Table").Range("A2").PasteSpecial Paste:=xlPasteValues, _
   Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Cela dit, le Range de ton Copy ne tiendra pas compte du filtre activé juste avant puisque tu ne précises pas que tu ne références que les lignes visible.
Pour ça, il faudrait que tu ajoutes un SpecialCells(xlCellTypeVisible) entre le Range et le Copy.
Lire ça : https://msdn.microsoft.com/fr-fr/lib...7(v=office.15)

[halaster08]

Je te conseille la lecture de ce tuto sur les filtres avancés: https://philippetulliez.developpez.c...dvancedfilter/
Avec les filtres avancés tu peux copier le résultat du filtre sur une autre feuille

[francois78]

Chers Amis

Désolé pour ce message tardif, mais je n'avais pu remettre les mains dans le cambouis avant aujourd'hui.

J'avoue que le SpecialCells(xlCellTypeVisible) proposé par Menhir est TOP. Ca fonctionne bien.
J'ai aussi apprécié le cours de Philippe Tulliez mis en avant par Halaster08. Je ne connaissais pas et je trouve cela très intéressant et cela donne beaucoup d'idées.


Merci à tous pour vos conseils et à bientôt !