XL 2019 listbox plusieurs colonne d'après textbox

juju91 · 12 Janvier 2023

Bonjour
désolé de vous importuner encore .
j'ai créé une petit fichier avec un base de données dans lequel on peut faire une recherche intuitive a partir d'un textbox qui alimente une listbox .
Mais je n'arrive pas a mettre une deuxième colonne, au-delà de la colonne 17 de ma base de donnée, dans la listbox.
Auriez-vous un solution ?
Par avance merci à tous

cp4 · 14 Janvier 2023

juju91 à dit:
Désolé voici le fichier sans MP
Si vous pouviez jeter un petit coup d'œil SVP.
Merci d'avance

Bonjour,

@juju91 : tes données commencent à la ligne 17. Donc faire For ligne = 17 To derLigne (au lieu de 2)
Tu as aussi en début de procédure 2 fois Listox1.clear, 1 seul suffit.
Evite les select et selection, ça ne fait que ralentir le code (pas besoin de sélectionner). Exemple ci-dessous:

VB:

Private Sub A1_MOINS_Click() ' - 2015
Columns("O:P").Select
Selection.ColumnWidth = 0
Range("M1").Value = 1
End Sub

Code:

Private Sub A1_MOINS_Click() ' - 2015
Columns("O:P").ColumnWidth = 0
Range("M1").Value = 1
End Sub

Mais je n'arrive pas a mettre une deuxième colonne, au-delà de la colonne 17 de ma base de donnée, dans la...

cp4 · 12 Janvier 2023

juju91 à dit:
Bonjour
désolé de vous importuner encore .
j'ai créé une petit fichier avec un base de données dans lequel on peut faire une recherche intuitive a partir d'un textbox qui alimente une listbox .
Mais je n'arrive pas a mettre une deuxième colonne, au-delà de la colonne 17 de ma base de donnée, dans la listbox.
Auriez-vous un solution ?
Par avance merci à tous

Bonjour,

Ton fichier est protégé par un mot de passe. Plein d'exemples ici
Bonne journée

juju91 · 14 Janvier 2023

Désolé voici le fichier sans MP
Si vous pouviez jeter un petit coup d'œil SVP.
Merci d'avance

cp4 · 14 Janvier 2023

juju91 à dit:
Désolé voici le fichier sans MP
Si vous pouviez jeter un petit coup d'œil SVP.
Merci d'avance

Bonjour,

@juju91 : tes données commencent à la ligne 17. Donc faire For ligne = 17 To derLigne (au lieu de 2)
Tu as aussi en début de procédure 2 fois Listox1.clear, 1 seul suffit.
Evite les select et selection, ça ne fait que ralentir le code (pas besoin de sélectionner). Exemple ci-dessous:

VB:

Private Sub A1_MOINS_Click() ' - 2015
Columns("O:P").Select
Selection.ColumnWidth = 0
Range("M1").Value = 1
End Sub

Code:

Private Sub A1_MOINS_Click() ' - 2015
Columns("O:P").ColumnWidth = 0
Range("M1").Value = 1
End Sub

Mais je n'arrive pas a mettre une deuxième colonne, au-delà de la colonne 17 de ma base de donnée, dans la listbox.

Là je n'ai pas bien compris ce que tu veux dire par au-delà de la colonne 17.

Edit: code corrigé pour 2ème colonne

Code:

Private Sub TextBox1_Change()
   derLigne = Range("A" & Rows.Count).End(xlUp).Row
   ListBox1.Clear
   If TextBox1 <> "" Then
      For ligne = 17 To derLigne
         If Mid(Cells(ligne, 1).Value, 1) Like "*" & TextBox1 & "*" Then
            ListBox1.AddItem
            ListBox1.List(n, 0) = Cells(ligne, 1)
            ListBox1.List(n, 1) = Cells(ligne, 4)   '
            n = n + 1
         End If
      Next
   End If
   ListBox1.Visible = True
End Sub

juju91 · 14 Janvier 2023

Un grand merci a nous, c'est parfait pour moi.
Encore merci

cp4 · 14 Janvier 2023

juju91 à dit:
Un grand merci a nous, c'est parfait pour moi.
Encore merci

Pour que ta participation soit utile à plus de personnes. Ta contribution sera de faciliter à d'autres membres en recherche de solution en cochant le message répondant au mieux à ta demande (à droite du message). Merci.
Bonne soirée.

cp4 · 21 Janvier 2023

cp4 à dit:
Pour que ta participation soit utile à plus de personnes. Ta contribution sera de faciliter à d'autres membres en recherche de solution en cochant le message répondant au mieux à ta demande (à droite du message). Merci.
Bonne soirée.

Bonjour,
@juju91 : C'est plutôt le post#4 qu'il fallait pointer (là, où se trouve la solution).

Bon week-end.

XL 2019 listbox plusieurs colonne d'après textbox

juju91

XLDnaute Junior

Pièces jointes

cp4

cp4

XLDnaute Barbatruc

juju91

XLDnaute Junior

Pièces jointes

cp4

XLDnaute Barbatruc

juju91

XLDnaute Junior

cp4

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires