Discussion :

[lanainejulie]

Bonjour,

J'ai besoin de votre aide.
Je dispose d'une liste d'utilisateurs associés à une catégorie (sur une première feuille) :
CAT A TOTO
CAT B TUTU
CAT C TOTO
Je dispose d'une seconde feuille reprenenant ces utilisateurs en colonne A, et ces catégories en ligne 1 de chaque colonne (à partir de B):
CAT A CAT B CAT C
TOTO
TUTU
Je souhaiterais une macro qui analyse sur la feuille 1 et reporte sur la feuille 2. Je souhaiterais que cette macro passe en revue chaque ligne de la feuille 1 et reporte la catégorie correspondante sur la feuille 2 sur la ligne au nom de l'utilisateur :
feuille 1 : si TOTO est dans CAT A alors reporté sur la feuille 2 un X sur la ligne TOTO colonne CAT A
Un utilisateur peut faire partie de plusieurs catégories à la fois, dans ce cas il faudra reporter un X pour chaque catégorie de l'utilisateur.

En espérant avoir été assez claire,

Merci de votre aide,
Ju

[Nicopilami]

Salut
prenons l'exemple suivant qui répondra à tes attentes :

la feuille "ListeUtilisateurs"

utilisateur	            categorie
toto1	                   A
toto2	                   B
toto1	                   B
toto1	                   C
toto2	                   B
toto3	                   A
toto1	                   A
toto2	                   F
toto3	                   C
toto2	                   E
toto4	                   E
toto3	                   A

la feuille "synthese" :

   	                     A	                   B	                   C	                   D	                   E	                   F
toto1	
toto2	
toto3	
toto4	
toto5	
toto6	
toto7	
toto8	

le code suivant fera l'affaire :

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
38
39
40
41
42
43
44
Sub tt()
    Dim tt As Range
    Dim dico
    Set dico = CreateObject("Scripting.Dictionary")
    rowID = 1
    UserName = 1
    While (UserName <> "")
        UserName = Sheets("ListeUtilisateurs").Cells(rowID, 1)
        Category = Sheets("ListeUtilisateurs").Cells(rowID, 2) & ";"
 
        rowID = rowID + 1
        If UserName <> "" Then
            If Not dico.exists(UserName) Then
                dico.Add UserName, Category
            Else
                dico(UserName) = dico(UserName) & Category
            End If
        End If
        t = 0
 
    Wend
 
    lastRowOfSynthese = Sheets("synthese").Cells(.Rows.Count, "A").End(xlUp).Row
    lastColumnOfSynthese = Sheets("synthese").Cells(1, .Columns.Count).End(xlToLeft).Column
 
    For rowID = 2 To lastRowOfSynthese
        UserName = Sheets("synthese").Cells(rowID, 1)
 
        For colID = 2 To lastColumnOfSynthese
            categoryToFind = Sheets("synthese").Cells(1, colID) & ";"
            If dico.exists(UserName) Then
                If InStr(dico(UserName), categoryToFind) > 0 Then
                    Sheets("synthese").Cells(rowID, colID) = "X"
                Else
                    Sheets("synthese").Cells(rowID, colID) = "'-"
                End If
            Else
                Sheets("synthese").Cells(rowID, colID) = "'-"
            End If
        Next
    Next
 
 
End Sub

et donnera :

	A	B	C	D	E	F
toto1	X	X	X	-	-	-
toto2	-	X	-	-	X	X
toto3	X	-	X	-	-	-
toto4	-	-	-	-	X	-
toto5	-	-	-	-	-	-
toto6	-	-	-	-	-	-
toto7	-	-	-	-	-	-
toto8	-	-	-	-	-	-

++
Nico