macro recherche

[young 25]

bonjour ,

je souhaiterai faire une macro recherche dans le fichier joint.

L'idee est de creer la macro sur la page 2.
la macro recherche devra permettre de chercher selon plusieurs criteres.

equipe,nom,fonction.

le but est de me permettre de savoir si telle personne ou groupe a vu la for1 par exemple.

merci d'avance

A+

 

[Staple1600]

Re : macro recherche

Bonjour

Une façon de faire :
• critère utilisé pour l'exemple ci-dessous: Orange/pierre/

( méthode utlisée : utilisation du filtre élaboré en VBA)

Sub test_OK()
Dim CRIT_EQ$, CRIT_IDENT$, CRIT_FONCT$, CHOIX_CRIT

CHOIX_CRIT = _
    Split(InputBox("Renseigner les critères de sélection des données," & _
    vbLf & "en respectant la syntaxe suivante:" & vbLf & _
    vbLf & "EQUIPE/NOMPRENOM/FONCTION" & _
    vbLf & "Exemple: Orange//Fonction4", "Recherche"), "/")

CRIT_EQ = CStr(CHOIX_CRIT(0))
CRIT_IDENT = CStr(CHOIX_CRIT(1))
CRIT_FONCT = CStr(CHOIX_CRIT(2))

Range("AA16:AC16").Value = Range("A16:C16").Value
[AA17] = IIf(Len(CRIT_EQ) > 0, CRIT_EQ, vbNullString)
[AB17] = IIf(Len(CRIT_IDENT) > 0, CRIT_IDENT, vbNullString)
[AC17] = IIf(Len(CRIT_FONCT) > 0, CRIT_FONCT, vbNullString)

Range("A16:E21").AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Range("AA16:AC17"), _
    Unique:=False
End Sub

 

[young 25]

Re : macro recherche

mais comment faire pour l'adapter sur un uf