Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 PB format dans listbox après recherche intuitive

RobyL

XLDnaute Junior
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"
 

Pièces jointes

  • essaie 10.xlsm
    186.4 KB · Affichages: 53

ChTi160

XLDnaute Barbatruc
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:

RobyL

XLDnaute Junior
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

RobyL

XLDnaute Junior
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

XLDnaute Barbatruc
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:

ChTi160

XLDnaute Barbatruc
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
 

RobyL

XLDnaute Junior
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

XLDnaute Junior
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…