Macro de recherche personnalisée

Spitnolan08

XLDnaute Barbatruc

• 30 Juillet 2007

• #2

Re : Macro de recherche personnalisée

Bonjour,

Un exemple étant toujours bien mieux qu'une seule explication, je ne sais pas si j'ai tout compris. Essaye donc ceci :

Code:

Sub composant()
    Sheets("Base").Range("A4:AX4").Select
    Selection.AutoFilter
  Unload FormX
  
 Dim Da As Integer
Ba = Application.InputBox("entrez le nom du produit chimique " & Chr(13))
If Ba <> 0 Then
    Selection.AutoFilter Field:=23, Criteria1:=Ba
End If

End Sub

Cordialement

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Juillet 2007

• #3

Re : Macro de recherche personnalisée

Bonjour Bibouexcel

essaye peut être comme ci dessous :

Code:

Dim Da As String
Ba = Application.InputBox("entrez le nom du produit chimique " & Chr(13))
If Ba <> "" Then
Range("A4:AX4").AutoFilter Field:=23, Criteria1:="=*" & Ba & "*"

non testé...

bonne journée
@+

Aarf, Spitnolan, bonjour, désolé pour la collision...

 

Vote positif 0 Vote négatif

B

bibouexcel

Guest

• 30 Juillet 2007

• #4

Re : Macro de recherche personnalisée

Merci mais ca ne marche pas.
Spitrolan08, le code que tu m'as donnée est pour une recherche personnalisée de type "égale" moi je voudrais une recherche de type "contient" c'est à dire si je demande "excel" il me donnera toutes les réponses avec excel : excel 2000, excel 2003, excel 2007 etc...

Pierrot93, ton code ne marche pas... merci quand même

 

Vote positif 0 Vote négatif

wazzebu

XLDnaute Occasionnel

• 30 Juillet 2007

• #5

Re : Macro de recherche personnalisée

Bonjour,

en fouillant sur le forum j'ai trouvé une appli qui permet de rechercher par colonne et par mot clé, avec une recherche de type "contient". Peut etre que ca t'aideras un peu !!

Voila le fichier en pièce jointe (merci au developpeur!!).

 

Pièces jointes

• TEST BASE 4.zip

  18 KB · Affichages: 55
• TEST BASE 4.zip

  18 KB · Affichages: 55
• TEST BASE 4.zip

  18 KB · Affichages: 54

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 30 Juillet 2007

• #6

Re : Macro de recherche personnalisée

Re,
Bonjour Pierrot, wazzebu

Je ne comprends pas : j'ai obtenu la même formulation que Pierrot et ça fonctionne parfaitement. Peut être ne nous as tu pas tout dit...

Cordialement

 

Vote positif 0 Vote négatif

B

bibouexcel

Guest

• 30 Juillet 2007

• #7

Re : Macro de recherche personnalisée

Oui merci le programme de pierrot marche, je n'avais pas copié toute la ligne...
Il me reste tout de même une question:
Est-ce possible de faire une recherche par mot? parce que la recherche de type "contient" prend tous les mots qui contiennent les lettres qu'on donne et ça donne un résultat énorme !

Merci pour votre aide

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Juillet 2007

• #8

Re : Macro de recherche personnalisée

Re

oui, tu modifies la ligne de code comme suit :

Code:

Range("A4:AX4").AutoFilter Field:=23, Criteria1:="=" & Ba

@+

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 30 Juillet 2007

• #9

Re : Macro de recherche personnalisée

Bonjour tout le monde

Pour le critère par mot contenu dans une phrase, utilise le Criteria1:="=* " & Ba & " *" (un espace après * et après BA).

@+Jean-Marie

 

Vote positif 0 Vote négatif

B

bibouexcel

Guest

• 30 Juillet 2007

• #10

Re : Macro de recherche personnalisée

re pierrot,
Merci pour ton aide mon problème est résolu

A++

 

Vote positif 0 Vote négatif

B

bibouexcel

Guest

• 30 Juillet 2007

• #11

Re : Macro de recherche personnalisée

Merci jean marie,
Très subtiles les espaces....

 

Vote positif 0 Vote négatif