Re : Tri avec cellule fusionnée
Bonjour, n'y aurait-il pas une autre solution ? Un code supplémentaire à insérer dans celui ci :
Sub CASE_Décroissant()
ActiveSheet.Unprotect
Range("A15:N65536").Sort Key1:=Range("I15"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("G15").Select
End Sub
Car la fusion des cellules J:K est réalisée jusqu'à la dernière ligne du tableau.
(C'est un extrait du tableau que j'ai joint)
Merci pour votre aide