Microsoft 365 ListBox Multipage

patricktoulon

XLDnaute Barbatruc

• 29 Septembre 2021

• #16

de rien bonne nuit

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 29 Septembre 2021

• #17

Merci

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Septembre 2021

• #18

re
tu peux l'ecrire comme ça aussi sans préciser la feuille parent
MsgBox Range("tableau1[#all]").Columns(1).SpecialCells(xlVisible).Cells.Count > 1

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 29 Septembre 2021

• #19

Merci
j'y vais Lol
Bonne nuit
jean marie

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 30 Septembre 2021

• #20

patricktoulon à dit:

re
allons allons cesse tes enfantillages
tiens pour éviter les erreurs on prend le #all

VB:

Sub test()
    With ActiveSheet.ListObjects("Tableau1").Range
        .AutoFilter Field:=1, Criteria1:="blablabla"
        MsgBox .Columns(1).SpecialCells(xlVisible).Cells.Count > 1
      End With
End Sub

maintenant tu sais comment savoir si un filtre dans un TS donne un tableau visible ou pas
Regarde la pièce jointe 1116855

Cliquez pour agrandir...

Bonjour eric72 ,patricktoulon ,ChTi160

@patricktoulon :Ton code fonctionne bien sauf s'il y a la ligne Total.
En effet, j'ai effectué un test sur un tableau qui a la ligne total. Donc, même si la donnée n'existe pas (càd pas de ligne visible), il y aura toujours la ligne total visible et du coup, le résultat est toujours vrai.

Bonne journée.

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 30 Septembre 2021

• #21

Bonjour,
Bravo pour ces démonstrations...

J'ai encore une interrogation, dans mon userform onglet "Comm.Centr, lorsque je le lance j'aimerais que le prix au Kg se mette à jour , j'ai donc mis une formule:
If TxtPoidsBox.Value <> "" And TxtCoutBox.Value <> "" And TxtCoeffTransBox.Value <> "" Then
TxtPrixKgTrans = (CDec(TxtCoutBox) / CDec(TxtPoidsBox)) * CDec(TxtCoeffTransBox)
Mais je ne sais pas si je la met au bon endroit, j'ai tenté sur le click de la listbox, ça ne marche pas, j'ai aussi essayé dans le change des textbox et ça ne marche pas non plus!!!
Auriez-vous une idée?
Merci Eric

 

Pièces jointes

• Fiche Produit test.xlsm

  271.7 KB · Affichages: 5

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Septembre 2021

• #22

re
Bonjour @cp4 pour info je parle de tableaux structuré(listobject) pas de TCD

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 30 Septembre 2021

• #23

Re
Oui je l'ai bien compris comme ça!!!
Par contre avez-vous pu jeter un coup d'oeil à mon problème ci-dessus, j'ai toujours beaucoup de mal avec les calculs dans textbox, c'est une vraie galère pour moi
Merci beaucoup
Eric

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 30 Septembre 2021

• #24

patricktoulon à dit:

re
Bonjour @cp4 pour info je parle de tableaux structuré(listobject) pas de TCD

Cliquez pour agrandir...

Re Patrick,
Qui a parlé de TCD? Une démo de ta procédure sur un tableau structuré avec sa ligne total.


Bonne journée.

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 30 Septembre 2021

• #25

eric72 à dit:

Re
Oui je l'ai bien compris comme ça!!!
Par contre avez-vous pu jeter un coup d'oeil à mon problème ci-dessus, j'ai toujours beaucoup de mal avec les calculs dans textbox, c'est une vraie galère pour moi
Merci beaucoup
Eric

Cliquez pour agrandir...

Oui, moi j'ai vu

VB:

Private Sub TxtPoidsBox_afterupdate()
If TxtPoidsBox.Value <> "" And TxtCoutBox.Value <> "" And TxtCoeffTransBox.Value <> "" Then
      TxtPrixKgTrans = (CDec(TxtCoutBox) / CDec(TxtPoidsBox)) * CDec(TxtCoeffTransBox)
End If
End Sub

AfterUpDate===>après mise à jour qui ne s’exécute qu'avec la touche entrée ou sortie de la textbox concernée ou clic sur un autre controles.

Le calcul se fait dans TxtPrixKgTrans. Pas compris pour la suite.

Bonne journée.

 

Vote positif 1 Vote négatif

E

eric72

XLDnaute Accro

• 30 Septembre 2021

• #26

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 30 Septembre 2021

• #27

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Solution

E

eric72

XLDnaute Accro

• 30 Septembre 2021

• #28

Que je suis bête, c'est tellement simple
Merci 1000 fois
Bonne journée
Eric

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Septembre 2021

• #29

comment tu met la ligne total dans un TS ?
non c'est bon j'ai trouvé tout seul

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 30 Septembre 2021

• #30

Bonjour
Effectivement après avoir inséré la Ligne total du ListObject ca renvoie vrai
alors que If Range("t_Test").Height = 0 Then Exit Sub renvoie faux
jean marie

 

Vote positif 0 Vote négatif