Fonction Recherche

Pierrickb · 7 Août 2006

Voici un fragment de mon fichier cleint, je souhaiterais utiliser la case A3 comme moteur de recherche des noms indiqués dans toute la colonne A.

Quel fonction me conseillez vous ?

Dan · 7 Août 2006

Re : Fonction Recherche

Bonjour,

Je ne vois la finalité de ta demande mais pourquoi ne pas utiliser le filtre automatique et déplacer la date en A2 sur A1 par exemple.
Le fait d'avoir cette date en A2 crèe une ligne dans ta base de données qui ne me parait pas un bon choix.

A te lire

flo2002 · 7 Août 2006

Re : Fonction Recherche

Bonjour,
comme Dan, je vois bien un filtre auto.
Cependant, tu peut la mettre en private sub et definir A3 comme étant la variable.

Papaye · 7 Août 2006

Re : Fonction Recherche

Bonjour les garçons,

Une bribe de solution :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
Selection.AutoFilter Field:=1, Criteria1:="=*" & cells(3,1) & "*", Operator:=xlAnd
End If
End Sub

flo2002 · 7 Août 2006

Re : Fonction Recherche

Re bonjour,
je voyais plutot un truc du genre:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim AAA As String
AAA = Sheets("Feuil1").Range("A3").Value
Rows("4:4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=AAA
End sub

a adapter au besoin

Papaye · 7 Août 2006

Re : Fonction Recherche

Salut Flo,

Ok ... mais je suis plus une adapte du "contient" que du "égal".
Mais ta solution est ok !

Pierrickb · 7 Août 2006

Re : Fonction Recherche

Dan à dit:
Bonjour,

Je ne vois la finalité de ta demande mais pourquoi ne pas utiliser le filtre automatique et déplacer la date en A2 sur A1 par exemple.
Le fait d'avoir cette date en A2 crèe une ligne dans ta base de données qui ne me parait pas un bon choix.

A te lire

Pour la date, elle permet d'autres fonctions sur mon tableau, donc il n'y a pas lieu de la changer.

Ma demande porte sur la simplification du mode de recherche d'un nom dans la BD.

Plutôt que de faire Ctrl F pour rechecher, j'imaginais indiquer un nom dans la case A3. Cette astuce me permettrait de gagner du temps car j'utilise très fréquemment la fonction Ctrl F.

Pierrickb · 7 Août 2006

Re : Fonction Recherche

flo2002 à dit:
Re bonjour,
je voyais plutot un truc du genre:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim AAA As String
AAA = Sheets("Feuil1").Range("A3").Value
Rows("4:4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=AAA
End sub

a adapter au besoin

Au risque de paraître débutant, c'est du Visual Basic ?
Je ne sais pas très bien utiliser cet outil. Avez-vous un Mode Op sur le forum pour me guider ?

flo2002 · 7 Août 2006

Re : Fonction Recherche

Oui c'est du VBA,
je crois c'est l'heur de s'y mettre:
alors,

alt F11

a gauche tu clique sur la feuille sur la quel tu veux travailler, exemple feuille1, et tu colle en adaptant le code que papaye ou moi meme t'avons donné.

n'hesite pas a demander si tu n'y arrive pas

chris · 7 Août 2006

Re : Fonction Recherche

Bonjour
Je partage l'avis de Dan surtout si tu n'es pas à l'aise avec VBA.
Places ta date ailleurs et utilise le filtre auto.
De toute façon si tu utilises des BD, il est préférable d'en respecter la norme et de ne pas intercaler des données entre les titres et les données sinon tu va rencontrer de plus en plus de problèmes en te privant des possibilités Excel liées aux BD : TCD, filtres, et autres.

Pierrickb · 7 Août 2006

Re : Fonction Recherche

Bon je viens de mettre le nez dedans et voici l'erreur généré, que se passe t'il ????

flo2002 · 7 Août 2006

Re : Fonction Recherche

Comment se nomme ta feuille ou tu as la fameuse cellule A3?

tu mets ce nom la a la place de feuil1

Pierrickb · 7 Août 2006

Re : Fonction Recherche

chris à dit:
Bonjour
Je partage l'avis de Dan surtout si tu n'es pas à l'aise avec VBA.
Places ta date ailleurs et utilise le filtre auto.
De toute façon si tu utilises des BD, il est préférable d'en respecter la norme et de ne pas intercaler des données entre les titres et les données sinon tu va rencontrer de plus en plus de problèmes en te privant des possibilités Excel liées aux BD : TCD, filtres, et autres.

Oui effectivement tu as raison, je vien de m'en appercevoire.

Donc l'utilisation de la fonction recherche Ctrl F est la plus adaptée ?

Pierrickb · 7 Août 2006

Re : Fonction Recherche

flo2002 à dit:
Comment se nomme ta feuille ou tu as la fameuse cellule A3?

tu mets ce nom la a la place de feuil1

Oui Ok mais je viens de me rendre compte que j'ai perdu tous les filtres !

Dan · 7 Août 2006

Re : Fonction Recherche

Re,

Ton instruction "Selection.AutoFilter" te fais perdre les filtres une fois sur deux car chaque fois que ta macro repasse dessus le filtre est mis ou enlevé.
Cette macro a été faite avec l'enregistreur automatique donc supprime la.

Fonction Recherche

Pierrickb

Guest

Dan

XLDnaute Barbatruc

flo2002

XLDnaute Impliqué

Papaye

XLDnaute Occasionnel

flo2002

XLDnaute Impliqué

Papaye

XLDnaute Occasionnel

Pierrickb

Guest

Pierrickb

Guest

flo2002

XLDnaute Impliqué

chris

XLDnaute Barbatruc

Pierrickb

Guest

flo2002

XLDnaute Impliqué

Pierrickb

Guest

Pierrickb

Guest

Dan

XLDnaute Barbatruc

Discussions similaires

Fonction Recherche

Pierrickb

Guest

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Occasionnel

Pierrickb

Guest

Pierrickb

Guest

XLDnaute Impliqué

XLDnaute Barbatruc

Pierrickb

Guest

XLDnaute Impliqué

Pierrickb

Guest

Pierrickb

Guest

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency