Recherche Multi Critéres

noukta · 24 Mai 2008

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.

suistrop · 24 Mai 2008

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 !

noukta · 24 Mai 2008

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

Cousinhub · 24 Mai 2008

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?

noukta · 24 Mai 2008

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

suistrop · 24 Mai 2008

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 !

suistrop · 24 Mai 2008

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

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

noukta · 24 Mai 2008

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

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

Cousinhub · 24 Mai 2008

Re : Recherche Multi Critéres

Bonsoir,
ou Re-,
regarde le fichier joint, à partir d'un filtre élaboré

Edit, appuie sur le rectangle "violet" en haut, entre A1 et B1

noukta · 24 Mai 2008

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.

Cousinhub · 24 Mai 2008

Re : Recherche Multi Critéres

Re-,
Pas de souci,
mais je ne vois nulle part "Employee 1".....ni Titre de colonne "First Name/Last Name", donc, que veux-tu dans cette colonne?

noukta · 24 Mai 2008

Re : Recherche Multi Critéres

Oui au fait j'ai changé les nom pour la confidentialité , il faut fairela recherche juste avec card number 🙂

Merci d'avance

Recherche Multi Critéres

noukta

Guest

Pièces jointes

suistrop

XLDnaute Impliqué

noukta

Guest

Cousinhub

XLDnaute Barbatruc

noukta

Guest

suistrop

XLDnaute Impliqué

suistrop

XLDnaute Impliqué

Pièces jointes

noukta

Guest

Cousinhub

XLDnaute Barbatruc

Pièces jointes

noukta

Guest

Cousinhub

XLDnaute Barbatruc

noukta

Guest

Discussions similaires

Recherche Multi Critéres

noukta

Guest

Pièces jointes

suistrop

XLDnaute Impliqué

noukta

Guest

Cousinhub

XLDnaute Barbatruc

noukta

Guest

suistrop

XLDnaute Impliqué

suistrop

XLDnaute Impliqué

Pièces jointes

noukta

Guest

Cousinhub

XLDnaute Barbatruc

Pièces jointes

noukta

Guest

Cousinhub

XLDnaute Barbatruc

noukta

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency