Tri avec cellule fusionnée

[ascal44]

Bonsoir à tous j'ai un souci de tri avec des cellules fusionnées.
Voici le code :
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


Comment contourner ce problème ?

Merci à tous

 

[ascal44]

Re : Tri avec cellule fusionnée

Voci un exemple :

 

[cbea]

Re : Tri avec cellule fusionnée

Bonjour à tous,

J'ai modifié la procédure de tri que tu avais fournie.
Tu devras adapter la procédure pour les colonnes fusionnées.

 

[cbea]

Re : Tri avec cellule fusionnée

Une autre version avec ton dernier fichier.

 

[ascal44]

Re : Tri avec cellule fusionnée

Merci CBEA, je n'ai pu te répondre plus tôt.
Celà fonctionne très bien, mais serait il possible de limiter la procédure jusqu'à la ligne 100 ?

 

[cbea]

Re : Tri avec cellule fusionnée

Bonsoir ascal44,

Dans la procédure "CASE_Décroissant", tu remplaces :

    derLig = Range("M10").SpecialCells(xlCellTypeLastCell).Row

par

    derLig = 100

 

[ascal44]

Re : Tri avec cellule fusionnée

encore MERCI