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

Jacky67

XLDnaute Barbatruc

• 27 Août 2017

• #2

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

 

Dernière édition: 27 Août 2017

Vote positif 0 Vote négatif

karybou

XLDnaute Occasionnel

• 27 Août 2017

• #3

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.

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 27 Août 2017

• #4

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

 

Vote positif 0 Vote négatif

karybou

XLDnaute Occasionnel

• 27 Août 2017

• #5

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

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 27 Août 2017

• #6

karybou à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

karybou

XLDnaute Occasionnel

• 27 Août 2017

• #7

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.

 

Pièces jointes

• Resultat_filtre_date.xlsx

  17.1 KB · Affichages: 30

Vote positif 0 Vote négatif

karybou

XLDnaute Occasionnel

• 27 Août 2017

• #8

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.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 27 Août 2017

• #9

Bonjour à toutes et à tous,

Une autre suggestion en pièce jointe.

A bientôt

 

Pièces jointes

• 00 - karybou - Filtrer.xlsm

  29.9 KB · Affichages: 43

Vote positif 0 Vote négatif

karybou

XLDnaute Occasionnel

• 27 Août 2017

• #10

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.

 

Vote positif 0 Vote négatif

karybou

XLDnaute Occasionnel

• 27 Septembre 2017

• #11

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.

 

Pièces jointes

• 00 - karybou - Filtrer.xlsm

  29.9 KB · Affichages: 27

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 27 Septembre 2017

• #12

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

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

 

Vote positif 0 Vote négatif

karybou

XLDnaute Occasionnel

• 27 Septembre 2017

• #13

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

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 27 Septembre 2017

• #14

karybou à dit:

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

Cliquez pour agrandir...

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

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
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

 

Vote positif 0 Vote négatif

karybou

XLDnaute Occasionnel

• 27 Septembre 2017

• #15

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

 

Vote positif 0 Vote négatif