Macro de trie et de déplacement de lignes excel

Version imprimable

06/03/2015, 16h23
saninx

Macro de trie et de déplacement de lignes excel

Salut,
je suis nouveaux en programmation de macros sur office et j'aimerais avoir de l'aide pour réaliser un macro qui permet de trier un tableau excel associé à un deuxième qui copiera ou triera le contenu trier vers un autre tableau semblable à celui trié. de façon général trier un tableau et affecter les différents tries à différents tableau sur d'autres feuilles ou d'autres classeurs Excel.

Merci de bien vouloir me venir en aide !
06/03/2015, 17h00
Kimy_Ire
Bonjour saninx,

Citation:

je suis nouveaux en programmation de macros sur office

Dans ce cas, commence par :
1. Onglet Développeur > Clic sur "Enregistrer une macro"
2. Clic sur "Ok"
3. Réalise tes différentes actions de tri, de déplacement etc...
4. Onglet Développeur > Clic sur "Arrêter l'enregistrement"
5. ALT + F11
Tu auras déjà une première idée du code que tu peux faire ! :ccool:

Cordialement,
Kimy
09/03/2015, 14h28
saninx

Merci, j’effectue des testes et je vous tien informé du résultat.

entre temps si quelqu'un a déjà effectué un tel macro qu'il me guide avec sont code !

Merci.
10/03/2015, 11h11
Nico Chg

Bonjour ser chevalier !

Citation:

Envoyé par saninx

qu'il me guide avec sont code !

Il en sera fait selon vos ordres !

...

Trêves de plaisanteries, je n'ai pas tout à fait compris ta demande, as tu réussi à faire quelques choses avec l'enregistreur de macro ? Si oui, qu'est ce que ça donne ?

Sinon, peux tu poster une image (et pas un classeur exemple, je ne les ouvre pas), pour que l'on puisse se faire une idée un peu plus claire de ce que tu veux faire ?

Après mon test, voila ce que l'enregistreur de macro donne , c'est ce tri que je veux rendre dynamique quelque soit le tableau sur lequel il est appliqué.

code:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Triavtrnv()
'
' Triavtrnv Macro
'
 
 
'
'
'
 
 
    Range("5:5,8:8,10:10,12:12,17:17,19:19,20:20").Select
    Range("A20").Activate
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Retraits").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Liste envoyée").Select
    Range("5:5,8:8,11:11,16:16,19:19,20:20").Select
    Range("A20").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Incorporations").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Liste estimé").Select
    Range("2:2,3:3,4:4,6:6,7:7,9:9,11:11,13:13,14:14,15:15,16:16,18:18").Select
    Range("A18").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Nouvelle liste estimée").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("Incorporations").Select
    Range("2:2,3:3,4:4,5:5,6:6,7:7").Select
    Range("A7").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Nouvelle liste estimée").Select
    Range("A14").Select
    ActiveSheet.Paste
    Range("H21").Select
End Sub

13/03/2015, 15h42
Kimy_Ire

Bonjour saninx,

Je ne vois aucun filtre dans ton enregistreur de macro...
Tu dois filtrer tes lignes/colonnes ?

Soit clair dans une explication bien formulée car je ne vois pas ce que tu souhaites au final.

Cordialement,
Kimy
13/03/2015, 15h57
Nico Chg

Bonjour,

N'hésite pas à mettre ton code entre balise # ([CODE][ /CODE]), ça le rendrais plus lisible !

Sinon, bah on voit que tu fais pas mal de copier/coller à différent endroit, le but c'est de faire des copy paste ?

N'hésite pas non plus à poster des images, on risquerai de pouvoir visualiser ce que tu veux faire !

4 pièce(s) jointe(s)

J'ai effectué mes différents tris correctement et voila le résultat :

Comme vous pourrai le constater sur les images , je part de 2 liste une liste estimée et une nouvelle liste.
à partir de ces 2 listes j'aimerai avoir le nom des personnes qui ont été retirées de la liste estimée, et les personnes qui ont été ajoutées
à la nouvelle liste. c'est le but du programme que je souhaite mettre en place.

sur l'écrant je commence par une recherche verticale et j'aimerai que la suite se face automatiquement. voici ce que donne l'enregistreur de macro.
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 25 26 27 28 29 30 31 32 33 34 35 36 Sub Trimacro() ' ' Trimacro Macro ' ' Selection.AutoFilter Selection.AutoFilter Selection.AutoFilter Application.WindowState = xlNormal ActiveSheet.Range("$F$1:$F$21").AutoFilter Field:=1, Criteria1:="#N/A" Range("A5:E20").Select Selection.Copy Sheets("Retraits").Select Range("A2").Select ActiveSheet.Paste Sheets("Liste envoyée").Select Columns("F:F").Select Application.CutCopyMode = False Selection.AutoFilter ActiveSheet.Range("$F$1:$F$21").AutoFilter Field:=1, Criteria1:="#N/A" Range("A5:E20").Select Selection.Copy Sheets("Incorporations").Select Range("A2").Select ActiveSheet.Paste Sheets("Liste estimé").Select Application.CutCopyMode = False Selection.AutoFilter Sheets("Liste envoyée").Select Selection.AutoFilter Sheets("Retraits").Select End Sub