Exporter une plage de cellules en fonction d'une date

Bonjour à toutes et à tous,

Première visite sur ce forum pour moi car j'ai un problème.

Je m'explique :

Il se trouve qu'en Feuil1 du fichier joint, j'ai un tableau bilan.

En Feuil2 j'ai sur la cellule E8 une date que je peux modifier à souhait. Pour l'exemple j'ai mis "novembre-08".

J'ai essayé de réaliser un code pour que lorsque je clic sur le bouton "Bilan" qui se trouve en Feuil1, soient copiées-collées les données des colonnes A, E, H et J vers la Feuil2!A11 seulement si il y a un lien entre Feuil2!$E$8 et les valeurs indiquées sur le plage Feuil1!$M20:$M.

Pas facile de décrire le pb...Donc je joins un fichier (https://www.excel-pratique.com/~files/doc/EwmKyClasseur1.zip)

Je n'y arrive plus du tout et m'arrache les cheveux.

Votre aide serait donc la bienvenue !!!

Merci d'avance.

Gsh

Bonsoir,

Ton lien ne marche pas !

regarde en haut https://www.excel-pratique.com/~files/index.php

Joindre un fichier

Claude

Bonjour

Gsh, les () sont en trop sur ton lien.

https://www.excel-pratique.com/~files/doc/EwmKyClasseur1.zip

Cordialement

dubois a écrit :

Bonsoir,

Ton lien ne marche pas !

regarde en haut https://www.excel-pratique.com/~files/index.php

Joindre un fichier

Claude

Merci Claude,

c'est bizarre j'arrive pourtant à l'ouvrir.

Je mets donc un nouveau lien :

https://www.excel-pratique.com/~files/doc/Gshtest.zip

en espérant que cela fonctionne.

merci.

Bonsoir,

Bonsoir, maguet et claude

un évènement de feuille, plus un filtre élaboré

regarde le fichier joint

Le simple fait de changer la date, tes données sont mises à jour

Le code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$8" Then
Range("A11:D5000").Borders.LineStyle = xlNone
With Sheets("Feuil1")
    .Range("A1:L" & .[A65000].End(xlUp).Row).Name = "base"
    .Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "I1:I2"), CopyToRange:=Range("A10:D10"), Unique:=False
End With
End If
End Sub

le fichier :

https://www.excel-pratique.com/~files/doc/gsh_v1.xls

Bonsoir a tous !

je m'y prends un peu tard, mais je n'ai pas eu le temps de revenir sur le forum depuis la semaine dernière.

Bref, merci de ta réponse Félix, ton idée est meilleure que celle que j'avais en tête.

Par contre, je me pose différentes questions :

1°- Est ce que je suis "obligé" de garder les données inscrites en Feuil2 cellules I1:J10 ?

En fait je souhaiterais qu'elles soient sur une autre Feuille et non à proximité du tableau. Est ce que cela va perturber le code ?

2°- J'ai remarqué qqchose de particulier car lorsque je suis sur Feuil1 et que je clique sur Insertion\Nom\définir, je m'aperçoit qu'il y a un nom "base" qui apparait.

Lorsque je suis sur Feuil2 et que je fais la même manip, j'ai "base", "Criteres" et "Extraction".

Est ce que cela a une importance ? Si oui comment faut-il faire pour obtenir ce rendu ?

Enfin, pourquoi avoir nommé Extraction et Criteres alors qu'ils ne sont pas rappelés par le Code VBA ?

En attendant d'être éclairé... Bonne fin d'apres midi

Gsh