Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 filtre avancé

A

Appo1985

XLDnaute Occasionnel
bonjour à tous.
je voudrais dans le tableau qui se trouve sur la feuille résultat extraire la liste des écoles (tableau de la feuille bdd)
pour pouvoir remplir les autres colonnes .
merci par avance.
ci-joint le fichier:
 

Pièces jointes

  • tableau recapitulatif.xlsm
    99.3 KB · Affichages: 7
Solution
Appo1985 à dit:
Est -ce le code qui insère les formules ou doit -je mètre les formules au niveau de la première ligne en laissant la première colonne si c'est un nouveau fichier ?
Cliquez pour agrandir...
Une nouvelle version. Les formules s'insèrent automatiquement.
Il suffit sur un nouveau fichier de changer les indices des deux tableaux ( Tableau2 et Tableau3 ), en fonction des indices des nouveaux tableaux.
VB: 
Sub Worksheet_Activate()
'Sur un nouveau fichier changez les N° 2 et 3 des tableaux
    F1 = "=NB.SI.ENS(Tableau2[Ecole];Tableau3[[#Cette ligne];[Ecole]];Tableau2[Sexe];""M"";Tableau2[Moyenne];"">=5"")"
    F2 = "=NB.SI.ENS(Tableau2[Ecole];Tableau3[[#Cette ligne];[Ecole]];Tableau2[Sexe];""F"";Tableau2[Moyenne];"">=5"")"
    F3 = "=Tableau3[[#Cette ligne];[Masculin]]+Tableau3[[#Cette...
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Appo,
Un essai en PJ avec :
VB: 
Ecole :
=SIERREUR(INDEX(Tableau2[Ecole];PETITE.VALEUR(SI(FREQUENCE(SI(Tableau2[Ecole]<>"";EQUIV(Tableau2[Ecole];Tableau2[Ecole];0)); LIGNE(Tableau2[Ecole])-LIGNE(bdd!$D$4)+1);LIGNE(Tableau2[Ecole])-LIGNE(bdd!$D$4)+1);LIGNES(resultat!$C$8:C8)));"")
( à valider par Maj+Ctrl+Entrée car matricielle )
Masculin :
=NB.SI.ENS(Tableau2[Ecole];Tableau3[[#Cette ligne];[Ecole]];Tableau2[Sexe];"M";Tableau2[Moyenne];">=5")
Feminin :
=NB.SI.ENS(Tableau2[Ecole];Tableau3[[#Cette ligne];[Ecole]];Tableau2[Sexe];"F";Tableau2[Moyenne];">=5")
 

Pièces jointes

  • tableau recapitulatif.xlsm
    39.7 KB · Affichages: 6
Vote positif 0 Vote négatif
A

Appo1985

XLDnaute Occasionnel
C'est exactement ce que je voudrais. Grandement merci
 
Vote positif 0 Vote négatif
A

Appo1985

XLDnaute Occasionnel
J'ai une question.
J'ai essayé mais il faut a partir de la première ligne tirer la formule pour avoir la liste de toutes les écoles.
Comme il n'y pas de limite de nombre d'écoles n'y t'il pas un moyen pour remplir la première colonne automatique quand on actuellement le tableau bdd?
 
Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc
Inactif
Bonjour,
Sans formules, mais en utilisant un Tableau Croisé Dynamique, tu obtiens les résultats voulus
Regarde le fichier joint
Bon W-E
 

Pièces jointes

  • tableau recapitulatif_TCD.xlsm
    43.8 KB · Affichages: 3
Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc
Inactif
Re-,
Annule pour le TS, il est déjà créé, et se nomme Tableau2
Pour le TCD, tu cliques dans la cellule A3 (par exemple), et tu fais "Insertion/Tableau croisé dynamique"
Tu choisis l'endroit pour le placer, et tu places les filtres ainsi :


Puis tu fais le filtre pour la moyenne :
Tu cliques sur le filtre Etiquettes de lignes, et juste dessous, tu sélectionne "Moyenne"

Et tu mets un filtre s'appliquant aux étiquettes, "Supérieur ou égal à.." tu mets 5

Une fois fait, pour masquer les moyennes, tu fais un clic droit sur la première école, "Développer/Réduire", "Réduire le champ entier"



Et voilà
Bon courage
 
Dernière édition:
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Appo1985 à dit:
Comme il n'y pas de limite de nombre d'écoles n'y t'il pas un moyen pour remplir la première colonne automatique quand on actuellement le tableau bdd?
Cliquez pour agrandir...
Un essai en PJ avec :
VB: 
Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    On Error Resume Next
    [Tableau3].ListObject.DataBodyRange.Delete
    T = [Tableau2]
    Range("Tableau3[Ecole]").Resize(UBound(T, 1)) = Application.Index(T, , 4)
    ActiveSheet.ListObjects("Tableau3").DataBodyRange.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
Les colonnes 2,3,4 conservent les formules.
La mise à jour est automatique en sélectionnant la feuille "resultat".
 

Pièces jointes

  • tableau recapitulatif(V2).xlsm
    43.3 KB · Affichages: 3
Vote positif 0 Vote négatif
A

Appo1985

XLDnaute Occasionnel
Bonsoir . Merci bien .
ce que je voudrais c'est effectivement ça. Pour que l'utilisateur qui ne maîtrise pas excel puisse avoir le résultat.
Est -ce le code qui insère les formules ou doit -je mètre les formules au niveau de la première ligne en laissant la première colonne si c'est un nouveau fichier ?
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

A
  • Résolu(e)
XL 2013 Calculer seulement les cellules visibles
Réponses
6
Affichages
442
Appo1985
A
D
  • Résolu(e)
Microsoft 365 Filtre avancé VBA multi-critères
Réponses
14
Affichages
432
DELHOMME
D
A
  • Question
XL 2019 Filtre avancé + Colonnes spécifiques (VBA)
Réponses
9
Affichages
709
Amilo
A
A
  • Résolu(e)
XL 2013 Enregistrement du fichier en plusieurs exemplaires selon une liste
Réponses
5
Affichages
544
Appo1985
A
V
  • Question
Microsoft 365 VBA - Filtre avancé avec TCD
2
Réponses
16
Affichages
646
nat54
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
524
NONO14
N
A
  • Question
Microsoft 365 Annuler Segment
Réponses
5
Affichages
391
C'est papy Mougeot !
T
  • Question
Autres Bouton pour remise à zéro des données
Réponses
6
Affichages
197
testeur44
T
A
  • Résolu(e)
XL 2013 Filtre critères choisi dans combobox
2 3
Réponses
34
Affichages
2 K
Appo1985
A
  • Résolu(e)
Microsoft 365 fonction filtre ne se met pas à jour
2
Réponses
25
Affichages
818
Efgé
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…