Discussion :

[Foucma]

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

[CristofMartins]

Salut,
D'apres ce que je comprend tu veux trier tes données et ca ne marche pas ?

[Foucma]

Oui c'est ça.
La macro s'effectue mais rien n'est ajouté dans le tableau.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

... .autofilter.

c'est une petite partie de code que tu a lorsque tu fais le trie.

[Daniel.C]

Bonjour,

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 ?

[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.

[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

[Philippe Tulliez]

Bonjour,

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.