[EXCEL] Sortir une liste d'un TCD

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!

4 réponses

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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
    1
  2. Aurelien
     
    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! ^^
    0
    1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      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.

      @+
      0
  3. Aurelien
     
    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! ;)
    0
  4. Aurelien
     
    ... Personne n'aurait une idée, alors!
    -1