Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Tri avec cellule fusionnée

ascal44

XLDnaute Occasionnel
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

XLDnaute Occasionnel
Re : Tri avec cellule fusionnée

Bonsoir , excusez moi : voici le fichier
 

Pièces jointes

  • Classeur1.xls
    19 KB · Affichages: 177
  • Classeur1.xls
    19 KB · Affichages: 173
  • Classeur1.xls
    19 KB · Affichages: 189

ascal44

XLDnaute Occasionnel
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
 

JCGL

XLDnaute Barbatruc
Re : Tri avec cellule fusionnée

Bonjour à tous,

Peux-tu essayer avec :

Code:
COption Explicit

Sub CASE_Décroissant()
ActiveSheet.Unprotect
[COLOR=Blue][B]Cells.UnMerge[/B][/COLOR]

Range("A15:N65536").Sort Key1:=Range("I15"), Order1:=xlDescending
Range("G15").Select
Columns("J:J").AutoFit
End Sub
Tout comme mes camarades : les cellules fusionnées sont difficiles à gérer, c'est pourquoi il vaut mieux mettre un ajustement automatique sur J.

A+
 
Dernière édition:

chris

XLDnaute Barbatruc
Re : Tri avec cellule fusionnée

Bonjour

Mais à quoi sert cette fusion ?
Comme BOISGONTIER je n'en vois pas l'intérêt.
Surtout s'il faut défusionner puis refusionner par macro !
 

JCGL

XLDnaute Barbatruc
Re : Tri avec cellule fusionnée

Bonjour à tous,

Le code fonctionne, mais serait il possible de refusionner et d'aligner le texte à gauche sur chaque lignes pour les cellules M ,N ,O, P ?

Pourrais-tu redéfinir EXACTEMENT les colonnes à fusionner, puisque c'est que tu souhaites, malgré les différents avis...

pour les cellules M ,N ,O, P
, est en contradiction avec le fichier déposé qui commence en COLONNE J

A+
 

JCGL

XLDnaute Barbatruc
Re : Tri avec cellule fusionnée

Re,

Pourrais-tu déposer un fichier EXACT qui reproduirait EXACTEMENT ce que tu souhaites malgré les avertissements sur les cellules fusionnées...

A+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…