Tri avec cellule fusionnée

ascal44 · 18 Avril 2008

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 · 19 Avril 2008

Re : Tri avec cellule fusionnée

Voci un exemple :

cbea · 19 Avril 2008

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 · 19 Avril 2008

Re : Tri avec cellule fusionnée

Une autre version avec ton dernier fichier.

ascal44 · 20 Avril 2008

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 · 20 Avril 2008

Re : Tri avec cellule fusionnée

Bonsoir ascal44,

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

Code:

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

par

Code:

    derLig = 100

ascal44 · 20 Avril 2008

Re : Tri avec cellule fusionnée

encore MERCI

Tri avec cellule fusionnée

ascal44

XLDnaute Occasionnel

ascal44

XLDnaute Occasionnel

Pièces jointes

cbea

XLDnaute Impliqué

Pièces jointes

cbea

XLDnaute Impliqué

Pièces jointes

ascal44

XLDnaute Occasionnel

cbea

XLDnaute Impliqué

ascal44

XLDnaute Occasionnel

Discussions similaires