XL pour MAC Extraire les données d'un tableau en fonction du choix de l'année

R@chid

XLDnaute Barbatruc

Supporter XLD

• 24 Novembre 2023

• #2

Bonjour,
en C40 :

VB:

=SIERREUR(INDEX(donnees!$A$2:$E$23;PETITE.VALEUR(SI(ANNEE(donnees!$A$2:$A$23)=$A$2;LIGNE(INDIRECT("1:"&LIGNES(donnees!$A$2:$A$23))));LIGNES($40:40));COLONNES($C:C)+(COLONNES($C:C)>3));"")

@ valider par Ctrl+Maj+Entrée
@ tirer vers le bas et vers la droite

Cordialement,

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 24 Novembre 2023

• #3

Bonjour @pilou010
Edit Bonjour @R@chid

Je te propose ce fichier

Merci de ton retour

 

Pièces jointes

• Copie Filtre par date V1.xlsm

  25.1 KB · Affichages: 6

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 26 Novembre 2023

• #4

Bonjour et bon dimanche à tous !
Je suis toujours dans la construction de mon tableau avec les résultats que je glane ICI. Merci de votre aide.
Dans l'exemple que j'ai joint, j'ai oublier de préciser que je souhaites en plus du choix de l'année, n'afficher que les travaux de la colonne OPERATIONS.
Et j'ai un réel souci dans la mise en application des formules que vous me donnez car je fais un petit fichier exemple mais lorsque je j'applique à mon fichier final cela ne fonctionne pas directement. Les noms plages etc. ne correspondent pas toujours et là je rentre en galère pour décortiquer la formule afin qu'elle fonctionne.
Actuellement j'essaie de mettre en application la formule de R@chid.
En revanche la solution en vba de Phil69970 est top mais comme je ne maitrise pas le langage j'ai du mal à la mettre en application sur mon fichier final. J'ai bien aimé le "Alors c'est quoi ce BINZZZZ...... !!!"
Merci en tous cas de votre aide très précieuse.
Cdt
Pilou

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 26 Novembre 2023

• #5

@pilou010

Quelques remarques quand je lis ceci :

pilou010 à dit:

mais comme je ne maitrise pas le langage j'ai du mal à la mettre en application sur mon fichier final.

Cliquez pour agrandir...

Pourquoi on demande un fichier au demandeur ?
C'est pas pour le fun ou se faire plaisir bien sur !

Un fichier représentatif permet d'avoir des réponses plus pertinentes

Mais c'est quoi représentatif ?

- représentatif, même organisation des lignes et des colonnes, mêmes libellés, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ... remplacé par Nom1, Nom2 etc ....
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables (Avec le résultat souhaité éventuellement)

Si cela fonctionne sur le fichier fourni et pas sur le vrai fichier c'est qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller du code.

Donc si ton fichier est représentatif alors la transposition de mon fichier vers ton fichier n'est qu'un simple copié/collé de mon code vers ton fichier. ==> moins de 1 minute et ton fichier fonctionne

Rappel comment ouvrir l'onglet developpeur

https://www.google.com/search?client=firefox-b-d&q=activer+onglet+developpeur+

ou autrement sur ma version d'excel ...



Puis coller LA TOTALITE de mon code ici


Bonne lecture

Edit :
J'ai pas compris ce que tu veux récupérer exactement explique et montre par l'exemple ....
Est ce que ma solution te va ?

 

Dernière édition: 26 Novembre 2023

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 26 Novembre 2023

• #6

Re,
Effectivement Phil69970 ta réflexion est très pertinente... En voulant joindre un fichier anonymiser je ne reproduis pas exactement la structure et ensuite comme je ne maitrise pas les formules et le vba je galère. Donc en suivant tes conseils je joins un fichier représentatif
Merci de tes conseils et aide.
Je vais retenir pour les prochaines demandes...

 

Pièces jointes

• pilou2.xlsm

  45 KB · Affichages: 3

Dernière édition: 26 Novembre 2023

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Novembre 2023

• #7

Bonjour @pilou010

Je confirme

pilou010 à dit:

En voulant joindre un fichier anonymiser je ne reproduis pas exactement la structure

Cliquez pour agrandir...

Le fichier du post #1 n'a pas grand chose à voir avec celui du post #6 même si tu as l'impression qu'il se ressemble.....

Il ne ressemble pas à Alain Delon mais Alain Deloin

Je te propose la V2
J'ai mis des commentaires dans le code VBA

Merci de ton retour

 

Pièces jointes

• Copie Filtre par date V2.xlsm

  36.8 KB · Affichages: 12

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 27 Novembre 2023

• #8

Bonjour,
Merci Phil69970 pour ce nouveau fichier. Pourrais-tu, STP, regarder car j'ai une erreur lorsque je change le choix de la date :
Si je clique sur fin les données s'affichent bien en tous cas
Merci

 

Dernière édition: 27 Novembre 2023

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Novembre 2023

• #9

@pilou010

Chez moi cela fonctionne voir la vidéo



Re-télécharge mon fichier du post #7

 

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 27 Novembre 2023

• #10

@Phil69970
Je suis sous Mac c'est peut-être pour cela?
Si je clique sur Déboguer voilà la ligne en jaune (qui doit ne pas fonctionné ou différemment sous Mac ?)

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Novembre 2023

• #11

Re

Remplace la ligne en jaune par

Range("tbl_fildonnees").AutoFilter ' Suppression des filtres

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 27 Novembre 2023

• #12

Message suite modif

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Novembre 2023

• #13

Re

Et sur quelle ligne de code ? ==>toujours la même ?
As tu remplacé la ligne comme demandé au post# 11 ?

 

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 27 Novembre 2023

• #14

oui sur cette ligne : Range("tbl_fildonnees").AutoFilter ' Suppression des filtres

 

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 27 Novembre 2023

• #15

OUI la même

 

Vote positif 0 Vote négatif