Macro de recherche multi critères

**xxoc62** · 05/12/2013, 18h50

Bonjour à tous,

Je ne serais pas étonné que le sujet ai déjà été traité, mais après 4 heures de recherche je rends les armes et j'en m'en remet à vous.

Voila mon problème :

Je souhaite faire obtenir les valeur OUI ou NON dans une cellule selon 2 critères, l'un dans la colonne A et le second dans la Ligne 1.

On m'a filé une feuille dans laquelle j'ai plusieurs fois la même personne (donc sur plusieurs lignes) car elle à plusieurs "affectations"

NOM	AFFECTATION
Nom 1	Affectation 1
Nom 2	Affectation 1
Nom 3	Affectation 1
Nom 3	Affectation 2
Nom 3	Affectation 3
Nom 1	Affectation 3
Nom 2	Affectation 2
Nom 2	Affectation 3

Je souhaite avoir une ligne (donc une personne) avec les affections en nom de colonne

	Affectation 1	Affectation 2	Affectation 3
Nom 1	OUI		NON		OUI
Nom 2	OUI		OUI		OUI		         		
Nom 3	OUI		OUI		OUI

Voila donc mon premier blocage.

La seconde chose que je souhaiterais faire pour faciliter la lecture :
c'est d'associer une macro à un bouton qui à partir d'une liste déroulante (contenant les noms) m'afficherait une messageBox avec les affectations du nom choisi.

D'avance merci de votre aide précieuse.

PS : je débute vraiment en VBA, je fais mes premières armes mais je ne désespère pas d'aider les futurs "noob" d'ici quelques années de pratique

**Igloobel** · 06/12/2013, 21h48

Salut xxoc62

Pour répondre à ta question

Je souhaite avoir une ligne (donc une personne) avec les affections en nom de colonne
Affectation 1 Affectation 2 Affectation 3

Il te suffit de faire un Tableau Croisé Dynamique simple (hyper rapide).
Pour le faire :
1°)Sélectionne ton tableau (Nom et Affectation doivent être ds des cellules différentes)

NOM AFFECTATION
Nom 1 Affectation 1
Nom 2 Affectation 1
Nom 3 Affectation 1
Nom 3 Affectation 2
Nom 3 Affectation 3
Nom 1 Affectation 3
Nom 2 Affectation 2
Nom 2 Affectation 3

2°) Onglet Insertion puis Tableau Croisé Dynamique Puis OK
3°) En colonne : Affectation - en lignes : Nom - ds Valeur : Nom (aussi)
Et Voilà ton tableau est fait (certes tu a des 1 a la place de "Oui" mais c'est ce que tu veux.

Il existe bien évidemment un Code VBA qui peut le faire aussi

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Option Explicit
Option Base 1
 
Public Lign As Long
Public I, J As Interior
Public Tab_Affec() As String 'Table mémoire qui contient ce que l'on veut comme tableau
Public Trouv As Boolean
Public Mess As String
 
 
Public Const FeuilleData = "Feuil2"
 
Sub Affectation()
    Sheets(FeuilleData).Select
    Trouv = False
    Lign = 2
    I = 1
    ReDim Tab_Affec(4, I)
    Do
        For I = 1 To UBound(Tab_Affec, 2)
            If Cells(Lign, 1).Value = Tab_Affec(1, I) Then
                Call Charg_Tab
                Trouv = True
                Exit For
            End If
        Next
        If Trouv = False Then
            ReDim Preserve Tab_Affec(4, I)
            Call Charg_Tab
            I = I + 1
        Else
            Trouv = False
        End If
        Lign = Lign + 1
    Loop While Cells(Lign, 1).Value <> ""
    Mess = " Nom " & vbTab & "   Affectation1" & vbTab & " Affectation2" & vbTab & " Affectation3" & vbCrLf
    For I = 1 To UBound(Tab_Affec, 2)
        Mess = Mess & Tab_Affec(1, I) & "                " & Tab_Affec(2, I) & vbTab & _
                  "                           " & Tab_Affec(3, I) & _
                  "                   " & vbTab & Tab_Affec(4, I) & vbCrLf
    Next
 
    MsgBox Mess, vbInformation, "Liste des affectations"
 
End Sub
'-------------------------------------------------------------------------
Sub Charg_Tab()
    Tab_Affec(1, I) = Cells(Lign, 1).Value
    Select Case Cells(Lign, 2).Value
        Case "Affectation 1"
            Tab_Affec(2, I) = "Oui"
        Case "Affectation 2"
            Tab_Affec(3, I) = "Oui"
        Case "Affectation 3"
            Tab_Affec(4, I) = "Oui"
        Case Else
            MsgBox "Affectation non prévu par le Programme ! ", vbCritical
    End Select
 
End Sub

Bon, la mise en forme du msgbox laisse à désirer mais cela fonctionne Bien

-----------------------------------------------------------------------
-----------------------------------------------------------------------
Pour ta deuxième question

La seconde chose que je souhaiterais faire pour faciliter la lecture :
c'est d'associer une macro à un bouton qui à partir d'une liste déroulante (contenant les noms) m'afficherait une messageBox avec les affectations du nom choisi.

Il me semble plus adéquat de créer un Userform.
Mais avant je te conseille de te lire attentivement les tutoriaux présent sur le site (Ils sont très utile, et très bien fait)

@ bientôt

tu nous tiens au courant

**xxoc62** · 09/12/2013, 11h25

Merci pour ta réponse Igloobel

J'ai juste oublié de préciser que je peux avoir jusque 64 affectations...
Je vais tenter le TCD, ça devrait pouvoir le faire.

Pour le userform, je vais voir aujourd'hui.

Je tiens informé bien évidemment.

**xxoc62** · 09/12/2013, 13h02

Bon j'ai bien avancé sur le userForm.

A partir de l’identifiant de mon utilisateur, je récupère le nom et le prénom.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_Change()
 
Dim a1 As Integer
Dim cherche1 As String
Sheets("Feuil1").Select
cherche1 = ComboBox1.Value
 
a1 = Sheets("Feuil1").Cells.Find(What:=cherche1, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
TextBox1 = Range("A" & a1).Offset(0, 1).Value
TextBox2 = Range("A" & a1).Offset(0, 2).Value
 
End Sub

Par contre, je n'arrive toujours pas à afficher toutes ses affectations.
Mon problème c'est que je n'arrive pas à retranscrire ma pensée ...

Sur le principe :

Je sélectionne l'identifiant ID

Compte NB ID => On compte le nombre de fois ou l'on trouve l'ID
i= NB_ID

De 1 à i
recherche de l'affectation correspondant à l'ID
Affichage de l'affectation dans Frame.
Si l'affectation = la précédente, on passe à la suivante.

Ainsi de suite...

L'idéal étant d'avoir la frame qui s'adapte au nombre de réponse.

**xxoc62** · 12/12/2013, 10h38

Bon,

J'ai finis par trouver !

Avec un petit bonus sur une mise en forme de la textbox sur un contrôle de valeur.

Maintenant mon nouveau défis et de sortir la liste des utilisateurs qui ont un type de rôles précis mais pas un second.
genre :
Si role user = "role_BI*" <= * car plusieurs nombre possible derrière
et si role_user "appui_BI" non trouvé

alors copier user dans feuille "User KO"

et on affecte la macro à un bouton

Hum je vais me marrer

**xxoc62** · 13/12/2013, 10h36

Bon bah j'ai trouvé tout seul, comme quoi des fois on est jamais mieux servis que par soi même...

Macro de recherche multi critères [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager