Re : problème VBA et/ou mémoire
je sais ou elle plante !
Sub Liste_Affichage()
ActiveWorkbook.CustomViews("L_agts handicapés").Show
Selection.AutoFilter Field:=81, Criteria1:="=COT*", Operator:=xlOr, _
Criteria2:="=*i*"
Range("A1").Select
ActiveWorkbook.CustomViews("L_agts hors effectifs").Show
Selection.AutoFilter Field:=43, Criteria1:="Hors effectif"
Range("A1").Select
ActiveWorkbook.CustomViews("L_agts hors statutaires").Show
Selection.AutoFilter Field:=40, Criteria1:="<>Statuta*", Operator:=xlAnd
Range("A1").Select
ActiveWorkbook.CustomViews("L_agts indisponibles").Show
Selection.AutoFilter Field:=43, Criteria1:="En effectif indisp"
Range("A1").Select
ActiveWorkbook.CustomViews("L_stat eff E09 Cadres").Show
Selection.AutoFilter Field:=21, Criteria1:="Cadre"
Selection.AutoFilter Field:=45, Criteria1:="Stat. à l'effectif"
Range("A1").Select
ActiveWorkbook.CustomViews("L_stat eff E09 Maîtrise").Show
Selection.AutoFilter Field:=21, Criteria1:="Maîtrise"
Selection.AutoFilter Field:=45, Criteria1:="Stat. à l'effectif"
Range("A1").Select
ActiveWorkbook.CustomViews("L_stat eff E09 Exécution").Show
Selection.AutoFilter Field:=21, Criteria1:="Exécution"
Selection.AutoFilter Field:=45, Criteria1:="Stat. à l'effectif"
Range("A1").Select
ActiveWorkbook.CustomViews("Liste complète").Show
Range("A1").Select
End Sub
Elle plante sur l'instruction en rouge
mais pas à tous les coups !!! sur certains fichiers ca passe ?