pb macro tri données

Version imprimable

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:

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

Code:

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

28/09/2012, 10h45
CristofMartins

Salut,
D'apres ce que je comprend tu veux trier tes données et ca ne marche pas ?
28/09/2012, 10h47
Foucma

Oui c'est ça.
La macro s'effectue mais rien n'est ajouté dans le tableau.
28/09/2012, 10h51
CristofMartins
D'accord,
moi je ne suis pas un grand connaisseur, mais je suis sur un projet ou je doit aussi faire un trie. je te donne mon exemple peut-etre que ça pourra t'aider.
Code:

1 2 3 4 5 6 7 With contactList.Sort .SortFields.Clear .SortFields.Add contactList.ListColumns(1).Range, SortOn:=xlSortOnValues .Header = xlYes .Apply End With
Je pense que ce que tu devrais enlever c'est le

Code:

... .autofilter.

c'est une petite partie de code que tu a lorsque tu fais le trie.
28/09/2012, 10h58
Daniel.C

Bonjour,

Citation:

La macro s'effectue mais rien n'est ajouté dans le tableau.

Tu fais un filtre automatique et un tri. Qu'est-ce que tu veux qui soit ajouté et où ?
Est-ce que le filtre et le tri s'exécutent ? J'ai testé le tri et ça fonctionne. Peux-tu préciser ce que tu souhaites, éventuellement avec une classeur exemple ?
28/09/2012, 11h46
Foucma

Bonjour,

Merci.
Non je ne peux pas vous donner les données, elles sont confidentielles, désolé.
J'ai un fichier à plusieurs colonnes (A à AB) et 60 000 lignes. Je veux filtrer la colonne AQ d'où le "Range(AQ1:AQ411)" . [sur celui de ce forum c'ets avec H mais c'est normal, c'était un test]. En fonction du numéro de 'Ligne' présent sur chaque onglet en case J1 d'où "Range("J1").Value", il filtre la 'Ligne'. Puis il cré un tableau sur chaque onglet (P01, P03 et 24 autres). Dans ce tableau, il y a 4 colonnes. Une colonne contient la liste des Rupture, Urgence, CV faible et Lancement de la 'Ligne' en question. Ce Tableau est déjà pré rempli avec le nom de chaque colonne. Il reçoit ensuite les données.

Le filtre s'exécute je pense oui, mais rien ne s'affiche.
28/09/2012, 11h52
CristofMartins

Il y a une différence entre un filtre et un trie.
Filtre : affichent les données qu'on veut mais le n° de ligne reste celui de base. ex:

Tableau de base :

1 - b
2 - d
3 - a
4 -c

Avec un filtre alphabetique (filter):

3-a
1-b
4-c
2-d

Maintenant l'exemple avec un trie alphabétique (sort):
1 - a
2 - b
3 - c
4 - d
28/09/2012, 11h54
Philippe Tulliez

Bonjour,

Citation:

Le filtre s'exécute je pense oui, mais rien ne s'affiche.

Dans ce cas c'est vraisemblablement ou peut-être les données envoyées au filtre qui sont mauvaises.
Cas classique pour des chaînes de caractères c'est par exemple dans la cellule la valeur est "Urgence " et on filtre avec "Urgence". Les espaces étant invisible à l'oeil nu, on cherche des heures où se situe le problème.
28/09/2012, 15h22
Daniel.C

Si tu ne trouve pas, mets un classeur exemple en pièce jointe.
23/05/2013, 09h37
Jacques F.

VBA et Excel en Français!
Attention que selon les version d'Excel French et English ne régissent pas de la même façon! Trier sur "FALSE" ne fonctionne pas toujours en Excel French.
En effet, la valeur "FALSE" ne correspond pas au "FAUX" qui se trouve dans le tableur même.
Apparement, ceci varie en Excel 97, 2003 et 2010 (mes Excell sont utilisés par de nombreux utilisateurs indépendants).

Il peut être prudent de passer par des variables booléennes "pures". Donc écrire:
Code:

1 2 3 4 5 6 Sub Macro1() Dim MyTest As Boolean MyTest = False Selection.AutoFilter ActiveSheet.Range("$A$1:$B$11").AutoFilter Field:=1, Criteria1:=MyTest End Sub
23/05/2013, 11h30
Daniel.C

HS

Bonjour,

Ça va faire 8 mois que notre ami n'a pas donné signe de vie. Crois-tu qu'il est encore sur le coup ?