Macro excel

SANDRINE71086 · 28 Octobre 2010

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 · 28 Octobre 2010

Re : Macro excel

Bonjour,

essaye peut être ainsi :

Code:

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 :

Code:

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

Macro excel

SANDRINE71086

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Macro excel

SANDRINE71086

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency