Plantage de macro Résolu/Fermé

Question

Bonjour, 

Quelqu'un pourrait-il m'expliquer pourquoi  la macro ci-dessous plante une fois sur 2. Je n'arrive pas malgré de nombreux essai à trouver la cause du bogage

 Range("A1:P105").Select
    ActiveWorkbook.Worksheets("prépa facture").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("prépa facture").AutoFilter.Sort.SortFields.Add Key _
        :=Range("A2:A105"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("prépa facture").AutoFilter.Sort.SortFields.Add Key _
        :=Range("C2:C105"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("prépa facture").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

merci à tous


Configuration: Windows 7 / Chrome 38.0.2125.104

redaiwa · Answer

Salam mchotard.

Chez moi (Excel 2010), la macro ne plante pas. 
 
"Repousse le mal par le bien; et voilà que celui avec qui tu avais une animosité devient tel un ami chaleureux" (Coran)
"Celui qui ne sait pas partager est infirme de ses émotions". (Marc Levy)

mchotard · Answer

Merci pour avoir essayé, mais je pense que j'ai un problème selon que les filtres sont afficher ou pas quand je lance la macro.
Cdlt

Maurice · Answer

bonjour
si tu peux donner un modele de ton fichier ca serait plus simple de voir ton probleme

A+
Maurice

mchotard · Answer

merci à tous ceux qui ont bien voulu s'intéresser à mon problème. C'est bon maintenant en insérant la formule de Salam
Cordialement

Maurice · Answer

Bonjour

eface le filtre avant

Sub TestFiltre()
Sheets("prépa facture").Select
If ActiveSheet.AutoFilterMode Then
   ActiveSheet.AutoFilterMode = False
End If
Range("A1").AutoFilter
'
'
'
End Sub

A+
Maurice

Plantage de macro

5 réponses

Discussions similaires