Discussion :

[saninx]

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 !

[Kimy_Ire]

Bonjour saninx,

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 !

Cordialement,
Kimy

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

[Nico Chg]

Bonjour ser chevalier !

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 ?

[saninx]

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 :

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

[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