Filtre VBA avec Inputbox

[Soleil11]

Bonjour,

J'ai repris ce bout de code vba et j'aimerais le modifier. J'ai juste ajouter une variable "test" afin que lorsqu'une personne effectue un filtre il puisse choisir la colomne qu'il veut.

Mais j'aimerais qu'il puisse taper "B" dans le "Inputbox" au lieu de la colomne "2" .Code ci-dessous :

*************
Dim test

test = InputBox("Which column?")

ActiveSheet.Range("A1").AutoFilter Field:=test, Criteria1:= _
"=Sales", Operator:=xlOr, Criteria2:="=Cut"
*************************

Quelqu'un dans ce forum pourrait-il m'aider à trouver la solution.

Merci d'avance

Soleil11🙂

 

[Robert]

Re : Filtre VBA avec Inputbox

Bonjour Soleil, bonjour le forum,

peut-être comme ça (non testé) :

Dim test
Dim col As Byte
 
test = InputBox("Which column?")
 
col=Range(test & "1").column
ActiveSheet.Range("A1").AutoFilter Field:=col, Criteria1:= _
"=Sales", Operator:=xlOr, Criteria2:="=Cut"

 

[Soleil11]

Re : Filtre VBA avec Inputbox

Merci Robert, cela marche parfaitement...

Soleil11