Contenu récent par Zz95

Gégé, il y a une petit modif à faire en VBA dans ton fichier no Lambda.

J'ai réussi il faut enlever le 2 après ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add2 sur toutes les lignes. Et ça fonctionne. Gégé, je te laisse republier ton beau travail !!!

Bonsoir, Oui, cela à résolu le pb. Mais le double clique sur classement fait un débogage, à la ligne suivante : ActiveWorkbook.Worksheets("Classement").Sort.SortFields.Add2 Key:=Range( _ "I2:I" & fin), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal