مشكل في الفرز التلقائي

[لزهر مدلل]

السلام عليكم

قمت بتنزيل كود vb يقوم بالفرز التلقائي عند التغيير في عمود معين لكن لم يعمل و تظهر رسالة خطأ للعلم الملف به جدول ديناميكي و إذا قمت بإلغائه يعمل الكود بشكل صحيح

الملف في المرفقات

 

Suivi.xlsm

[محي الدين ابو البشر]

عليكم السلام

جرب

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("f:f")) Is Nothing Then
    Range("Tableau2[[#Headers],[#Data]]").Sort Key1:=Range("f1"), Order1:=xlAscending, Header:=xlYes
    End If
End Sub

 

[لزهر مدلل]

بارك الله فيك أخي الكريم

[محي الدين ابو البشر]

بارك الله

[لزهر مدلل]

السلام عليكم

ممكن تعديل في الكود ليصبح فرز مخصص أي بعد الفرز في العمود F  يقوم بفرز العمود B

هذا الكود كنت أستعمله يدويا

Sub Triage()
    ActiveWorkbook.Worksheets("BLF").ListObjects("Tableau2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("BLF").ListObjects("Tableau2").Sort.SortFields.Add _
        Key:=Range("Tableau2[Date Echeance]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("BLF").ListObjects("Tableau2").Sort.SortFields.Add _
        Key:=Range("Tableau2[Client]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("BLF").ListObjects("Tableau2").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[محي الدين ابو البشر]

هكذا؟

Sub Triage()
With ActiveWorkbook.Worksheets("BLF").ListObjects("Tableau2")
   .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("Tableau2[Date Echeance]")
    .Sort.SortFields.Add2 Key:=Range("Tableau2[Client]")
        With .Sort
        .Header = xlYes
        .Apply
    End With
    End With
End Sub

 

[لزهر مدلل]

هذا هو بوركت أخي الكريم و وفقك الله