XL 2016 PB format dans listbox après recherche intuitive

[RobyL]

bonjour à tous,
lorsque que je demare mon userform tous est bon dans ma listbox (les format date ou format heure son bien définit) mais lorsque je fait une recherche avec ma textbox tous les format partent... avez vous une solution ?

il est aussi impossible d'afficher jusqu'a la colonne X de l'onglet "Données" dans cette listbox ... je ne sait pas pourquoi.

il faud cliquer sur l'onglet "choix" puis sur le bonton bleu "saisie modif taches" pour ouvrir le userform.
le userform s'appel "rechintuit2"

 

[ChTi160]

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

 

[RobyL]

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

 

[ChTi160]

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

 

[RobyL]

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)

 

[ChTi160]

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

 

[RobyL]

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à

 

[ChTi160]

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

 

[RobyL]

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

 

[ChTi160]

Re
je viens de regarder
cela semble fonctionner

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

 

[RobyL]

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

 

[ChTi160]

Re
Regarde au dessus #10 lol

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

 

[RobyL]

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

 

[RobyL]

mais j'ai les entête lol

 

[RobyL]

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