Macro excel

[SANDRINE71086]

Bonjour,

je cherche à faire une macro qui me permettrai de copier un mot dans une cellule selectionnée et de le coller apres dans l'outil filtre textuel contient

voila ma macro, elle fait bien le processus mais ne repère pas le mote et me trouve aucun élément

Dim mot_cherche As String

Sheets("RECHERCHE").Select
Range("I1").Select
mot_cherche = ActiveCell
mot_cherche = ActiveCell
Selection.Copy
Sheets("INVENTAIRE 2009").Select
ActiveSheet.Range("$A$1:$E$4693").AutoFilter Field:=2, Criteria1:="mot_cherche", _
Operator:=xlAnd



merci de votre aide

 

[Pierrot93]

Re : Macro excel

Bonjour,

essaye peut être ainsi :

Dim mot_cherche As String
mot_cherche = Sheets("RECHERCHE").Range("I1")
Sheets("INVENTAIRE 2009").Range("$A$1:$E$4693").AutoFilter Field:=2, _
    Criteria1:="=" & mot_cherche, Operator:=xlAnd

pourrait même se réduire à cela :

Sheets("INVENTAIRE 2009").Range("$A$1:$E$4693").AutoFilter Field:=2, _
    Criteria1:="=" & Sheets("RECHERCHE").Range("I1"), Operator:=xlAnd

fonction du type de donnée traité...

bonne fin d'après midi
@+

Edition : manquait l'opérateur...