M
Marty
Guest
Bonjour à tous.
Je cherche à faire afficher dans une inputbox une liste déroulante et en fonction du choix effectué, faire un filtre. Ma liste se trouve sur une feuille annexe mais je n'arrive pas à faire afficher la liste déroulante dans l'inputbox. Ci-joint mon code. Quelqu'un peut-il m'aider ???? Merci.😱
Sheets('Feuil1').Select
ActiveSheet.Unprotect
Critère = Format(inputBox1.RowSource = 'Liste!typedepense')
Selection.AutoFilter Field:=3, Criteria1:='=' & Critère, Operator:=xlAnd,
Selection.AutoFilter Field:=3
ActiveSheet.Protect
Je cherche à faire afficher dans une inputbox une liste déroulante et en fonction du choix effectué, faire un filtre. Ma liste se trouve sur une feuille annexe mais je n'arrive pas à faire afficher la liste déroulante dans l'inputbox. Ci-joint mon code. Quelqu'un peut-il m'aider ???? Merci.😱
Sheets('Feuil1').Select
ActiveSheet.Unprotect
Critère = Format(inputBox1.RowSource = 'Liste!typedepense')
Selection.AutoFilter Field:=3, Criteria1:='=' & Critère, Operator:=xlAnd,
Selection.AutoFilter Field:=3
ActiveSheet.Protect