Bonjour et bonne année à tous,
J'ai un fichier que je souhaite filtrer selon une valeur contenue dans la cellule B9 de l'onglet Menu.
La formule Worksheets("Menu").Range("B9").Value me renvoie bien la valeur que je veux.
Worksheets("Menu").Range("B9").Value est bien du type String (j'ai vérifié avec VarType).
Mais le programme ci-dessous me renvoie l'erreur "objet requis" dès que j'ajoute la ligne du Set poste sans me préciser la ligne concernée, il se met sur la première (sub macro3()).
Pourquoi cette erreur? Comment y remédier?
Sub Macro3()
Dim poste As String
' test ci-dessous OK
MsgBox Worksheets("Menu").Range("B9").Value
Set poste = Worksheets("Menu").Range("B9").Value
MsgBox poste
Selection.AutoFilter Field:=5, Criteria1:="& poste &"
End Sub
Pouvez-vous m'aider?
Merci d'avance.
Configuration: Windows XP
Firefox 3.0.5