XL 2016 Recherche intuitive et affichage plage discontinue dans listbox

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion KTM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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

Trier par date Trier par votes
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

Vote positif 0 Vote négatif
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
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

jeff1494
  • Question Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
779
jeff1494
jeff1494
A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
56
vgendron
vgendron
K
  • Résolu(e)
XL 2016 Filtre et affichage listbox
Réponses
9
Affichages
134
KRUG WOO
K
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
89
KRUG WOO
K
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
297
Affichages
67 K
NONO14
N
AHK
  • Question Question
XL 2021 Vidéo youtube - filtre listbox dans userform
Réponses
0
Affichages
272
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
250
sebastien176
S
A
  • Question Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
684
aurelio.ewane
A
Caninge
  • Résolu(e)
XL 2019 Extraction de données dans une autre plage !
Réponses
6
Affichages
343
Caninge
Caninge
Adexa
  • Question Question
XL 2019 Rechercher un libellé approximatif dans un tableau et afficher une valeur
2
Réponses
29
Affichages
937
Dudu2
Dudu2
C
  • Résolu(e)
XL 2021 Aide pour affichage colonne listbox après une recherche par textbox
Réponses
10
Affichages
543
Claudinedu13
C
J
  • Question Question
XL 2016 Affichage onglets d'un classeur dans la listbox d'un userform
Réponses
2
Affichages
664
jeff2318
J
BLACKHAYES
  • Question Question
XL 2021 Verifier les doublons dans feuille avant validation
Réponses
11
Affichages
145
cathodique
cathodique
F
  • Résolu(e)
XL 2019 Affichage dans listbox et reprise dans les textbox
Réponses
7
Affichages
559
Flnte
F
KTM
  • Question Question
XL 2016 Recherche intuitive et affichage plage discontinue dans listbox (2)
Réponses
3
Affichages
664
cp4
cp4
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
599
Corentin26270
C
misteryann
  • Question Question
XL 2016 Additionner et multiplier en VBA
Réponses
4
Affichages
749
misteryann
misteryann
E
  • Résolu(e)
Microsoft 365 Problème d'organisation des colonnes dans une ListBox en VBA Excel
Réponses
2
Affichages
840
eCHO
E
J
  • Résolu(e)
XL 2019 listbox plusieurs colonne d'après textbox
Réponses
6
Affichages
890
cp4
cp4
L
  • Question Question
tri et export
Réponses
4
Affichages
338
lescoches
L
Retour