XL 2019 diviser automatiquement, un tableau Excel en 2, en fonction du critère H / F

[DomL]

Bonjour

Je reviens vers le Forum, car incapable de trouver sur les Tuto une réponse simple à mon problème



J'ai : 1 tableau Excel avec toutes les données de personnes : poste, matricule, âge, nom, prénom, etc ..... et sexe : H/F


Comment d'une manière simple et automatique, serait-il de réaliser 2 tableaux distinct :
- 1 tableau des Postes, avec que les Femmes
- 1 tableau des Poste, avec que le Hommes


J'ai chercher : extraire, séparer, scinder, filtres avancés ... toutes les terminologies possibles ... mais je suis pas un pro d'Excel !


Si quelqu'un avait une solution simple
Merci d'avance

Dominique

 

[djidji59430]

Bonjour à tous,

J'ai : 1 tableau Excel avec toutes les données de personnes : poste, matricule, âge, nom, prénom, etc ..... et sexe : H/F

Oui, il est ou dans ton fichier avec des erreurs ?

Crdlmt

 

[DomL]

mon probleme est dans le fichier : 5 5​

Mais depuis ce matin, j'ai avancé : mais débutant, j'apprends des TUTOS et FORUM

Je re bloque sur : Comment réappliquer automatiquement le filtre automatique lorsque les données changent dans Excel?


J'ai mis en place 2 solutions dans des documents brouillons ... mais cela ne fonctionne pas !

5 5 1
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sheet3").AutoFilter.ApplyFilter
End Sub

5 5 2
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A521").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("A1:C3"), Unique:=False
End Sub



Serais-tu m'aider ?

 

[fanch55]

mon probleme est dans le fichier : 5 5​

Concerne le post :

XL 2019 - Comment réappliquer automatiquement le filtre automatique lorsque les données changent dans Excel?

Débutant, j'apprends des TUTOS et FORUM Aujourd'hui, je bloque sur : Comment réappliquer automatiquement le filtre automatique lorsque les données changent dans Excel? J'ai mis en place 2 solutions dans des documents brouillons ... mais cela ne fonctionne pas ! 5 5 1 Private Sub...

excel-downloads.com

 

[djidji59430]

Bonjour à tous,

une solution Power Query
actualiser les tableaux quand le tableau source change

 

[TooFatBoy]

Bonjour,

Comme dit sur le fil originel, à mon avis, point n'est besoin de dupliquer les données, mais je peux évidemment me tromper.

Y as-tu regarder le fichier de #19 ?

 

[DomL]

Je ne comprends pas #19 !
Ou serait ce fichier ?



Merci à tous et à djidji59430 pour Power Query


Mais, je jette ''l'éponge'' pour aujourd'hui, après 48h non stop, je ne comprend plus rien



Je suis débutant et je n'ai que quelques bases basiques

J'explique, ce que je n'arrive pas à réaliser
et
pourtant la solution est là !

Le premier onglet : est le départ des données (Hommes Femmes et vide)

Dans les onglets H, F, Vide, j'ai besoin d'isoler :
- H, les Hommes tout seul
- F , les Femmes tout seul
- Vide, les vides tout seul

Mais surtout, que : quand les données changent dans le premier onglet en fonction du sexe ; les autres onglets se mettent à jours ... automatiquement


Seriez vous me dire, au final, si c'est réalisable ?


Cette fonction devrait pouvoir aboutir à la solution :
Comment réappliquer automatiquement le filtre automatique lorsque les données changent dans Excel?


Mais je n'arrive pas à la mettre place !

Merci pour ceux qui auraient encore la force de m'aider

 

[TooFatBoy]

Je ne comprends pas #19 !
Ou serait ce fichier ?

La réponse #19 de l'autre fil de discussion.

 

[fanch55]

Si vous prenez la solution PowerQuery de @djidji59430 ,
Pour actualiser ces requêtes, mettez le code spécifique ci-dessous dans le module ThisWorkBook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    For Each N In Array("Homme", "Femme")
        If Sh.Name = Worksheets(N).Name Then
            Sh.ListObjects(1).QueryTable.Refresh
        End If
    Next
End Sub

ou en mode bestial pour tout le classeur:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ActiveWorkbook.RefreshAll
End Sub

ou pour ne le faire que si la source change vraiment ,
code à placer dans celui de la feuille (R) ListePostesDirectionsCéline

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [Tableau1]) Is Nothing _
    Then ActiveWorkbook.RefreshAll
End Sub

 

[TooFatBoy]

Concerne le post :

XL 2019 - Comment réappliquer automatiquement le filtre automatique lorsque les données changent dans Excel?

Débutant, j'apprends des TUTOS et FORUM Aujourd'hui, je bloque sur : Comment réappliquer automatiquement le filtre automatique lorsque les données changent dans Excel? J'ai mis en place 2 solutions dans des documents brouillons ... mais cela ne fonctionne pas ! 5 5 1 Private Sub...

excel-downloads.com

Et concerne aussi le post :

XL 2013 - Créer des tableaux sépares en fonction du critère H/F

Bonjour Je reviens vers le Forum, car incapable de trouver sur les Tuto une réponse simple à mon problème J'ai : 1 tableau Excel avec toutes les données d'une personne : poste, matricule, âge, nom, prénom, etc ..... et sexe : H/F Comment d'une manière simple est il possible de réaliser 3...

excel-downloads.com

dans lequel on fini par apprendre :

Les données du premier onglet : sont trier par H/F et vide

Que je rapatrie sur, l'onglet : Age

Pour pouvoir calculer, les tranches d'âge (et tout le reste)

C'est pourquoi dans le premier des trois fils j'ai répondu que la recopie des données est inutile pour faire ces calculs et j'ai proposé un fichier, mais je n'ai eu aucune réponse jusque là.

---

Je ne comprends pas #19 !
Ou serait ce fichier ?

Vu que tu ne l'as visiblement pas trouvé, je te le remets ici.

 

[DomL]

Je ne suis plus devant l ordi

Promis, je regarde demain des mon réveil

Je croise les doigts pour : LA SOLUTION

 

[TooFatBoy]

Je ne suis plus devant l ordi
Promis, je regarde demain des mon réveil

OK

Je croise les doigts pour : LA SOLUTION

Je ne dis pas que c'est LA solution, je dis juste que c'est une proposition.
Mais comme j'ai bossé dessus pour la pondre, j'aimerais savoir si ça te convient ou pas.

 

[DomL]

Je viens de regarder sur mon téléphone portable

Je viens de comprendre, que vous m'avez trouver une solution

Mais sur mon téléphone, il s'affiche, que des :
#VALUE!

Je reviens vers toi demain à la première heure

Merci

 

[TooFatBoy]

Mais sur mon téléphone, il s'affiche, que des :
#VALUE!

Chez moi il n'y a aucun #VALUE! à part ceux que tu as créés dans tes tableaux.

Pour que tu y vois plus clair, j'ai pondu une nouvelle version (avec les mêmes formules) dans laquelle j'ai simplement supprimé tout ce qui est inutile dans ta feuille Age.

 

[DomL]

Bonjour TooFatBoy

Avant tout :
- toutes mes excuses, pour ne pas avoir vu le Fichier hier ...
- après 48h, de recherche quasi non-stop, j'étais épuisé
- ... cela m'aurait éviter de ''mouliner'' en plus, toute la journée de hier

- milliards de Merci, pour votre empathie
- vous avez bien apporté LA SOLUTION
- au delà de mes espérances
- c'est celle que j'imaginais, mais je n'ayant pas vos connaissance / compétence ...
c'est pour cela, qu'après les TUTO, je me suis tourné vers le FORUM


Si vous m'autorisiez, je souhaiterai apprendre, comprendre : (par avance, merci)
- la formule
et
- baser les calculs, plutôt sur : =DATEDIF(F28;AUJOURDHUI();"Y")
(c'est l'attente finale !)



Que dois-je comprendre :

1) =SOMMEPROD(('(R)_Céline'!$AV$2:$AV$10<>"")*'(R)_Céline'!$AU$2:$AU$10>MOIS.DECALER(AUJOURDHUI();-240)))

- SOMMEPROD je comprends pas


- (('(R)_Céline'!$AV$2:$AV$10<>"") je comprends pas


- * je comprends pas


- ('(R)_Céline'!$AU$2:$AU$10>MOIS.DECALER je comprends pas


- (AUJOURDHUI();-240)))
- je comprends / =(AUJOURDHUI()-D30)/365
serait-il possible de calculer avec :
=DATEDIF(F28;AUJOURDHUI();"Y")


- -240 je comprends pas



2) =SOMMEPROD(('(R)_Céline'!$AV$2:$AV$10="2")*'(R)_Céline'!$AU$2:$AU$10>MOIS.DECALER(AUJOURDHUI();-240)))
- ="2" - je comprends : Femme
- ="1" - je comprends : Homme



3) =SOMMEPROD(('(R)_Céline'!$AV$2:$AV$10<>"")*'(R)_Céline'!$AU$2:$AU$10>MOIS.DECALER(AUJOURDHUI();-360))*('(R)_Céline'!$AU$2:$AU$10<=MOIS.DECALER(AUJOURDHUI();-240)))

- -360 / -240 je comprends pas

- - 480 / -360 je comprends pas


4) =NB.SI('(R)_Céline'!AV2:AV10;"")
- "" je comprends : si vide


5) =(C8*AUJOURDHUI()-SOMME('(R)_Céline'!$AU$2:$AU$10))/365,25
- je comprends / =(AUJOURDHUI()-D30)/365

serait-il possible de calculer avec :
=DATEDIF(F28;AUJOURDHUI();"Y")