VIVEZ LE
FOOTBALL !
Posez votre question Signaler

[EXCEL] Sortir une liste d'un TCD

Aurelien - Dernière réponse le 29 août 2006 à 11:15
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!
Lire la suite 

[EXCEL] Sortir une liste d'un TCD »

5 réponses
Réponse
+1
moins plus
gbinforme 7555Messages postés 18 octobre 2004Date d'inscription 14 mai 2012Dernière intervention 16 août 2006 à 23:43
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 :
http://cjoint.com/?iqxP6kyCMa

merci de nous tenir au courant du résultat

Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
Aurelien 18 août 2006 à 09:27
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! ^^

 Ajouter un commentaire
gbinforme- 23 août 2006 à 18:46
bonjour Aurelien,

Merci pour ce compte rendu car cela fait toujours plaisir
de voir que l'aide a été utile et c'est bien de le commenter
comme tu l'as fait pour voir comment améliorer.

@+
Ajouter un commentaire
Réponse
+0
moins plus
Aurelien 29 août 2006 à 11:15
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! ;)

 Ajouter un commentaire
Ajouter un commentaire
Réponse
-1
moins plus
Aurelien 16 août 2006 à 11:42
... Personne n'aurait une idée, alors!

 Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « [EXCEL] Sortir une liste d'un TCD » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?