Longueur tableau + tri

Bonsoir le forum,

Je souhaiterais dans le tableau ci-joint que la longueur des lignes du tableau s'adaptent selon les lignes de données

(dans l exemple ci joint L13). Et que le tri se fasse automatiquement sur la colonne désignation.

J'ai recherché dans les modules mais c'est trop compliqué pour moi.

Merci à vous.

Bonjour Moreno076

Si c'est dans ta feuille synthèse que tu veux ajuster les colonnes et trier sur Désignation, essaie cela :

Range("Tableau3").Columns.AutoFit
ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort.SortFields. _
 Clear
ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort.SortFields. _
        Add2 Key:=Range("Tableau3[Désignation]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
End With

Bonne journée

Bonjour Patty5046

Ca n'a pas l'air de fonctionner je ne sais pas si je l'ai bien placé.

Merci

Bonjour moreno

Désolée, beaucoup de travail en ce moment. Je viens de revoir ton problème,,, je n'y comprend plus rien

Donc repose ta question sous cette forme :

Adapter longueur de lignes et tri automatique

Car je ne vois pas où est le problème

J'espère que tu trouveras la solution ainsi

Bonne journée et encore excuses

Bonjour

Je souhaiterais que la colonne désignation de l'onglet synthèse se classe par ordre alphabétique.

Avec ta macro ca le fait pas de soucis.

Je souhaite juste cela. Pour le reste je me suis débrouillé. Merci bien.

Par contre avec ta macro, ca réduit également la largeur des colonnes ce que je ne veux pas.

Range("Tableau3").Columns.AutoFit

ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort.SortFields. _

Clear

ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort.SortFields. _

Add2 Key:=Range("Tableau3[Désignation]"), SortOn:=xlSortOnValues, Order:= _

xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Synthèse").ListObjects("Tableau3").Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.Apply

Merci bien.

C'est le autofit qui allait pas merci

Bonjour Moreno

J'étais sur un autre sujet

Je viens de voir que tu as réussi Super

Bonne fin de journée

Bonsoir Moreno076

Bonne soirée

Rechercher des sujets similaires à "longueur tableau tri"