Discussion :

[zapataem]

Bonjour à toutes et à tous!

Je suis débutante en VBA, et je rame complet depuis plusieurs jours sur un petit problème.
Voilà en fait dans mon fichier excel j'ai deux onglets : "Feuil1" et "Feuil2".

Sur ma Feuil2, j'ai un tableau comportant 13 colonnes, dans lequel je peux filtrer les données à afficher. Dans ma Feuil1 je voudrais qu'apparaissent seulement les données visibles dans le tableau, donc les données filtrées.

Plus précisément : sur ma Feuil1, je voudrais insérer, à partir de la ligne 4, les données des colonnes E à M des lignes qui sont visibles dans le tableau de ma Feuil2...
En fait il faudrait insérer les lignes, et non pas seulement copier les données, pour que les données en dessous ne soient pas écrasées.

Je ne suis pas sûr que ça soit très clair...
Voilà le fichier excel :
selectionbdd_tests.xlsx

Merci d'avance!

[graphikris]

as tu essayé les filtres élaborés ?
Pour cela, evite sur la feuille 2 la ligne 1 production. Toutes tes entetes devront etre en ligne 1 donc tu mettras Produc1 puis Produc2 etc...

Tuto ici : http://philippetulliez.developpez.co...dvancedfilter/

[RyuAutodidacte]

Bonsoir,

tu peux t'inspirer de ce post http://www.developpez.net/forums/d15...te-autofilter/ pour faire ton code
Tout est en VBA aussi bien pour le filtre que la copie
Cela demandera de mettre les mains dans le cambouis mais peut être formateur (les gens du forum sont là si tu as un soucis dans le code que tu auras fait)

Après la réponse de @graphikris est plus accessible niveau débutant

[zapataem]

Ah non je ne connaissais pas du tout! Très intéressant ce tuto merci beaucoup!

Par contre j'ai essayé d'exporter mes données vers la feuille 1 avec VBA, mais je ne comprends pas pourquoi ça m'exporte tout, sans rien filtrer... Même si j'ai bien choisi mes critères... Bizarre... (sans VBA, en passant par Données>Trier et filtrer>Avancé j'ai bien réussi sans problème)

Le code que j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
 
Sub Export()
  Sheets("Feuil2").Range("A1:M35").AdvancedFilter _
         Action:=xlFilterCopy, _
         CriteriaRange:=Sheets("Feuil1").Range("A1:E3"), _
         CopyToRange:=Sheets("Feuil1").Range("A6:I6"), _
         Unique:=False
End Sub

Sinon, à la base je voulais insérer les lignes exportées, plutôt que les coller... Sauf que par la suite, pour utiliser les données exportées, ça risque d'être compliqué si la plage n'est pas fixe... Bref je crois que je vais abandonner cette idée là.

Je n'ai pas encore lu le lien que tu as envoyé RyuAutodidacte, je le ferai demain, et si ça se trouve justement j'aurais un déclic pour résoudre mon petit problème de code!

Merci beaucoup et bonne soirée!