XL 2013 Tri

M

Moreno076

XLDnaute Impliqué

• 4 Avril 2020

• #2

Ca me met toujours cette erreur là

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 4 Avril 2020

• #3

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

VB:

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]")...

 

Dernière édition: 4 Avril 2020

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 4 Avril 2020

• #4

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

 

Pièces jointes

• Gestion ruptures.xlsm

  140.8 KB · Affichages: 3

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 4 Avril 2020

• #5

Re,

VB:

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

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 4 Avril 2020

• #6

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.

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 4 Avril 2020

• #7

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

 

Pièces jointes

• Gestion ruptures.xlsm

  141.6 KB · Affichages: 4

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 4 Avril 2020

• #8

dg62 à dit:

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

Cliquez pour agrandir...

oula ca me fait n'importe quoi du coup

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 4 Avril 2020

• #9

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

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 4 Avril 2020

• #10

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

 

Vote positif 0 Vote négatif