Microsoft 365 ListBox Multipage

[eric72]

Bonjour à tous,
je fais un essai sur un userform "multipage", ma listbox de l'onglet "pot" s'alimente bien mais j'ai un souci sur la listbox de l'onglet "plaque", j'ai tout essayé en vain.
Mais je suis bien sur que l'un d'entre vous va trouver le bug en 15 secondes.
Merci pour votre aide
Eric

 

[ChTi160]

Re Patrick
dans conception de la Table tu as "Ligne Total" en dessous de "ligne d'entêtes" !
il va dire : "aujourd'hui, j'ai appris quelque chose (donc bonne journée
Lol)
Bon je n'ai rien dit Lol
Moi c'est tous les jours Lol
jean marie

 

[patricktoulon]

re
Bonjour @ChTi160
bon ben voila vous l'avez avec la ligne "Total"

j'en ai même fait une fonction utilitaire
je l'ai appelé "IsEmpty_After_Filter" c'est suffisamment explicite je crois
c'est bo' la vie non ?

Sub test()
    With ActiveSheet.ListObjects("Tableau1").Range
        .AutoFilter Field:=1, Criteria1:="efrez"
    End With
        MsgBox IsEmpty_After_Filter(Range("Tableau1[#all]"), "Total")
End Sub


Function IsEmpty_After_Filter(rng As Range, title$)
   Dim t&
   With rng
        t = Abs(.Columns(1).Cells(.Columns(1).Cells.Count).Value = title)
        IsEmpty_After_Filter = Not .Columns(1).SpecialCells(xlVisible).Cells.Count - t > 1
    End With
End Function

 

[patricktoulon]

j'oubliais !!!
l'argument "Total" peux etre n'importe quelle de ces expressions

 

[ChTi160]

Re
si on enlève le Total ça fonctionne plus !
Peut-être en testant si la Ligne Total est Visible

 Msgbox Range("t_Test").ListObject.ShowTotals

renvoie True ou False selon
Jean marie

 

[patricktoulon]

re
@ChTi160
et bien soit si on a accès a cette propriété alors
on prend les mêmes et on recommence
je precise que j'ai testé sur un tableau avec ligne total et un sans

Sub test()
    With ActiveSheet.ListObjects("Tableau1").Range
        .AutoFilter Field:=1, Criteria1:="cefrez"
    End With
        MsgBox IsEmpty_After_Filter(Range("Tableau1[#all]"), "Total")
End Sub

Sub test2()
    With ActiveSheet.ListObjects("Tableau2").Range
        .AutoFilter Field:=1, Criteria1:="cefrez"
    End With
        MsgBox IsEmpty_After_Filter(Range("Tableau2[#all]"), "Total")
End Sub

Function IsEmpty_After_Filter(rng As Range, title$)
   Dim t&
   With rng
        t = Abs(rng.ListObject.ShowTotals)
        IsEmpty_After_Filter = Not .Columns(1).SpecialCells(xlVisible).Cells.Count - t > 1
    End With
End Function

 

[ChTi160]

Bonjour Patrick
J'aime ta ténacité lol
Mais y'a plus besoin de "Total" non ?
jean marie

 

[ChTi160]

euh
Je sais pas si je me suis bien fait comprendre Lol
je parlais de ça !
On supprime "Total" et donc "title$"

Sub test()
    With ActiveSheet.ListObjects("Tableau1").Range
        .AutoFilter Field:=1, Criteria1:="cefrez"
    End With
        MsgBox IsEmpty_After_Filter(Range("Tableau1[#all]"))
End Sub

Sub test2()
    With ActiveSheet.ListObjects("Tableau2").Range
        .AutoFilter Field:=1, Criteria1:="cefrez"
    End With
        MsgBox IsEmpty_After_Filter(Range("Tableau2[#all]"))
End Sub

Function IsEmpty_After_Filter(rng As Range)
   Dim t&
   With rng
        t = Abs(rng.ListObject.ShowTotals)
        IsEmpty_After_Filter = Not .Columns(1).SpecialCells(xlVisible).Cells.Count - t > 1
    End With
End Function

Bonne journée
jean marie

 

[patricktoulon]

re
ok avec ce contrôle par la propriété il est difficile de cerner l'expression
donc oui tu peux le supprimer
puisque de toute façon la dernière ligne si total même si je met une autre expression sera toujours la ligne total

+1 pour jean-marrie

 

[ChTi160]

hip hip hourra Lol

 

[patricktoulon]

voilà maintenant tu sais comment faire pour tester
sans aller chercher le height du je sais pas quoi truc muche bidule
un TS et/ou range ont des property et fonctions on s'en sert

 

[ChTi160]

Re
Comment Lol, je conserve ma version, qui fonctionne très Bien !
Elle utilise une propriété du DataBodyRange qui n'a rien à voir avec le Chimilimblick !
soit

 Range("t_Test").Height = 0 'si pas de ligne visible

Bonne journée
Jean marie