XL 2013 Tri

[Moreno076]

Bonjour à tous,

Dans mon tableau ci joint je n'arrive pas à faire un tri alphabétique des lignes de la colonne C par macro. Pouvez vous m'aider svp.

 

[Moreno076]

Ca me met toujours cette erreur là

 

[dg62]

Bonjour Moreno
Vous pouvez procéder de la sorte T_designations est le nom de votre tableau à remplacer par le nom réel.

Sub T_designations()
Dim T_designations as ListObject
Set T_designations = Worksheets("synthese").listobjects("T_designations")
T_designation.DataBodyRange.sort Key:=Range("T_designations[designation]")...

 

[Moreno076]

Bonjour dg62.
Mon tableau s'apelle Tableau3

Sub T_designations()
Dim Tableau3 as ListObject
Set Tableau3 = Workshetts("synthese").listobjects("Tableau3")
Tableau3.DataBodyRange.sort Key:=Range("Tableau3[designation]")...

Comme ça?

Merci

 

[dg62]

Re,

Sub T_designations()
' T_DESIGNATIONS
 
Dim Ds As ListObject
Set Ds = Worksheets("synthèse").ListObjects("Tableau3")
Ds.DataBodyRange.Sort Key1:=Range("Tableau3[désignation]"), Order1:=xlAscending, _
                                      Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[Moreno076]

Merci ca fonctionne par contre lorsque je clique sur documentation et que je reviens sur synthèse ca se remet dans un autre tri et je ne trouve pas dans visual basic où intervenir trop compliqué pour moi c'est dommage.

 

[dg62]

Re,
J'ai copié le code dans la bonne macro

 

[Moreno076]

Re,
J'ai copié le code dans la bonne macro

oula ca me fait n'importe quoi du coup

 

[dg62]

Pouvez-vous m'expliquer ce que vous faites pour avoir cela ?

 

[Moreno076]

C'est bon tout fonctionne pour finir ;-) Merci bien