XL 2019 listbox plusieurs colonne d'après textbox

[juju91]

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]

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]

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

 

[cp4]

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:

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

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

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]

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

 

[cp4]

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]

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.