macro en grève

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

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