XL 2016 Recherche intuitive et affichage plage discontinue dans listbox

KTM

KTM

XLDnaute Impliqué
Bonsoir Cher Forum
Je voudrais rechercher et afficher dans mon listbox les données de ma plage .
Mais les colonnes a afficher sont discontinues.
Mon code pour la recherche intuitive dans mon textbox n'affiche pas correctement la dernière colonne.
Aidez moi à bien paramétrer ma macro.
Merci.
 

Pièces jointes

  • RechI.xlsm
    319.8 KB · Affichages: 11
Trier par date Trier par votes
cp4

cp4

XLDnaute Barbatruc
KTM à dit:
Bonsoir Cher Forum
Je voudrais rechercher et afficher dans mon listbox les données de ma plage .
Mais les colonnes a afficher sont discontinues.
Mon code pour la recherche intuitive dans mon textbox n'affiche pas correctement la dernière colonne.
Aidez moi à bien paramétrer ma macro.
Merci.
Cliquez pour agrandir...
Bonjour,

Au lieu de faire une gymnastique pour récupérer certaines colonnes, à mon avis il est préférable de prendre toutes les données dans un tableau et l'injecter dans la Listbox.
Il suffira de mettre la largeur des colonnes non désirées à 0.
à voir ton fichier en retour si ça te convient ainsi.

Bonne soirée.
 

Pièces jointes

  • RechI_v1.xlsm
    342 KB · Affichages: 22
Vote positif 0 Vote négatif
Robert

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour KTM, bonjour le forum,

Je ne comprends pas les variables qui ne servent à rien ou en doublons... Ton code modifié :
VB: 
Private tbl
Private tbase
Private sh As Worksheet

Private Sub UserForm_Initialize()
Dim DL As Long, Coll As Long, I As Long, K

Me.StartUpPosition = 0
Me.Top = 0
Me.Left = Application.UsableWidth - Me.Width
Set sh = Sheets("Grille_de_Dispensation")
DL = sh.Range("A" & Rows.Count).End(xlUp).Row
sh.Range("A2:N" & DL).Font.Size = 12
entetes.Column = Application.Transpose(sh.Range("A1:N1").Value)
tbase = sh.Range("A2:N" & DL).Value
Dim tbl: ReDim tbl(1 To UBound(tbase), 1 To 12)
Coll = 0
For Each K In Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 14)
Coll = Coll + 1
   For I = 1 To UBound(tbase): tbl(I, Coll) = tbase(I, K): Next I
Next K
Coll = 2
For I = 1 To UBound(tbase): tbl(I, Coll) = Format(CDate(tbase(I, 2)), "mmm yy"): Next I
ListBox2.List = tbl
End Sub

Private Sub TextBox1_Change()
Dim T(), I&, A&, C&

With TextBox1
    If .Value = "" Then ListBox2.List = tbase: Exit Sub
    For I = 1 To UBound(tbase)
        If tbase(I, 1) Like .Value & "*" Then
            A = A + 1: ReDim Preserve T(1 To 14, 1 To A)
            For C = 1 To 13: T(C, A) = tbase(I, C): Next
            T(14, A) = tbase(I, 14)
        End If
    Next
     If A > 0 Then
        If A = 1 Then
            ListBox2.Column = Application.Transpose(T)
        Else
            ListBox2.List = Application.Transpose(T)
        End If
    Else: ListBox2.Clear
    End If
End With
End Sub

[Édition]
Bonjour Cp4, nos posts ses sont croisés...
 
Vote positif 0 Vote négatif
KTM

KTM

XLDnaute Impliqué
cp4 à dit:
Bonjour,

Au lieu de faire une gymnastique pour récupérer certaines colonnes, à mon avis il est préférable de prendre toutes les données dans un tableau et l'injecter dans la Listbox.
Il suffira de mettre la largeur des colonnes non désirées à 0.
à voir ton fichier en retour si ça te convient ainsi.

Bonne soirée.
Cliquez pour agrandir...
Merci ça marche mais je voudrais que la colonne Mois conserve dans le listbox le même format que dans ma plage de données.
Merci d'y corriger ce détail.
 
Vote positif 0 Vote négatif
KTM

KTM

XLDnaute Impliqué
Robert à dit:
Bonjour KTM, bonjour le forum,

Je ne comprends pas les variables qui ne servent à rien ou en doublons... Ton code modifié :
VB: 
Private tbl
Private tbase
Private sh As Worksheet

Private Sub UserForm_Initialize()
Dim DL As Long, Coll As Long, I As Long, K

Me.StartUpPosition = 0
Me.Top = 0
Me.Left = Application.UsableWidth - Me.Width
Set sh = Sheets("Grille_de_Dispensation")
DL = sh.Range("A" & Rows.Count).End(xlUp).Row
sh.Range("A2:N" & DL).Font.Size = 12
entetes.Column = Application.Transpose(sh.Range("A1:N1").Value)
tbase = sh.Range("A2:N" & DL).Value
Dim tbl: ReDim tbl(1 To UBound(tbase), 1 To 12)
Coll = 0
For Each K In Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 14)
Coll = Coll + 1
   For I = 1 To UBound(tbase): tbl(I, Coll) = tbase(I, K): Next I
Next K
Coll = 2
For I = 1 To UBound(tbase): tbl(I, Coll) = Format(CDate(tbase(I, 2)), "mmm yy"): Next I
ListBox2.List = tbl
End Sub

Private Sub TextBox1_Change()
Dim T(), I&, A&, C&

With TextBox1
    If .Value = "" Then ListBox2.List = tbase: Exit Sub
    For I = 1 To UBound(tbase)
        If tbase(I, 1) Like .Value & "*" Then
            A = A + 1: ReDim Preserve T(1 To 14, 1 To A)
            For C = 1 To 13: T(C, A) = tbase(I, C): Next
            T(14, A) = tbase(I, 14)
        End If
    Next
     If A > 0 Then
        If A = 1 Then
            ListBox2.Column = Application.Transpose(T)
        Else
            ListBox2.List = Application.Transpose(T)
        End If
    Else: ListBox2.Clear
    End If
End With
End Sub

[Édition]
Bonjour Cp4, nos posts ses sont croisés...
Cliquez pour agrandir...
Merci mais ça fonctionne pas
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
KTM à dit:
Merci ça marche mais je voudrais que la colonne Mois conserve dans le listbox le même format que dans ma plage de données.
Merci d'y corriger ce détail.
Cliquez pour agrandir...
code à remplacer
VB: 
Private Sub UserForm_Initialize()
Dim dl As Long, i As Long

Me.StartUpPosition = 0
Me.Top = 0
Me.Left = Application.UsableWidth - Me.Width
dl = Sheets("Grille_de_Dispensation").Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Grille_de_Dispensation")
        .Range("A2:N" & .Range("A" & Rows.Count).End(xlUp).Row + 1).Font.Size = 12
        entetes.Column = Application.Transpose(.[A1:N1].Value)
        
       Set sh = Sheets("Grille_de_Dispensation")
       tbase = sh.Range("A2:N" & dl).Value
'mise en forme colonne Mois Listbox
For i = 1 To UBound(tbase)
tbase(i, 2) = Format(tbase(i, 2), "mmm-yy")
Next i

entetes.ColumnCount = 15
entetes.ColumnWidths = "90;60;65;50;30;40;40;50;30;50;50;0;0;50;0"
ListBox2.ColumnCount = 15
ListBox2.ColumnWidths = "90;60;65;50;30;40;40;50;30;50;50;0;0;50;0"
                        
ListBox2.List = tbase

End With
End Sub
 
Vote positif 0 Vote négatif
KTM

KTM

XLDnaute Impliqué
cp4 à dit:
code à remplacer
VB: 
Private Sub UserForm_Initialize()
Dim dl As Long, i As Long

Me.StartUpPosition = 0
Me.Top = 0
Me.Left = Application.UsableWidth - Me.Width
dl = Sheets("Grille_de_Dispensation").Range("A" & Rows.Count).End(xlUp).Row
With Sheets("Grille_de_Dispensation")
        .Range("A2:N" & .Range("A" & Rows.Count).End(xlUp).Row + 1).Font.Size = 12
        entetes.Column = Application.Transpose(.[A1:N1].Value)
       
       Set sh = Sheets("Grille_de_Dispensation")
       tbase = sh.Range("A2:N" & dl).Value
'mise en forme colonne Mois Listbox
For i = 1 To UBound(tbase)
tbase(i, 2) = Format(tbase(i, 2), "mmm-yy")
Next i

entetes.ColumnCount = 15
entetes.ColumnWidths = "90;60;65;50;30;40;40;50;30;50;50;0;0;50;0"
ListBox2.ColumnCount = 15
ListBox2.ColumnWidths = "90;60;65;50;30;40;40;50;30;50;50;0;0;50;0"
                       
ListBox2.List = tbase

End With
End Sub
Cliquez pour agrandir...
Merci Infiniment !!
 
Vote positif 0 Vote négatif

Discussions similaires

AHK
  • Question
XL 2021 Vidéo youtube - filtre listbox dans userform
Réponses
0
Affichages
103
AHK
AHK
Z
  • Question
Microsoft 365 Validation de données et saisie partielle
Réponses
3
Affichages
131
Dranreb
Dranreb
C
  • Résolu(e)
XL 2021 Aide pour affichage colonne listbox après une recherche par textbox
Réponses
10
Affichages
244
Claudinedu13
C
J
  • Question
XL 2016 Affichage onglets d'un classeur dans la listbox d'un userform
Réponses
2
Affichages
286
jeff2318
J
F
  • Question
XL 2013 Tri d'une listbox sur 2 combobox en cascade
2
Réponses
25
Affichages
542
franxy
F
misteryann
  • Question
XL 2016 Additionner et multiplier en VBA
Réponses
4
Affichages
474
misteryann
misteryann
F
  • Résolu(e)
XL 2019 Affichage dans listbox et reprise dans les textbox
Réponses
7
Affichages
329
Flnte
F
KTM
  • Question
XL 2016 Recherche intuitive et affichage plage discontinue dans listbox (2)
Réponses
3
Affichages
551
cp4
cp4
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Affichage des résultats dans un tableau selon des conditions
Réponses
13
Affichages
287
chaelie2015
chaelie2015
L
  • Question
tri et export
Réponses
4
Affichages
179
lescoches
L

Membres actuellement en ligne

3 membres et 70 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 164
Messages
2 085 875
Membres
103 007
dernier inscrit
salma_hayek