bonjour à tous,
Dim Message, Title, Default, MyValue
Message = 'Entrez le N° de la semaine'
Title = 'Sélection de la semaine'
Default = ''
MyValue = InputBox(Message, Title, Default)
fil = MyValue + 1
Sheets('recap preventif').Select
If Worksheets('recap preventif').AutoFilterMode Then Selection.AutoFilter
Selection.AutoFilter Field:=fil, Criteria1:='=x', Operator:=xlOr, Criteria2:='=' & MyValue
sur la ligne en rouge j'ai une erreur 1004, 'la méthode autofilter de la classe Range a échoué'
mais l'erreur est aléatoire.
qu'en pensez-vous.
merci d'avance
:silly: [file name=mamouth.zip size=4494]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mamouth.zip[/file]
Dim Message, Title, Default, MyValue
Message = 'Entrez le N° de la semaine'
Title = 'Sélection de la semaine'
Default = ''
MyValue = InputBox(Message, Title, Default)
fil = MyValue + 1
Sheets('recap preventif').Select
If Worksheets('recap preventif').AutoFilterMode Then Selection.AutoFilter
Selection.AutoFilter Field:=fil, Criteria1:='=x', Operator:=xlOr, Criteria2:='=' & MyValue
sur la ligne en rouge j'ai une erreur 1004, 'la méthode autofilter de la classe Range a échoué'
mais l'erreur est aléatoire.
qu'en pensez-vous.
merci d'avance
:silly: [file name=mamouth.zip size=4494]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mamouth.zip[/file]