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

jeff1494
  • Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
705
jeff1494
jeff1494
E
  • Résolu(e)
Microsoft 365 Filtre sur LISTBOX
2
Réponses
16
Affichages
726
eric72
E
M
  • Question
XL 2010 Colorie certaines lettres en bleu dans la ListBox 1
Réponses
1
Affichages
338
job75
job75
AHK
  • Question
XL 2021 Vidéo youtube - filtre listbox dans userform
Réponses
0
Affichages
251
AHK
AHK
S
  • Résolu(e)
Microsoft 365 Reporter le contenu d'une plage dans une cellule selon un ordre précis
Réponses
4
Affichages
207
sebastien176
S
A
  • Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
646
aurelio.ewane
A
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
291
Affichages
67 K
NONO14
N
Adexa
  • Question
XL 2019 Rechercher un libellé approximatif dans un tableau et afficher une valeur
2
Réponses
29
Affichages
846
Dudu2
Dudu2
Z
  • Question
Microsoft 365 Validation de données et saisie partielle
Réponses
3
Affichages
415
Dranreb
Dranreb
C
  • Résolu(e)
XL 2021 Aide pour affichage colonne listbox après une recherche par textbox
Réponses
10
Affichages
512
Claudinedu13
C

Membres actuellement en ligne

10 membres et 91 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
315 088
Messages
2 116 088
Membres
112 657
dernier inscrit
jpb3