macro en grève

[rogerone]

Bonjour,

Pour trier un tableau de 11 lignes et 2 colonnes j'ai écrit une macro que voici

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub TRI()
'
' TRI Macro
' Macro recorded 20/09/2004 by GEORGES Jean-François
'
' Keyboard Shortcut: Ctrl+Shift+T
'
    Sheets("Récap. H").Select
    Cells.Replace What:="F.G.", Replacement:="-1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A4:B15").Select
    Selection.Sort Key1:=Range("B4"), Order1:=xlDescending, Key2:=Range("A4") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
        Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal
end sub

Pour une raison inconnue cette macro ne fonctionne plus .Je n'y ai apporté aucun changement.Elle a fonctionné durant des mois et depuis peu elle n'en veut plus;Le tri ne s'effectue plus.

Une faiblesse de Ecel3 que j'utilise avec XP peut-elle en être la cause.

Merci de m'aider;

pour la personne qui voudrait traiter ce problème je suis disposé à envoyer tout le programme avec les explications qu'il Faut

Rogerone

[Jean-Pierre49]

Bonjour,

Essais en remplacant

Code :

1
2
3
4
5
Range("A4:B15").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlDescending, Key2:=Range("A4") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal

Par

Code :

Range("A4:B15").Sort Key1:=Range("B4"), Order1:=xlDescending, Key2:=Range("A4"), Order2:=xlAscending, Header:=xlNo

Tu dit
(Mets les balises a ton code STP)
Bon courage