XL 2016 PB format dans listbox après recherche intuitive

ChTi160

XLDnaute Barbatruc

• 1 Septembre 2020

• #2

Bonjour RobyL
Il faut savoir que la listbox chargée via AddItem n'accepte que 10 colonnes.
Pas d'ordi sous la main lol
Jean marie

 

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 1 Septembre 2020

• #3

bonjour Cthi160, je suis arriver à mettre 21 colonnes mais il m'en manque 5 snif

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 1 Septembre 2020

• #4

Re
après ouverture de ton fichier , pour ce qui est des Colonnes prise en compte l'erreur provoquée vient du fait que dans ta procédure (raz , ListBox1_Click Etc etc) tu fais références a des TextBox qui ne sont pas présents sur ton Userform.
jean marie

 

Dernière édition: 1 Septembre 2020

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 1 Septembre 2020

• #5

en effet j'avais remarquer se défaut. je l'ai modifier mais cela ne met que 21 colonne pas plus.
je met le dernier fichier que j'ai modifier (j'aurai dut mettre celui la tous de suite)

 

Pièces jointes

• essaie 11.xlsm

  501.8 KB · Affichages: 6

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 1 Septembre 2020

• #6

Re
ton fichier qui je pense correspond a ce que tu veux !
j'ai modifié quelques truc.
tu testes et me dis .
jean marie

 

Pièces jointes

• essaie 11.xlsm

  502.5 KB · Affichages: 13

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 1 Septembre 2020

• #7

effectivement on arrive a voir toutes les colonnes et elles s'affiche sur les textbox nickel.

le pb c'est que des que je recherche une ligne tous les format saute... là où ça doit afficher une heure ça affiche un chiffre.
et je n'arrive toujours pas à faire apparaitre les entêtes.

merci beaucoup pour cette avancer déjà

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 1 Septembre 2020

• #8

Re
Pour ce qui est des entêtes je crois que par cette méthode de remplissage ce n'est pas possible sauf si utilisation de la méthode "RowSource"
Jean marie

 

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 1 Septembre 2020

• #9

du coup avec rowsource ça donne ceci... mais nom "ListBox1_Click" n'est plus bon.. comment le modifier ?

 

Pièces jointes

• essaie 11.xlsm

  501 KB · Affichages: 12

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 1 Septembre 2020

• #10

Re
je viens de regarder
cela semble fonctionner

VB:

Private Sub UserForm_Initialize()
    With Feuil3
     With .Range("A1").CurrentRegion.Offset(1)
        ListBox1.ColumnHeads = True 'ColumnCount = .Columns.Count
        If .Rows.Count > 1 Then ListBox1.RowSource = .Address
    End With
  End With
End Sub

jean marie

 

Dernière édition: 1 Septembre 2020

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 1 Septembre 2020

• #11

je ne trouve pas se que vous avez modifier pour pouvoir afficher toutes les colonnes sur le 1er fichier

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 1 Septembre 2020

• #12

Re
Regarde au dessus #10 lol

VB:

Private Sub UserForm_Initialize()
    With Feuil3
     With .Range("A1").CurrentRegion.Offset(1)
        me.ListBox1.ColumnHeads = True 
        If .Rows.Count > 1 Then Me.ListBox1.RowSource = .Address
    End With
  End With
End Sub

jean marie

 

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 2 Septembre 2020

• #13

salut,

cela marche avec ce code :


Private Sub UserForm_Initialize()

Sheets("données").Activate
With [A1].CurrentRegion.Offset(1)
Me.ListBox1.ColumnHeads = True
If .Rows.Count > 1 Then Me.ListBox1.RowSource = .Address
End With

End Sub

mais ma zone de recherche ne fonctionne plus et lorsque je clik sur une ligne cela ne m'incrémente plus mes textbox

 

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 2 Septembre 2020

• #14

mais j'ai les entête lol

 

Vote positif 0 Vote négatif

R

RobyL

XLDnaute Junior

• 2 Septembre 2020

• #15

je pense qu'il faut ajouter les format des colonnes dans se private sub mais je ne sait pas comment mis prendre....


Private Sub TextBoxRech_Change()

If Me.TextBoxRech <> "" Then
mots = Split(Trim(Me.TextBoxRech), " ")
Tbl = choix
For i = LBound(mots) To UBound(mots)
Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
Next i
If UBound(Tbl) > -1 Then
Dim b(): ReDim b(1 To UBound(Tbl) + 1, 1 To Ncol + 1)
For i = LBound(Tbl) To UBound(Tbl)
a = Split(Tbl(i), "|")
For k = 1 To Ncol
b(i + 1, k) = a(k - 1)
If k >= 3 And k <= 5 Then b(i + 1, k) = Format(b(i + 1, k), "00")
Next k
b(i + 1, k) = a(k - 1)
Next i
Me.ListBox1.List = b
End If
Else
UserForm_Initialize
End If
End Sub

 

Vote positif 0 Vote négatif