Microsoft 365 ListBox Multipage

eric72 · 29 Septembre 2021

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

cp4 · 30 Septembre 2021

eric72 à dit:
J'ai essayé ce code mais cela fonctionne que si on modifie txtpoidsbox, ça ne s'affiche par défaut
J'espère être assez clair
Merci
Eric

Il faut mettre TxtPrixKgTrans = (CDec(TxtCoutBox) / CDec(TxtPoidsBox)) * CDec(TxtCoeffTransBox)
en fin de la procédure: Private Sub LisCoutTransAval_Click()

ChTi160 · 30 Septembre 2021

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 · 30 Septembre 2021

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 ?

VB:

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 · 30 Septembre 2021

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

ChTi160 · 30 Septembre 2021

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

VB:

 Msgbox Range("t_Test").ListObject.ShowTotals

renvoie True ou False selon
Jean marie

patricktoulon · 30 Septembre 2021

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

VB:

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 · 30 Septembre 2021

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

ChTi160 · 30 Septembre 2021

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

VB:

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 · 30 Septembre 2021

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 · 30 Septembre 2021

hip hip hourra Lol

patricktoulon · 30 Septembre 2021

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 · 30 Septembre 2021

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

VB:

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

Bonne journée
Jean marie

Microsoft 365 ListBox Multipage

eric72

XLDnaute Accro

Pièces jointes

cp4

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Discussions similaires