Macro de recherche personnalisée

[bibouexcel]

Bonjour,

Je voudrais faire une macro qui me permettrait de faire une recherche par nom sur une colone (recherche personnalisée "contient") mais je n'arrive pas à trouver la bon code.

Je vous ai copié la macro : (la ligne qui pose problème est en rouge)

Sub composant()


Sheets("Base").Select


Range("A4:AX4").Select
Selection.AutoFilter
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


Merci pour votre aide !

 

[Spitnolan08]

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 :

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

 

[Pierrot93]

Re : Macro de recherche personnalisée

Bonjour Bibouexcel

essaye peut être comme ci dessous :

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...

 

[bibouexcel]

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

 

[wazzebu]

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!!).

 

[Spitnolan08]

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

 

[bibouexcel]

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

 

[Pierrot93]

Re : Macro de recherche personnalisée

Re

oui, tu modifies la ligne de code comme suit :

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

@+

 

[JeanMarie]

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

 

[bibouexcel]

Re : Macro de recherche personnalisée

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

A++

 

[bibouexcel]

Re : Macro de recherche personnalisée

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