Problème de tri de ligne de différentes hauteurs

[Michou9]

Bonjour


Je constate des problèmes très importants quand je réalise un tri dans ma feuille

Mon tableau comporte des lignes de différentes hauteurs

Lorsque je fais un tri, les lignes sont bien triées, mais la hauteur ne suit pas les lignes triées

Ma présentation est perdue !

J’ai fait un tableau en exemple ci-joint avec des explications que j’espère plus parlantes



Merci pour une éventuelle solution ….

 

[hoerwind]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour,

Cette question n'a-t-elle pas déjà fait l'objet d'un autre message :
https://www.excel-downloads.com/threads/probleme-de-tri-de-ligne-de-differentes-hauteurs.140014/
Dédoubler des questions n'est pas fort apprécié sur ce forum, vois la charte.

Trier déplace le contenu des cellules, pas les cellules elles-mêmes.
Par manipulation simple je crains que ce ne soit pas possible de réaliser ce que tu souhaites.
Peut-être par macro, mais là je ne puis t'aider.

 

[Michou9]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour

J'avais effectivement déjà poser ce problème

Mais mon exemple manquait manifestement de clarté, tout comme ma demande

J'ai donc préféré refaire complètement ma demande et refaire un autre exemple avec cette fois des explications détaillées

Je n'ai pas voulu manqué d'impatience, ni essayé de tricher, mais simplement corriger mon erreur dans mon exposé.

Je suis nouveau venu sur ce blog et je voudrai surtout pas mal interpréter son règlement

Je prend note que Excel ne tri pas les cellules mais leur contenu
Ce que j'avais moi-même constaté

Je ne souhaite pas recourir à des macros pour modifier ce problème

Je souhaitais juste savoir, si il avait des options qui me sauraient inconnues et qui permettraient de lier les cellules à leurs contenus lors d'un tri

Merci

Cordialement

 

[hoerwind]

Re : Problème de tri de ligne de différentes hauteurs

Re,

Pas à ma connaissance.

 

[JCGL]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Sub Trie_Ajuste()
    Dim X As Byte
    Range("A2:N16").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
    For X = 2 To 16
        If Range("A" & X).Interior.ColorIndex = 36 Then
        Range("A" & X).RowHeight = 20
    Else
    Range("A" & X).RowHeight = 12.75
    End If
    Next
End Sub

A+ à tous

 

[Michou9]

Re : Problème de tri de ligne de différentes hauteurs

Bonsoir JCGL

Merci beaucoup pour ta macro

Elle fonctionne parfaitement

Comme je souhaitais faire également un tri de la colonne C
je m'en suit servit pour écrire une nouvelle macro
Cela fonctionne à merveille pour les 2 colonnes

Une chose m'étonne cependant dans cette macro :

quand tu définis la zone Range ("A2:N16")
et que mets For X = 2 To 16


Je m'attendais à être obligé de modifier ma macro à chaque fois que mon tableau s'agrandirait

Mais non ! cela continu à fonctionner à merveille même si je rajoute des lignes ????

Tant mieux, mais je ne comprends pas 😕

Une petite chose, comment obtenir le code d'une couleur que j'ai choisit ?

Merci d'avance

 

[JCGL]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour à tous,

Il est étonnant que cela fonctionne au delà de la ligne 16....

Un code adapté pour la couleur de fond jaune en A et un code pour l'ajustement sur la valeur "Type 4" (la MeFC n'est pas reconnue)

Un code pour créer la Palette des 56 Couleurs XL 2003

Option Explicit
Sub Trie_Ajuste_sur_Couleur()
    Dim X As Long
    Application.ScreenUpdating = 0
    Range("A2:N" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
    For X = 2 To Range("A65536").End(xlUp).Row
        If Range("A" & X).Interior.ColorIndex = 36 Then
            Range("A" & X).RowHeight = 20
        Else
            Range("A" & X).RowHeight = 12.75
        End If
    Next
End Sub
Sub Trie_Ajuste_sur_Type()
    Dim X As Long
    Application.ScreenUpdating = 0
    Range("A2:N" & Range("A65536").End(xlUp).Row).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
    For X = 2 To Range("A65536").End(xlUp).Row
        If Range("C" & X) = "Type 4" Then
            Range("C" & X).RowHeight = 20
        Else
            Range("C" & X).RowHeight = 12.75
        End If
    Next
End Sub
Sub PaletteCouleur()
    Dim Couleur As Long
    Application.ScreenUpdating = 0
    Feuil2.Range("A1:B57").EntireRow.Delete
    Feuil2.Cells(1, 1).Value = "Couleur"
    Feuil2.Cells(1, 2).Value = "Code"
    For Couleur = 1 To 56
        Feuil2.Cells(1 + Couleur, 1).Interior.ColorIndex = Couleur
        Feuil2.Cells(1 + Couleur, 2).Value = Couleur
    Next
End Sub

A+ à tous

 

[Michou9]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour

J’avais mal analysé, effectivement le tri ne s’opérait plus au-delà de la ligne 16

Maintenant c’est parfait, quelque soit la longueur du tableau, les 2 macros s’opèrent parfaitement.

Par contre je ne comprends pas la macro « Palette couleur »
Comment dois-je l’utiliser ?
Et quel résultat me permet-elle d’obtenir ?

Je que je souhaitais trouver, c’était en sélectionnant une couleur que j’avais choisis pour une cellule, prenons pas exemple le jaune qui correspond au « Type 4 » dans mon tableau
A partir de cette couleur soit pas une fonction Excel, soit pas une macro, si il n’a pas de fonction pour permette cela dans Excel.

Il y a beaucoup de jaunes, et c’est très difficile de discerner parmi tous les jaunes dans la liste des codes, celui qui correspond à celui que j’ai sélectionné.

Je me limite en général aux 40 couleurs de base que propose Excel à l’origine, mais je ne connais pas le code de ces 40 couleurs et on peut faire varier ces couleurs.

A plus et en attendant, merci beaucoup pour les 2 macros

 

[jeanpierre]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour,

Sur ce fil, issu d'une petite RECHERCHE sur le site, tu trouveras les codes couleurs :

https://www.excel-downloads.com/threads/quel-code-pour-cette-couleur.135556/

Bon après-midi.

Jean-Pierre

 

[Michou9]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour

Merci Jean Pierre

La macro correspond bien à ce que je veux
en Plus la table de couleurs, c"est super

Mais par contre, le résultat est paramétré pour pour la ligne 4 et les cellules de B à F.

Je suis très novice dans l'écriture de macro

Et j'aimerais la transcrire pour que le résultat apparaisse dans la cellule même, celle où je souhaite connaître le code couleur, ou si c'est pas possible la cellule située juste à droite

En clair, je souhaiterais que la macro me permette de faire cela:
J'ai une cellule jaune par exemple, situé n'importe où (exemple M13)
je me mets sur la cellule M13
J'active la macro couleur
et le code s'inscrit dans la cellule M13 (ou M14)
Je vais ensuite sur la cellule R20
Je réactive la macro ......

Est-ce possible ?

Cordialement

 

[Jeanexcel]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour,
Qu'y à t-il de mis en place pour utiliser ctrl T?

Ne pouvez-vous pas utiliser des hauteurs de lignes identiques?

cordialement,
J.e.

 

[Michou9]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour Jeanexcel

Je ne comprends pas bien ta remarque ?

 

[JCGL]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour à tous,

Pareil...
La demande de Michou9 spécifiait justement une hauteur de cellule plus importante sur un critère...

A+ à tous

 

[Michou9]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour JCGL

As-tu remarqué ma question (un peu plus haut) au sujet ta macro « Palette couleur »

Par contre je ne comprends pas la macro « Palette couleur »
Comment dois-je l’utiliser ?
Et quel résultat me permet-elle d’obtenir ?

Jean Pierre m'a fait part d'un macro qui me permet de visualiser le code couleur
seulement elle est paramétrée pour un groupe de cellules défini.
J'aimerais avoir une macro qui me permette cela dans n'importe quel cellule active.

 

[JCGL]

Re : Problème de tri de ligne de différentes hauteurs

Bonjour à tous,

La macro 'Palette Couleur' ne fait que recenser et visualiser les 56 couleurs XL 2003.

Je regarde pour cette demande.

A+ à tous