Discussion :

[michparmentier]

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

[Pierre Fauconnier]

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

[michparmentier]

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 :

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
Sub ExtractionAES()
'
' ExtractionAES Macro
' Macro enregistrée le 17/07/02 
'
 
'
    Range("Y5:AA378").Select
    Selection.Copy
    Sheets("Tableau AES").Select
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 1
    Range("F8").Select
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("F7:H381").Select
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("F8"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("G6").Select
    ActiveWindow.SmallScroll ToRight:=3
    ActiveWindow.SmallScroll Down:=86
    ActiveWindow.SmallScroll ToRight:=-1
    Range("F105:H383").Select
    Selection.ClearContents
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("G109").Select
End Sub

[Pierre Fauconnier]

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

1. Copier une plage de cellule d'une feuille à l'autre
2. Trier la plage de cellule
3. Aller vider une plage de données
4. 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

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

Ce code est plus facile à analyser et tu peux le suivre pas à pas avec F8 pour repérer où le bât blesse.

Ok?