[EXCEL] Sortir une liste d'un TCD
Aurelien
-
Aurelien -
Aurelien -
Bonjour tout le monde,
Je me trouve face a un leger probleme dans Excel 2003. J'ai une liste d'utilisateurs et leurs applications installées.
par exemple:
NOM Prenom == Applications
AAA Aaa ==== App1
BBB Bbb ==== App1
BBB Bbb ==== App2
CCC Ccc ==== App1
CCC Ccc ==== App3
CCC Ccc ==== App4
Je voudrais ressortir, sur une seconde feuille, la liste des utilisateurs ayant l'application 1, 2, 3 ou 4.
Le choix de l'application s'effectue par une cellule (liste deroulante) sur la feuille ou sera la liste.
Il faudrait que la liste se mette a jour des que le nom de l'application change dans la cellule de reference.
Personnelemnt j'ai essayé diverses methodes, mais aucune ne convient (j'arrive eventuellement a sortir le premier nom, mais pas les autres). J'ai aussi essayé avec un Tableau Croisé Dynamique, mais a partir de la, je n'arrive pas a sortir la liste...
Voila, en esperant que quelqu'un aura des pistes a me donner!
Je me trouve face a un leger probleme dans Excel 2003. J'ai une liste d'utilisateurs et leurs applications installées.
par exemple:
NOM Prenom == Applications
AAA Aaa ==== App1
BBB Bbb ==== App1
BBB Bbb ==== App2
CCC Ccc ==== App1
CCC Ccc ==== App3
CCC Ccc ==== App4
Je voudrais ressortir, sur une seconde feuille, la liste des utilisateurs ayant l'application 1, 2, 3 ou 4.
Le choix de l'application s'effectue par une cellule (liste deroulante) sur la feuille ou sera la liste.
Il faudrait que la liste se mette a jour des que le nom de l'application change dans la cellule de reference.
Personnelemnt j'ai essayé diverses methodes, mais aucune ne convient (j'arrive eventuellement a sortir le premier nom, mais pas les autres). J'ai aussi essayé avec un Tableau Croisé Dynamique, mais a partir de la, je n'arrive pas a sortir la liste...
Voila, en esperant que quelqu'un aura des pistes a me donner!
A voir également:
- [EXCEL] Sortir une liste d'un TCD
- Liste déroulante excel - Guide
- Tcd excel - Guide
- Excel liste déroulante en cascade - Guide
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
4 réponses
bonjour
si j'ai bien compris ta demande, avec tes données en feuil1,
ta liste applications, la cellule choix et le résultat en feuil2,
cela peut se faire avec la macro suivante à mettre dans la feuil2
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.Address = "$B$2" Then ' si la cellule de choix est en B2
Dim i As Integer, l As Integer
Cells(2, 4).Resize(Cells(65256, 4).End(xlUp).Row, 3).ClearContents
i = 2 ' les résultats sont en ligne 2 et suivantes, colonnes D et E (4,5)
For l = 2 To Worksheets("feuil1").Cells(65256, 1).End(xlUp).Row
If Worksheets("feuil1").Cells(l, 3).Value = sel.Value Then
Cells(i, 4).Value = Worksheets("feuil1").Cells(l, 1).Value
Cells(i, 5).Value = Worksheets("feuil1").Cells(l, 2).Value
i = i + 1
End If
Next l
End If
End Sub
tu as le classeur de test à cette adresse :
https://www.cjoint.com/?iqxP6kyCMa
merci de nous tenir au courant du résultat
si j'ai bien compris ta demande, avec tes données en feuil1,
ta liste applications, la cellule choix et le résultat en feuil2,
cela peut se faire avec la macro suivante à mettre dans la feuil2
Private Sub Worksheet_Change(ByVal sel As Range)
If sel.Address = "$B$2" Then ' si la cellule de choix est en B2
Dim i As Integer, l As Integer
Cells(2, 4).Resize(Cells(65256, 4).End(xlUp).Row, 3).ClearContents
i = 2 ' les résultats sont en ligne 2 et suivantes, colonnes D et E (4,5)
For l = 2 To Worksheets("feuil1").Cells(65256, 1).End(xlUp).Row
If Worksheets("feuil1").Cells(l, 3).Value = sel.Value Then
Cells(i, 4).Value = Worksheets("feuil1").Cells(l, 1).Value
Cells(i, 5).Value = Worksheets("feuil1").Cells(l, 2).Value
i = i + 1
End If
Next l
End If
End Sub
tu as le classeur de test à cette adresse :
https://www.cjoint.com/?iqxP6kyCMa
merci de nous tenir au courant du résultat
ok, merci beaucoup!
Le code donne exactement le resultat que j'attendais (j'ai eu un peu de mal a comprendre ce que ca faisait, mais je me suis fait aider un peu).
Le fichier joint est bien fait, me reste plus qu'a transférer tout ca dans mon fichier, en changeant les references...
Encore merci a toi! ^^
Le code donne exactement le resultat que j'attendais (j'ai eu un peu de mal a comprendre ce que ca faisait, mais je me suis fait aider un peu).
Le fichier joint est bien fait, me reste plus qu'a transférer tout ca dans mon fichier, en changeant les references...
Encore merci a toi! ^^
Bon, je viens de rentrer de vacances, j'avais fait les modif sur le fichier avant de partir et c'est tout bon!
Mes collegues ont commencé a exploiter le fichier et a le remplir petit a petit...
Encore merci a toi pour cette macro, j'aurais pas pu y arriver tout seul!
@+
PS: Je crois qu'on peut clore le sujet! ;)
Mes collegues ont commencé a exploiter le fichier et a le remplir petit a petit...
Encore merci a toi pour cette macro, j'aurais pas pu y arriver tout seul!
@+
PS: Je crois qu'on peut clore le sujet! ;)
