Ajout d'affichage de colonne dans une listbox

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion mavean
  • 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
M

mavean

XLDnaute Junior
Bonjour, j'utilise le code suivant (copié sur le forum)
Cela marche impec et l'affichage dans la ListBox ce fait bien.
Mais j'aimerais qu'en plus de m'afficher les colonne C et D il m'affiche la colonne E et H (sur la même ligne)
Si possible en m’expliquant pour que je comprenne encore merci à tous les contributeurs.

Private Sub TextBox1_Change()
i = 0
Set plage = Sheets("BD").Range("C3:C" & Sheets("BD").Range("C65536").End(xlUp).Row)
Set plage_a = Sheets("BD").Range("C3😀" & Sheets("BD").Range("D65536").End(xlUp).Row)
NbCol = plage.Columns.Count
Me.ListBox1.Clear
Set c = plage_a.Find(Me.TextBox1, , , xlPart)
If Not c Is Nothing Then
premier = c.Address
Do
Me.ListBox1.AddItem
lig = c.Row - plage.Row + 1
For col = 1 To NbCol
Me.ListBox1.List(i, col - 1) = plage.Cells(lig, col)
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = plage.Cells(lig, col + 1)
Next col
i = i + 1
Set c = plage_a.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
If Me.TextBox1 = "" Then Call Initlistbox1
End Sub
Sub Initlistbox1()
With ListBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "80;200"
End With

With Sheets("BD")
If .Range("B3") <> "" Then
Lg = .Range("B65536").End(xlUp).Row
End If

For Mtg = 3 To Lg
If .Cells(Mtg, 3).Value <> "" Then
ListBox1.AddItem .Cells(Mtg, 3)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(Mtg, 4)
End If
Next Mtg

ListBox1.ListIndex = -1
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End With
End Sub
 
Trier par date Trier par votes
Re : Ajout d'affichage de colonne dans une listbox

Bonjour,

Si j'ai bien compris :

ListBox1.List(N° item, N° colonne) = Valeur N° item et N° colonne commençant à 0

Code: 
ListBox1.AddItem .Cells(Mtg, 3) ' on crée un nouvel item
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(Mtg, 4) ' ListBox1.ListCount - 1 donne le n° item en cours
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(Mtg, 5)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(Mtg, 8)

Dans les propriétés ou par code modifier le nombre de colonnes de la listbox1

A+
 
Vote positif 0 Vote négatif
Re : Ajout d'affichage de colonne dans une listbox

Re
J'ai changé le nb d colonnes : ColumnCount = 4
j'ai dimensionné les colonnes : ColumnWidths = "80;200;40;40"
Et ajouté
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(Mtg, 5)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(Mtg, 8)

Mais je n'ai toujours que 2 colonnes dans ma listbox
Que faut il encore ajouter?

Sub Initlistbox1()
With ListBox1
.Clear
.ColumnCount = 4
.ColumnWidths = "80;200;40;40"
End With

With Sheets("BD")
If .Range("B3") <> "" Then
Lg = .Range("B65536").End(xlUp).Row
End If

For Mtg = 3 To Lg
If .Cells(Mtg, 3).Value <> "" Then
ListBox1.AddItem .Cells(Mtg, 3)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(Mtg, 4)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(Mtg, 5)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(Mtg, 8)
End If
Next Mtg

ListBox1.ListIndex = -1
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Ajout d'affichage de colonne dans une listbox

Re
Non les colonnes ne sont pas vide mais malgré mes essais pas de résultat, je remets le code ci dessous.
Merci des vos aides pour me dire ce qu'il cloche

Private Sub TextBox1_Change()
i = 0
Set plage = Sheets("F2").Range("C3:C" & Sheets("F2").Range("C65536").End(xlUp).Row)
Set plage_a = Sheets("F2").Range("C3😀" & Sheets("F2").Range("D65536").End(xlUp).Row)

NbCol = plage.Columns.Count

Me.ListBox1.Clear
Set c = plage_a.Find(Me.TextBox1, , , xlPart)
If Not c Is Nothing Then
premier = c.Address
Do
Me.ListBox1.AddItem
lig = c.Row - plage.Row + 1
For col = 1 To NbCol
Me.ListBox1.List(i, col - 1) = plage.Cells(lig, col)
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = plage.Cells(lig, col + 1)
Next col
i = i + 1
Set c = plage_a.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
If Me.TextBox1 = "" Then Call Initlistbox1
End Sub
Sub Initlistbox1()
With ListBox1
.Clear
.ColumnCount = 4
.ColumnWidths = "80;270;40;40"
End With

With Sheets("F2")
If .Range("B3") <> "" Then
Lg = .Range("B65536").End(xlUp).Row
End If

For Mtg = 3 To Lg
If .Cells(Mtg, 8).Value <> "" Then
ListBox1.AddItem .Cells(Mtg, 3)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(Mtg, 4)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(Mtg, 5)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(Mtg, 8)
End If
Next Mtg

ListBox1.ListIndex = -1
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Ajout d'affichage de colonne dans une listbox

re,

Sans le classeur impossible de vérifier .
Si deux colonnes de la listbox sont remplies, pourquoi pas les quatre ? à moins qu'on ne passe pas dans cette partie du code ! puisqu'en reprenant le code des post #1 et #5 on voit qu'il y a deux mises à jour de la Listbox1:
Code: 
For col = 1 To NbCol
     Me.ListBox1.List(i, col - 1) = plage.Cells(lig, col)
     Me.ListBox1.List(ListBox1.ListCount - 1, 1) = plage.Cells(lig, col + 1)
Next col
et
Code: 
For Mtg = 3 To Lg
    If .Cells(Mtg, 8).Value <> "" Then
        ListBox1.AddItem .Cells(Mtg, 3)
        ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(Mtg, 4)
        ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(Mtg, 5)
        ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(Mtg, 8)
    End If
Next Mtg
Avec des précisions sur ce qu'est censé faire le code et le classeur pour tester, ce serait plus facile que d'éplucher un code non indenté sans savoir ce qu'il devrait faire.

A+
 
Vote positif 0 Vote négatif
Re : Ajout d'affichage de colonne dans une listbox

Re

Dans la TextBox 1 je tape soit un code (colonne C) soit une désignation (colonne D)

Et ensuite si le code ou la désignation existe dans la list box j'ai l'affichage de ce qui correspond
Soit une ligne car il n'y a pas 2 codes de différents soit plusieurs ligne si la désignation s'applique a des codes différents
et
sur cette ligne 2 colonne
La C et la D alors que je souhaite la C / D / E / H

Merci de votre aide
 
Vote positif 0 Vote négatif
Re : Ajout d'affichage de colonne dans une listbox

Bonjour

J'ai compris que sans le fichier c'est difficile de répondre.
Je le joint donc en ayant supprimer d'autres feuilles plus confidentielle.
Donc dans le classeur il y a d'autres feuilles (importance de nommer la feuille F2)
J'ai réexpliqué ce que je souhaite à droite de la feuille.
L'userform c'est le 2 car dans le classeur j'ai aussi un Userform1.
Encore Merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Ajout d'affichage de colonne dans une listbox

re,

Vous avez donc bien deux endroits où vous alimentez la listbox1 dans :
Private Sub TextBox1_Change()
Sub Initlistbox1() appelée par Private Sub UserForm_initialize()

Dans Sub Initlistbox1() on devrait alimenter la listbox1 par une boucle For Mtg = 3 To Lg . Or pour déterminer Lg on utilise:
Code: 
         If .Range("B3") <> "" Then
            Lg = .Range("B65536").End(xlUp).Row
        End If

et comme B3 est vide Lg n'est pas initialisée (donc =0) et la boucle For Mtg = 3 To Lg ne se déclenche pas.

Ce qui ne semble pas gênant puisque c'est la saisie en TextBox1 qui alimente la listbox avec les articles contenant le texte saisi.

On peut donc supprimer Sub Initlistbox1() et son appel dans Private Sub UserForm_initialize()

Ne restant plus qu'une source d'alimentation ( dans Private Sub TextBox1_Change()), c'est là qu'il faut rajouter l'alimentation des colonnes supplémentaires:

Code: 
                 For col = 1 To NbCol
                   Me.ListBox1.List(i, col - 1) = plage.Cells(lig, col)
                   Me.ListBox1.List(ListBox1.ListCount - 1, 1) = plage.Cells(lig, col + 1)
                   Me.ListBox1.List(ListBox1.ListCount - 1, 2) = plage.Cells(lig, col + 2) 'à adapter
                   Me.ListBox1.List(ListBox1.ListCount - 1, 3) = plage.Cells(lig, col + 3) ' à adapter
                 Next col

A+
 
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

J
  • Résolu(e)
XL 2019 Interdire les doublons dans ListBox
Réponses
3
Affichages
41
JLR67
J
E
  • Résolu(e)
XL 2019 combobox intuitive
Réponses
14
Affichages
118
escudo
E
patricktoulon
  • Résolu(e)
Autres dimensionner une listbox pour DUDU2
2 3 4
Réponses
47
Affichages
1 K
patricktoulon
patricktoulon
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
93
KRUG WOO
K
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
358
Oneida
Oneida
lynyrd
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
595
AtTheOne
AtTheOne
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
432
job75
job75
S
  • Résolu(e)
XL 2016 problème de filtre dans listbox
2 3 4
Réponses
51
Affichages
3 K
saidoush
S
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
169
escudo
E
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
246
CortoXls
C
pompaero
  • Résolu(e)
Microsoft 365 Amélioration codage
Réponses
4
Affichages
446
pompaero
pompaero
M
  • Question Question
XL 2010 Remise et ajout de quantité
Réponses
10
Affichages
739
Dranreb
Dranreb
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
788
Mody200
M
C
  • Question Question
Microsoft 365 Supprimer ligne selon contenu cellule (résolu)
Réponses
7
Affichages
55
job75
job75
N
  • Résolu(e)
Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm
3 4 5
Réponses
68
Affichages
2 K
NONO14
N
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
103
Abi23
A
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
klin89
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
393
patricktoulon
patricktoulon
Nicolas JACQUIN
  • Question Question
XL 2021 Optimisation code pour affichage ligne et colonne
Réponses
14
Affichages
743
patricktoulon
patricktoulon
Nicolas JACQUIN
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
688
TooFatBoy
TooFatBoy
Retour