Bonjour,

Je ne m'y connais très peu en macro sur excel. Mon but est d'insérer un tableau de données dans plusieurs onglets. Les données changent dans le tableau selon le numéro de la 'Ligne'. Il faut donc trier depuis un onglet avec 60000 lignes de données.
J'ai tenté 2 modules de macro.
Le problème est qu'elle ne fonctionne tout siomplement pas ! Ai je oublié quelque chose d'important ? y a t il des spéc pour excel 2010 ?
Merci d'avance !


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro2()
'
' Macro2 Macro
'
'
    ActiveSheet.Range("$C$37:$O$509").AutoFilter Field:=13, Criteria1:= _
        Range("J1").Value
    ActiveSheet.Range("$C$37:$O$509").AutoFilter Field:=6, Criteria1:=Array( _
        "CV FAIBLE", "LANCEMENT", "RUPTURE", "URGENCE"), Operator:=xlFilterValues
    ActiveSheet.Range("$C$37:$O$509").AutoFilter Field:=13, Criteria1:= _
        "LIGNEF04"
    ActiveSheet.Range("$C$37:$O$509").AutoFilter Field:=12, Criteria1:="FAUX"
End Sub
et

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Macro5()
'
' Actualiser tous les TCDs + Appeler les macros pour affichage rupture dans chaque onglet
 
    ActiveWorkbook.RefreshAll
 
    Sheets("Rupture").Select
    ActiveWorkbook.Worksheets("Rupture").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Rupture").AutoFilter.Sort.SortFields.Add Key:=Range("H1:H411"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Rupture").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
 
    Sheets("P01").Select
    Sheets("P03").Select
 
 
End Sub
Foucma