Version imprimable
Salut à tous,
Je suis en train d'adapter un fichier avec une macro qui classe mes données par ordre décroissant sur une autre feuille.
Ca marchait mais j'ai ajouté une colonne dans mon fichier et il n'y a plus rien qui fonctionne. (si cela provient de ca ?)
J'ai essayé de bidouiller, mais étant donné que je n'y connait rien je n'arrive pas à solutionner mon problème.
Pourriez me dire ce qui ne va pas
Merci d'avance
Je met mon fichier en pièce jointe
Bonjour
Le mieux serait que tu donnes l'extrait du code de ta macro, en précisant un peu le contenu de ton fichier. Les fichiers joints ne devraient servir qu'exceptionnellement, lorsque la complexité de la situation empêche la rédaction d'une question claire (ce qui est plutôt rare...)
Merci donc de bien vouloir reformuler ta question en tenant compte de ce qui précède.
Bonne continuation sur nos forums
Bien je reformule,
J'ai une première feuille de résultats dans le désordre
J'ai une seconde feuille avec un tableau ('Tableau AES")
J'ai créer un bouton avec une macro qui contient ce code (ci après) pour pouvoir classer mes résultats qui sont dans le désordre dans ma seconde feuille par ordre décroissant
Au départ cela marchait puis j'ai fait des modifs de forme de mon premier document et ca ne marche plus et je ne comprend pas pourquoi (j'ai rajouté une colonne et j'ai modifié la sélection à prendre en compte, de Range("X5:Z378").Select vers Range("Y5:AA378").Select)
Et puis plus rien
MACRO :
Code:
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
Ok. Merci pour le "code"...
Je n'ai pas compris le Et puis plus rien...
Ton code illustre parfaitement le problème d'un code créé avec l'enregistreur puis que l'on essaie de modifier.
Je sais que même sur nos forums, certains conseillent d'utiliser l'enregistreur de macros, mais je trouve que ce conseil est souvent très mauvais!!. Le code créé de cette façon est souvent illisible, très difficilement maintenable et toujours trop lourd.
Ce que tu dois faire, c'est d'abord analyser ton contexte et le problème qui se pose à toi.
Si j'ai bien compris le code, tu souhaites
- Copier une plage de cellule d'une feuille à l'autre
- Trier la plage de cellule
- Aller vider une plage de données
- Mettre en forme cette plage de données
Voici un code plus propre pour les deux premiers points. Les deux points suivants devraient être créés dans une autre procédure, pour une facilité de maintenance du code, et tu appelles les deux procédures à la suite l'une de l'autre... Néanmoins, j'ai tout mis dans le même code pour une facilité de lectuer sur le forum
Ce code est plus facile à analyser et tu peux le suivre pas à pas avec F8 pour repérer où le bât blesse.Code:
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
35Dim PlageDepart As Range Dim PlageArrivee As Range Dim PlageQuadrillage As Range ' Copie de la plage de départ Set PlageDepart = Range(""Y5:AA378"") PlageDepart.Copy Sheets("Tableau AES").Range("f8").PasteSpecial xlPasteFormats Sheets("Tableau AES").Range("f8").PasteSpecial xlPasteValues Application.CutCopyMode = False ' Tri sur la plage d'arrivée Set PlageArrivee = Sheets("Tableau AES").Range("f7:h381") PlageArrivee.Sort key1:=PlageArrivee.Range("f7"), order1:=xlAscending, header:=xlYes ' Mise en forme du quadrillage Set PlageQuadrillage = Sheets("Tableau AES").Range("F105:H383") with PlageQuadrillage .ClearContents .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeTop).Weight = xlThin .Borders(xlEdgeTop).ColorIndex = xlAutomatic .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone end with set PlageDepart = Nothing set PlageArrivee = Nothing set PlageQuadrillage = Nothing
Ok?