Discussion :

[HABILER]

Bonjour la communauté,

Quelqu'un pourrait-il me venir en aide ?



Ceci est le résultat d'une formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=FILTER(CHOOSE({1\2\3\4\5\6};grades_FullDen!J:J;grades_FullDen!F:F;grades_FullDen!G:G;grades_FullDen!A:A;grades_FullDen!H:H;grades_FullDen!I:I);grades_FullDen!B:B =A4)

Voici la formule que j'essaie et qui me signale une array vide. GrdVsFct!E4 (Activesheeet) correspondant à grades_FullDen!A:A dans le sheet grades_FullDen :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=FILTER(CHOOSE({1\2\3};SPX_GOV_HR_VIEW[DG];SPX_GOV_HR_VIEW[Fonctions.FCT_FR];SPX_GOV_HR_VIEW[DG]);SPX_GOV_HR_VIEW[GRADECDORD] = GrdVsFct!E4)

En résumé je voudrais récupérér la ou les valeurs de grades_FullDen!A:A et effectuer un filtre sur ces/cette valeur.
Faut-il passer par VBA pour cela?

Merci pour votre collaboration.

Habiler

[deedolith]

Salut,

Selon la façon dont tu as organisé tes données, une solution Power Query peut être envisageable.
Peux-tu poster un classeur avec des données exemple ?

[HABILER]

Bonjour
Je ne parviens pas à diminuer le volune.
Mon fichier a été lavé de la majotité de tables et les queries.
J'en suis tj à 9000K et 7000 zippé. Je n'ai que 3 feuilles avec peu de données. Peut$être dans le data model mais ne trouve plus le moyen d'y accéder

Habiler

[Raccourcix]

Bonjour

Est ce que la formule suivante renvoie des données ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=FILTER(SPX_GOV_HR_VIEW;SPX_GOV_HR_VIEW[GRADECDORD] = GrdVsFct!E4)

?

sinon pour renvoyer les colonnes 2, 8 et 15 de la table filtrée vous avez CHOISIRCOLS (CHOOSECOLS en anglais)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=FILTRE(CHOISIRCOLS(SPX_GOV_HR_VIEW;2;8;15);SPX_GOV_HR_VIEW[GRADECDORD] = GrdVsFct!E4)

et pour éviter le CHOISIR vous avez maintenant ASSEMB.H (HSTACK en anglais)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FILTRE(ASSEMB.H(Col2;Col8;Col15);ColTest="Test")

Stéphane

[HABILER]

La formule me donne une erreur #CALC!.
Pour excel la cellule E4 est vide
Les deux fonctions (HSTACK et CHOOSECOLS) ne sont pas encore disponible sur la version (professionnelle donc pas libre de la màj) que j'utilise.
Dans un des essais précédents j'avais trouver la solution mais ne parviens pas à la retrouver.

[HABILER]

Bonjour,

jJ'ai remplacé la formule avec la fonction filtre par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
    Sheets("Grades_FullDen").Range("A1:AM200").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("GrdVsFct").Range("A4:A5"), _
        CopyToRange:=Range("GrdVsFct!Extract"), Unique:=False
End Sub

Cela fonctionne/

Mais je voudrais que lorsque la cellule A5 change le code ci dessus s'adapte par la même occcasion. J'ai donc modifié le code mais rien ne se passe.

Je ne vois pas ou se trouve le problème ?
Pouvez-vous m'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then
    Sheets("Grades_FullDen").Range("A1:AM200").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("GrdVsFct").Range("A4:A5"), _
        CopyToRange:=Range("GrdVsFct!Extract"), Unique:=False
        End If
End Sub

[HABILER]

Voilà j'ai réecrit mes codes pour en arriver au code ci-dessous.
Maintenant il me donne une erreur 1004 - Select method of range class Failed.
Je cherche à filtrer dans la plage results du sheet "GrdVsFct" toutes les données du sheet "test" correpondant aux valeurs reprise dans la plage criteria du sheet "GrdVsFct"
Maintenant il me donne une erreur 1004 - Select method of range class Failed au niveau de "wsData.Range("T1:V2000").Select"
criteria = "=GrdVsFct!$C$4:$C$11"
results = "=GrdVsFct!$I$13:$W$32"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub ftt()
Dim wsData As Worksheet
Set wsData = ThisWorkbook.Worksheets("test")
wsData.Range("T1:V2000").Select
 
'Apply the filter to the data:
 
wsData.Range("T1:V2000").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("criteria"), _
CopyToRange:=Range("results"), _
Unique:=True
 
ActiveSheet.Range("criteria").ClearContents
ActiveSheet.Range("results").ClearContents
 
End Sub

[Franc]

Slt, tu peux avoir cette erreur si la feuille que tu .select n'est pas la feuille active. Ajoute wsData.Activate avant la ligne .select

[HABILER]

Bonjour à tous,

Mon code ci-dessous fonctionne mais il m'affiche toutes les colonnes du Sheet "fonction alors que je ne voudrais l'affichage que de la 1er, 3eme et 4eme col.
Est-ce possible avec cette formule?

Mon soucis est également que dans une autre sheet je voudrais la même formule (adaptée) mais avec criteriaRange les cellules[B3b4:b6)]
Dans ce dernier cas mon but est de chercher dans un sheet "grades" tous les grades répondant aux critères (B4:B6) et les copier dans ThisWorkbook.Worksheets("GrdVsFct"). La colonne de critère étant C2:c200.

Merci d'avance

Habiler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub copyIDsQF()
 
    ThisWorkbook.Worksheets("GrdVsFct").Range("B7").ClearContents
 
 
         ThisWorkbook.Worksheets("Fonctions").[c1].CurrentRegion.AdvancedFilter _
         Action:=xlFilterCopy, _
         CopyToRange:=[B10], _
         CriteriaRange:=[A1:A2]
 
   ' ThisWorkbook.Worksheets("GrdVsFct").Range("B8").Delete Shift:=xlShiftUp
 
End Sub

[Philippe Tulliez]

Bonjour,

Mon code ci-dessous fonctionne mais il m'affiche toutes les colonnes du Sheet "fonction alors que je ne voudrais l'affichage que de la 1er, 3eme et 4eme col.

Il faut que l'argument CopyToRange contienne la plage de cellules à copier avec comme valeur le titre des colonnes.

Pour en savoir, je vous invite à lire mon tutoriel sur ce sujet Les filtres avancés ou élaborés dans Excel et tout particulièrement le chapitre VII-B. Exportation partielle des données filtrées