Discussion :

[M8407108]

Bonjour,

j'aimerais un script qui permette d'activer une macro ayant pour fonction la recherche dans une feuille Excel.

Il faut qu'on puisse rechercher soit des mots, soit un nombre, etc...

J'ai déjà réussi à créer un bouton pour activer la macro. Il faut aussi qu'une boîte de dialogue s'ouvre pour demander à l'utilisateur de préciser sa recherche.

La macro doit en quelque sorte créer un filtre automatique, pour qu'on ne voit plus que les lignes qui contiennent l'information cherchée.

J'ai ça pour le moment:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Rows("8:8").Select
    Selection.AutoFilter Field:=InputBox("Choissisez le numéro de la colonne de recherche", "Colonne"), Criteria1:=InputBox("Entrez votre critère de recherche entre les deux *", "Critère", "=**"), Operator:=xlAnd

Mais je veux remplacer la partie : Criteria1=InputBox("Entrez votre...,"Critère", "=**"), Operator=xlAnd

Pour pouvoir taper directement la recherche dans la boîte de dialogue.

Pouvez-vous m'aider?

merci !!!!!

[fred65200]

bonsoir,

je n'ai pas bien saisi ta demande et vais peut être répondre à coté.

Tu peux ajouter un userform à ton projet avec deux TextBox nommés respectivement TextBox1 et TextBox2 et un CommandButton nommé CommandButton1, place le code suivant dans le code du UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
Rows("8:8").AutoFilter Field:=Val(TextBox1), Criteria1:=TextBox2, Operator:=xlAnd
End Sub

Tu peux aussi simplifier ta recherche comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Rows("8:8").AutoFilter Field:=InputBox("Choissisez le numéro de la colonne de recherche", "Colonne"), _
   Criteria1:=InputBox("Saisissez votre critère de recherche", "Critère", "ICI"), _
   Operator:=xlAnd

cordialement