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

 

[skoobi]

Re : Tri avec cellule fusionnée

Bonsoir,

Sans le fichier ce sera difficile de t'aider.

 

[chris]

Re : Tri avec cellule fusionnée

Bonjour

Les fusions sont sources de problème.

Utiliser Centrer sur plusieurs colonnes.

 

[ascal44]

Re : Tri avec cellule fusionnée

Bonsoir , excusez moi : voici le fichier

 

[BOISGONTIER]

Re : Tri avec cellule fusionnée

Bonjour,


Il faut supprimer les fusions de cellules en colonnes J:K


JB

 

[ascal44]

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

 

[BOISGONTIER]

Re : Tri avec cellule fusionnée

Les colonnes J,K,L,M fusionnées ne servent à rien. Il suffit d'avoir une seule colonne.

JB

 

[JCGL]

Re : Tri avec cellule fusionnée

Bonjour à tous,

Peux-tu essayer avec :

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+

 

[ascal44]

Re : Tri avec cellule fusionnée

Merci JCGL,

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 ?

 

[chris]

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 !

 

[ascal44]

Re : Tri avec cellule fusionnée

Pour une question de présentation lorsque j'imprime la page.

 

[jeanpierre]

Re : Tri avec cellule fusionnée

Bonjour à tous,

Choisir : Centré sur plusieurs colonnes, c'est moins secrétaire mais tellement plus propre. Vba, là, sait faire...

 

[JCGL]

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+

 

[ascal44]

Re : Tri avec cellule fusionnée

En fait dans le classeur original il s'agit bien des cellule M,N,O,P.

En fait j'ai joint un extrait du classeur en colonne A,B et C j'ai d'autres données.

 

[JCGL]

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+