XL 2013 filtre avancé

  • Initiateur de la discussion Initiateur de la discussion Appo1985
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Solution
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 ?
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...
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 ?
J'ai changé de tableau. Et j'ai trouvé la réponse.
Je voudrais avec la même Macro insérer la formule au niveau de Masculin féminin et total
 
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 ?
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 ligne];[Féminin]]"
    Application.ScreenUpdating = False
    On Error Resume Next
    [Tableau3].ListObject.DataBodyRange.Delete
    [Tableau3].Item(1, 2).FormulaLocal = F1
    [Tableau3].Item(1, 3).FormulaLocal = F2
    [Tableau3].Item(1, 4).FormulaLocal = F3
    T = [Tableau2]
    Range("Tableau3[Ecole]").Resize(UBound(T, 1)) = Application.Index(T, , 4)
    ActiveSheet.ListObjects("Tableau3").DataBodyRange.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
NB: J'ai supposé votre XL en français.
 

Pièces jointes

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 ligne];[Féminin]]"
    Application.ScreenUpdating = False
    On Error Resume Next
    [Tableau3].ListObject.DataBodyRange.Delete
    [Tableau3].Item(1, 2).FormulaLocal = F1
    [Tableau3].Item(1, 3).FormulaLocal = F2
    [Tableau3].Item(1, 4).FormulaLocal = F3
    T = [Tableau2]
    Range("Tableau3[Ecole]").Resize(UBound(T, 1)) = Application.Index(T, , 4)
    ActiveSheet.ListObjects("Tableau3").DataBodyRange.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
NB: J'ai supposé votre XL en français.
Grandement merci. C'est exactement ce que je voulais.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Doublons
Réponses
7
Affichages
65
  • Question Question
Microsoft 365 gestion de stock
Réponses
4
Affichages
158
Retour