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

 

[patricktoulon]

de rien bonne nuit

 

[ChTi160]

Merci

 

[patricktoulon]

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

 

[ChTi160]

Merci
j'y vais Lol
Bonne nuit
jean marie

 

[cp4]

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

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

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.

 

[eric72]

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

 

[patricktoulon]

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

 

[eric72]

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

 

[cp4]

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

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.

 

[cp4]

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

Oui, moi j'ai vu

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.

 

[eric72]

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

 

[cp4]

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()

 

[eric72]

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

 

[patricktoulon]

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

 

[ChTi160]

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