Recherche Multi Critéres

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion noukta
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

noukta

Guest
Bonjour,

J'aimerai faire une recherche multi critére sur le fichier qui est attaché à ce post, c'est un tableau de pointage, ce que je veux c'est de faire une recherche par les "card number" qui sont dans la feuille2 et sur la feuille3 j'aurai les résultats comme sorte de "First name; Last name; Card Number; Date & Time; Object"

Ce qui m'intersse dans object c'est que "ENTREE NewZeland N°1" et "SORTIE NewZeland N°1".

Par contre ce taleau peut avoir plus que 6000 enregistrements.

Quelqu'un peut m'aider svp ?

Merci d'avance.
 

Pièces jointes

Trier par date Trier par votes
Re : Recherche Multi Critéres

Tient un début de réponse apres a toi de mettre ce que tu veux en plus 🙂

Code: 
Sub cartman()
h = 1
'boucle sur la feuille 2
For i = 2 To 35
    Sheets("Feuil2").Select
    C_N = Cells(i, 2)
'boucle sur la feuille 1
    For y = 1 To 214
        Sheets("Feuil1").Select
        If Cells(y, 5) = C_N Then
            'ici tu récupere les info que tu veux mettre dans la feuille 3
            F_name = Cells(y, 7)
            L_name = Cells(y, 8)
            Sheets("Feuil3").Select
            'ici tu dit ou tu veux afficher les info
            Cells(h, 1) = F_name
            Cells(h, 2) = L_name
            Cells(h, 3) = C_N
            'h ca sert a passer a la ligne suivante une fois un client noté dans la feuille 3
            h = h + 1
        End If
    Next y
Next i
End Sub


Cordialement !
 
Vote positif 0 Vote négatif
Re : Recherche Multi Critéres

Merci beaucoup pour ta réponse rapide

J'ai fait ça pour afficher "Object" sur la 4éme colone par contre comme spécifier d'afficher que les objects "ENTREE NewZeland N°1" et "SORTIE NewZeland N°1".?

Code: 
Sub cartman()
h = 1
'boucle sur la feuille 2
For i = 2 To 35
    Sheets("Feuil2").Select
    C_N = Cells(i, 2)
'boucle sur la feuille 1
    For y = 1 To 214
        Sheets("Feuil1").Select
        If Cells(y, 5) = C_N Then
            'ici tu récupere les info que tu veux mettre dans la feuille 3
            F_name = Cells(y, 7)
            L_name = Cells(y, 8)
            D_porte = Cells(y, 4)
            Sheets("Feuil3").Select
            'ici tu dit ou tu veux afficher les info
            Cells(h, 1) = F_name
            Cells(h, 2) = L_name
            Cells(h, 3) = C_N
            Cells(h, 4) = D_porte
            'h ca sert a passer a la ligne suivante une fois un client noté dans la feuille 3
            h = h + 1
        End If
    Next y
Next i
End Sub

Merci d'avance
Cordialement
 
Vote positif 0 Vote négatif
Re : Recherche Multi Critéres

Bonsoir,
travaillant sur ton fichier, je suppose que les "First Name", et "Last Name", et "Card Number" sont en général les mêmes?
Ton exemple donne des noms incrémentés, mais ce sont bien les mêmes?
 
Vote positif 0 Vote négatif
Re : Recherche Multi Critéres

Bonsoir bhbh

Nom au fait c'est une base de donnée que je dois extraire chaque jour d'un logiciel de pointage par badge, le but c'est de voir l'heure d'entrer et de sortie des employés qui sont dans la feuille2.

J'aimerai aussi si c'est possible si l'employee dans la feuille2 n'est pas présent dans la feuille2 qui marque sur la feuille3 "Absent"

Merci d'avance
Crdlt
Soufiane
 
Vote positif 0 Vote négatif
Re : Recherche Multi Critéres

Code: 
Sub cartman()
h = 1
For i = 2 To 35
    Sheets("Feuil2").Select
    C_N = Cells(i, 2)
    For y = 1 To 214
        Sheets("Feuil1").Select
        If Cells(y, 5) = C_N And (Trim(Cells(y, 4)) = "ENTREE NewZeland N°1" Or Trim(Cells(y, 4)) = "SORTIE NewZeland N°1") Then
            'ici tu récupere les info que tu veux mettre dans la feuille 3
            F_name = Cells(y, 7)
            L_name = Cells(y, 8)
            test = Cells(y, 4)
            Sheets("Feuil3").Select
            'ici tu dit ou tu veux afficher les info
            Cells(h, 1) = F_name
            Cells(h, 2) = L_name
            Cells(h, 3) = C_N
            Cells(h, 4) = test
            'h ca sert a passer a la ligne suivante une fois un client noté dans la feuille 3
            h = h + 1
        End If
    Next y
Next i
End Sub
voila j ai rajouter la condition !
 
Vote positif 0 Vote négatif
Re : Recherche Multi Critéres

noukta à dit:
Bonsoir bhbh

Nom au fait c'est une base de donnée que je dois extraire chaque jour d'un logiciel de pointage par badge, le but c'est de voir l'heure d'entrer et de sortie des employés qui sont dans la feuille2.

J'aimerai aussi si c'est possible si l'employee dans la feuille2 n'est pas présent dans la feuille2 qui marque sur la feuille3 "Absent"

Merci d'avance
Crdlt
Soufiane
Cliquez pour agrandir...


salut je vais sortir jte laisse ce que j ai fais jpense tu pourras facilement rajouter ce que tu veux , la macro est élémentaire tu peux l améliorer 🙂🙂

Code: 
Sub cartman()
h = 1
For i = 2 To 35
    Sheets("Feuil2").Select
    C_N = Cells(i, 2)
    present = False
    For y = 1 To 214
        Sheets("Feuil1").Select
        If Cells(y, 5) = C_N And (Trim(Cells(y, 4)) = "ENTREE NewZeland N°1" Or Trim(Cells(y, 4)) = "SORTIE NewZeland N°1") Then
            'ici tu récupere les info que tu veux mettre dans la feuille 3
            F_name = Cells(y, 7)
            L_name = Cells(y, 8)
            test = Cells(y, 4)
            'si il est present on rentre dans cette boucle
            present = True
            Sheets("Feuil3").Select
            'ici tu dit ou tu veux afficher les info
            Cells(h, 1) = F_name
            Cells(h, 2) = L_name
            Cells(h, 3) = C_N
            Cells(h, 4) = test
            Cells(h, 5) = "présent"
            'h ca sert a passer a la ligne suivante une fois un client noté dans la feuille 3
            h = h + 1
        End If
    Next y
    Sheets("Feuil2").Select
        nom = Cells(i, 1)
        If present = False Then
        Sheets("Feuil3").Select
            h = h + 1
            Cells(h, 1) = nom
            Cells(h, 2) = "absent"
        End If
Next i
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recherche Multi Critéres

Merci beaucoup,

J'ai ajouté la date dans le code suivante mais sa me donne toujours la date sous format
first name112 Last Name112 10168 SORTIE NewZeland N°1 18/05/2008 00:00
first name205 Last Name205 10168 SORTIE NewZeland N°1 18/05/2008 00:00
first name144 Last Name144 10110 ENTREE NewZeland N°1 18/05/2008 00:00
first name35 Last Name35 79000 ENTREE NewZeland N°1 18/05/2008 00:00
first name152 Last Name152 79000 SORTIE NewZeland N°1 18/05/2008 00:00
first name181 Last Name181 10250 ENTREE NewZeland N°1 18/05/2008 00:00
first name198 Last Name198 10250 SORTIE NewZeland N°1 18/05/2008 00:00
first name34 Last Name34 10258 ENTREE NewZeland N°1 18/05/2008 00:00
first name66 Last Name66 63782 ENTREE NewZeland N°1 18/05/2008 00:00
first name128 Last Name128 63782 SORTIE NewZeland N°1 18/05/2008 00:00
first name133 Last Name133 63782 ENTREE NewZeland N°1 18/05/2008 00:00
first name187 Last Name187 63782 SORTIE NewZeland N°1 18/05/2008 00:00
first name136 Last Name136 10198 ENTREE NewZeland N°1 18/05/2008 00:00
Cliquez pour agrandir...


les heures sont en 00:00 j'ai besoin de leur exacte dans la feuille1.
Code: 
Sub cartman()
h = 1
For i = 2 To 35
    Sheets("Feuil2").Select
    C_N = Cells(i, 2)
    For y = 1 To 214
        Sheets("Feuil1").Select
        If Cells(y, 5) = C_N And (Trim(Cells(y, 4)) = "ENTREE NewZeland N°1" Or Trim(Cells(y, 4)) = "SORTIE NewZeland N°1") Then
            'ici tu récupere les info que tu veux mettre dans la feuille 3
            F_name = Cells(y, 7)
            L_name = Cells(y, 8)
            test = Cells(y, 4)
            Date = Cells(y, 1)
            Sheets("Feuil3").Select
            'ici tu dit ou tu veux afficher les info
            Cells(h, 1) = F_name
            Cells(h, 2) = L_name
            Cells(h, 3) = C_N
            Cells(h, 4) = test
            Cells(h, 5) = Date
            'h ca sert a passer a la ligne suivante une fois un client noté dans la feuille 3
            h = h + 1
        End If
    Next y
Next i
End Sub

Merci d'avance
Crdlt
Soufiane
 
Vote positif 0 Vote négatif
Re : Recherche Multi Critéres

Merci beaucoup BHBH,

C'est bien ce que je veux, mais par contre ceci me donne tout les résultas, et moi je veux que les données qui sont dans le tableau 1. et que la personne qui est dans la feuille2 n'est pas présente dans la feuille1 sa me donne une autre colone dans la feuille2 avec marqué absent.

Merci infiniment d'avance.
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

xUpsilon
  • Question Question
Autres Permettre à une macro définie avec une bibliothèque d'objet récente de tourner avec une bibliothèque d'objets antérieure
Réponses
3
Affichages
2 K
Hasco
Hasco
D
  • Question Question
Remplacer mes sommeprod par recherche v ou index multi critères ou..(pour alléger)
Réponses
8
Affichages
3 K
dindondesbois
D
E
  • Question Question
Système de recherche avec liste multi-critères / critères pas assez flexibles
Réponses
7
Affichages
3 K
Erwith
E
C
  • Question Question
Graphique (abscisse) : interprétation d'un variant.
Réponses
0
Affichages
3 K
Charly88
C
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
52 K
MichelXld
M
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
117 K
MichelXld
M
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
Retour