Microsoft 365 Modification macro

[Moreno076]

Bonjour

Dans la macro suivante je voudrais que ca fasse juste le tri par ordre alpha de la colonne désignation.

Là ca me le fait bien mais ca reduit la taille des colonnes.

Merci à vous


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

 

[Staple1600]

Bonjour le fil, Moreno076

•>Moreno076

Sub Tri_L_OBJ()
Worksheets("Synthèse").ListObjects("Tableau3").DataBodyRange.Sort Key1:=Range("Tableau3[Désignation]"), Order1:=xlAscending, Header:=xlYes
End Sub

Non testé puisque pas de fichier exemple fourni par tes soins.

EDITION: Bonjour sylvanu

 

[sylvanu]

Bonjour Moreno,
Supprimer AutoFit. C'est lui qui adapte la largeur des colonnes.

Range.AutoFit, méthode (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

 

[Moreno076]

Bonjour le fil, Moreno076

•>Moreno076

Sub Tri_L_OBJ()
Worksheets("Synthèse").ListObjects("Tableau3").DataBodyRange.Sort Key1:=Range("Tableau3[Désignation]"), Order1:=xlAscending, Header:=xlYes
End Sub

Non testé puisque pas de fichier exemple fourni par tes soins.

EDITION: Bonjour sylvanu

Bonjour Sylvanu, Bonjour Staple.

D'accord merci ca fonctionne.

Là je voudrais que les valeurs de la colonne J (Qté en attente) se mette sur toutes les lignes en doublon. Cette valeur est cherchée dans l'onglet Extractionreappro colonne K. Le point commun est la colonne Code (B dans synthese et A dans extraction reappro). La programmation est tellement complexe que je n'ose pas y toucher. Il vaut mieux faire une formule non? Merci