Fonction Recherche

[Pierrickb]

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]

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]

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]

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]

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]

Re : Fonction Recherche

Salut Flo,

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

 

[Pierrickb]

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

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]

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

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]

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]

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]

Re : Fonction Recherche

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

 

[flo2002]

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]

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.

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]

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

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

 

[Dan]

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.