Discussion :

[Mapokko]

Bonjour,
J'ai un classeur ,dans une feuille j'ai la base des données ( N° matricule, N° d'ordre, classe, NOM, Date de naissance ,Scolarité.....etc.Sur ma 2eme feuille je veux avoir une feuille de notes. comportant les colonnes suivantes N° d'ordre, NOM .mais comme ma feuille de donnée comportent plusieurs classes 3/1,3/2,3/3,2/1,2/2,.....je veux que lorsque dans ma 2eme feuille dans une cellule qlq je met le nom de la classe par ex: 3/1 excel me donne seulement les élèves appartenant à cette classe .De ce fais je vous demande de m'indiqué la formule nécéssaire pour résoudre mon problème
Merci beaucoup

Mon exemple de feuille des bases de donnees:
N°matricule N°d'ordre classe Nom date de naissance
1/09 1 3/1 AJBERT 14/01/1994
2/09 2 3/1 MICHEL 12/05/1995
15/08 1 3/2 SARA 26/12/1995
7/07 1 3/3 CHRISTINE 14/05/1994
12/09 3 3/1 JEAN 25/01/1994
14/08 2 3/2 CLAUDE 14/06/1995
12/08 1 3/4 CHRISTIEN 11/11/1995

sur la 2eme feuille je veux obtenir ça

CLASSE: 3/1

N° matricule N°d'ordre classe Nom date de naissance

c.à.d on introduisant une classe dans dans la cellule ex: 3/1 excel me donne la liste entière de cette classe avec toutes les donnés .

[JackOuYA]

tu pourrai t'intéresser au tableaux croisé dynamique il devrai te permettre de faire ce que tu veux sans code .

[Maxence HUBICHE]

Ou plus simple encore...
Tu cliques dans ton tableau, tu fais :
Données/Filter/Filtre automatique

Et sur le bouton à droite de Classe, tu choisis ta classe.

C'est fait.

[Mapokko]

Ou plus simple encore...
Tu cliques dans ton tableau, tu fais :
Données/Filter/Filtre automatique

Et sur le bouton à droite de Classe, tu choisis ta classe.

C'est fait.

Je veux que sa ce fait d'une façon automatique.on inscivant seulement la formule convenable

[JackOuYA]

bonjour "Mapokko" , tu pourrai être plus clair sur ce que "tu veux" , que ne te donne pas un tableau croisée dynamique où un filtre automatique ..?

pourquoi bricoler une macro VBA, alors qu'excel te donne en standard tout ce que tu veux ..?

c'est quand même plus simple de sélectionner une classe dans une liste que de taper son nom ?


si tu tiens à faire ton code , on peu t'aider mais il va falloir être plus explicite .. le

Je veux que sa ce fait d'une façon automatique.on inscivant seulement la formule convenable

c'est pas trop compréhemsible.

Dans la plus par des cas une formule , ne renvoi qu'un seul résultat, pas toute une liste ....

pose mieux le probléme en nous disant ce que doit faire le code.

[SilkyRoad]

bonjour


Tu peux également utiliser les fonctions INDEX et EQUIV.
IV-B-3. Lister toutes les occurrences contenant une chaîne particulière

(dans l'exemple joint, la colonne A de la Feuil2 est masquée)


bonne journée
michel

[Mapokko]

Merci. c'est ce que je cherche Bravo Bonne journée

[pgz]

Bonjour.

Une solution VBA.
Dans la "Feuil1", le tableau complet des éléves, avec une colonne nommée classe (ie "Classe" est écrit dans la cellule de la 1ère ligne de cette colonne". EN fait mettre en 1ère ligne tous les titres de colonnes : N0 matricule (si jeunes!), ...
Dans la "Feuil2", en C1 est écrit "Classe". C2 sera la zone de saisie du nom de la classe à afficher.
Le code : dans le module de "Feuil2":

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
If (Target.Address = "$C$2") And Not IsEmpty(Target.Value) Then
    With Application.ThisWorkbook
        .Sheets("Feuil2").Rows(3).ClearContents
        .Sheets("Feuil1").UsedRange.AdvancedFilter xlFilterCopy, .Sheets("Feuil2").Range("C1:C2"), .Sheets("Feuil2").Range("A3")
    End With
End If
 
End Sub

La liste filtrée s'affiche à partir de la ligne A3, avec les titres de colonnes.
Ne connaissant rien d'autre de cette appli, c'est une solution...

Cordialement,

PGZ

[Mapokko]

ça fonctionne bien ,mais je veux que dans ma feuil2 apparaissent seulement les colonnes suivantes : N° d'ordre et Nom

[Ayana]

Bon, on a vu sur le tchat.

Je pense que cela correspond à ce que tu veux.


Le code est pas super style, mais au moins ça marche

[Ayana]

Encore une fois, suite à notre discussion sur le tchat :
(pour les experts, je sais que mon code n'est pas beau, mais il marche )

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim x, y As Integer
 
If (Target.Address = "$Q$2") And Not IsEmpty(Target.Value) Then
    With Application.ThisWorkbook
        .Sheets("Feuil2").Range("D6:E65000").ClearContents
 
        x = 6
        y = 6
 
        While (Sheets("Feuil1").Range("C" & x) <> "")
            If Sheets("Feuil1").Range("B" & x).Value = Sheets("Feuil2").Range("Q2").Value Then
                Sheets("Feuil2").Range("D" & y).Value = Sheets("Feuil1").Range("C" & x).Value
                Sheets("Feuil2").Range("E" & y).Value = Sheets("Feuil1").Range("D" & x).Value
                y = y + 1
            End If
 
            x = x + 1
        Wend
 
    End With
 
End If
 
z = 6
While (Sheets("Feuil2").Range("D" & z) <> "")
    z = z + 1
Wend
 
Sheets("Feuil2").Select
Range("D6:E" & z).Select
 
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
End Sub