XL 2010 (RESOLU) Résultat du filtre sélectionné

[karybou]

Bonjour le forum,
Je viens vous soumettre un problème dont malheureusement je ne trouve pas seul la solution et ceci malgré les différentes discussion qui existent sur le sujet.
Je sollicite votre aide pour pouvoir afficher dans une cellule (f1) le résultat d'un filtre. Celui-ci peut être activé sur les colonnes A, J ou bien L.
Pour ce qui est de la colonne L, c'est une date d'échéance. Ressortir les lignes dont la date est par exemple le 01.03.18
Je vous joins mon fichier pour plus de compréhension et vous remercie infiniment pour l'aide que vous pourriez m'apporter.
Bon dimanche à tous.
Cordialement.
K.

 

[Jacky67]

Bonjour,
Quel type de report doit être reporté dans la cellule F1 ??
Si c'est le nombre de cellules concernées par le filtre alors:
=SOUS.TOTAL(103;A:A)-2

 

[karybou]

Bonjour Jacky67, le forum,
Merci déjà pour ta réponse.
En fait c'est vraiment le résultat qu'il me faut reporté, style NomPrénom1 pour une sélection sur la colonne A (un seul nom sélectionné à la fois) et pour ce qui est de la colonne J (ABC) idem c'est la selection de la personne qui suit le dossier.
Et enfin pour la date, ce serait de dire : sortir les échéances à telle date....
Est-ce possible ainsi.
Mille mercis.
Cordialement.
K.

 

[Jacky67]

Re..
Je ne comprends pas.
Que doit afficher F1 pour ton exemple à la date d'échéance du '01/03/18' et 'nomprénom6'
3 lignes sont concernées par ce filtre

 

[karybou]

hello,
Quand la sélection est activée sur la date, j'aimerai pouvoir afficher la date et le texte : "A traiter au 31.03.18" par exemple. Mais peut-être cela n'est pas pratique ?
Merci

 

[Jacky67]

hello,
Quand la sélection est activée sur la date, j'aimerai pouvoir afficher la date et le texte : "A traiter au 31.03.18" par exemple. Mais peut-être cela n'est pas pratique ?
Merci

Re..
???
Quand la sélection est activée sur la date
Quelle sélection ?
Comment cela doit-il fonctionner dans la vraie vie ?
Répond à ma question #4 stp

 

[karybou]

Re Jacky,
Désolé de ne pas expliquer correctement. Voici le fichier avec le filtre activé en colonne de date et l'affichage souhaité. Bien entendu si c'est possible....
Merci.

 

[karybou]

Hello Nicole,
Merci de ta réponse.
C'est exactement ce que je recherche et vais tenter de l'adapter à mon fichier.
Mille mercis.
Belle fin de journée.
Cordialement
K.

 

[DoubleZero]

Bonjour à toutes et à tous,

Une autre suggestion en pièce jointe.

A bientôt

 

[karybou]

Hello DoubleZero,
C'est absolument génial. Cela fonctionne super bien.
Surtout que j'essayais désespérément d'adapter le fichier envoyé par Nicole.
Mille mercis et bon fin de dimanche.
Bien cordialement
K.

 

[karybou]

Hello DoubleZero, le forum,
Je reviens à nouveau avec mon fichier des filtres et résultats qui fonctionne super bien. Encore merci beaucoup pour ton aide.
A l'usage je me rends compte que certaines colonnes ne me sont pas nécessaires dans l'onglet "résultat". Peut-on seulement faire remonter le résultat filtré des colonnes :
A - Nom-Prénom / B - Date événement / C - Qui / F- Détail
Encore un grand merci pour l'aide.
Belle journée à toi, à tous.
Bien cordialement
K.

 

[Jacky67]

Bonjour,
A défaut de DoubleZero
Essaye avec ce code

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.Clear
Range("a1") = Sheets("JOURNAL").Range("g1")
Range("a2") = Sheets("JOURNAL").Range("f1")
Sheets("JOURNAL").Range("a2:m100000").AdvancedFilter Action:=xlFilterCopy, _
  CriteriaRange:=Range("a1:a2"), CopyToRange:=Range("a4"), Unique:=False
With Cells: .Interior.ColorIndex = xlNone: .Font.ColorIndex = 1: .WrapText = False: End With
Range("a4").CurrentRegion.Borders.Value = 1
[g:m].Delete: [d:e].Delete
Columns.AutoFit
Application.ScreenUpdating = True
End Sub

 

[karybou]

Hello Jacky67,
Merci beaucoup pour ta réponse c'est juste extra, ça marche.
A ton avis est-il possible de pré-formater la page résultat pour que la colonne "détail" (F) puisse s'afficher avec un format "renvoyer à la ligne automatiquement" car cette colonne est assez remplie et l'affichage est tronqué sur la page et donc il faut la reprendre. Et également de mettre en avant les critère de recherche qui se retrouvent en A1 et A2 (format gras, police 14....)
Mille mercis encore pour l'aide apportée.
Bien cordialement.
Karin

 

[Jacky67]

Hello Jacky67,
Merci beaucoup pour ta réponse c'est juste extra, ça marche.
A ton avis est-il possible de pré-formater la page résultat pour que la colonne "détail" (F) puisse s'afficher avec un format "renvoyer à la ligne automatiquement" car cette colonne est assez remplie et l'affichage est tronqué sur la page et donc il faut la reprendre. Et également de mettre en avant les critère de recherche qui se retrouvent en A1 et A2 (format gras, police 14....)
Mille mercis encore pour l'aide apportée.
Bien cordialement.
Karin

Remplace le code par celui-ci et tester
La largeur(25) par défaut est à adapter

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.Clear
Range("a1") = Sheets("JOURNAL").Range("g1")
Range("a2") = Sheets("JOURNAL").Range("f1")
Sheets("JOURNAL").Range("a2:m100000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("a1:a2"), CopyToRange:=Range("a4"), Unique:=False
With Cells: .Interior.ColorIndex = xlNone: .Font.ColorIndex = 1: .WrapText = False: End With
Range("a4").CurrentRegion.Borders.Value = 1
[g:m].Delete: [d:e].Delete
With [a1:a2].Font: .Size = 14: .Bold = True:  End With
'25=Largeur de la colonne **A adapter
With [d:d]: .WrapText = True: .ColumnWidth = 25: .EntireRow.AutoFit: End With
Application.ScreenUpdating = True
End Sub

 

[karybou]

Hello Jacky67,
Tu es juste excellent. MERCI ça marche super bien.
Très belle fin de journée à toi, tous.
Bien cordialement
K.