Bonjour
Dans ma ListBox (Voir extrait de UserForm ci-dessous) je voudrais visualiser un nouveau champs qui correspond à la colonne 32.
Si je rajoute
La visualisation s’opère bien, mais sur la ligne suivante.
Alors que je voudrais que cela apparaisse après les 2 premiers champs sur la même ligne.
Quelle serait la bonne commande ?
Merci pour votre aide
Dans ma ListBox (Voir extrait de UserForm ci-dessous) je voudrais visualiser un nouveau champs qui correspond à la colonne 32.
Si je rajoute
Code:
ListBox1.AddItem Cells(L, 32)
Alors que je voudrais que cela apparaisse après les 2 premiers champs sur la même ligne.
Quelle serait la bonne commande ?
Merci pour votre aide
Code:
Private Sub TextBox1_Change()
If TextBox1 = "" Then Exit Sub
Dim Li As Long, Ln As Long
With ListBox1
.Clear
For L = 2 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(L, 2) Like "*" & TextBox1 & "*" Then
If Left(Cells(L, 1), 5) <> "Titre" Then 'Le 1 désigne la colonne, Le 5 désigne la longueur du mot
ListBox1.AddItem Cells(L, 2)
For Li = L To 1 Step -1
If Left(Cells(Li, 1), 5) = "Titre" Then Ln = Ln + 1: .List(.ListIndex + Ln, 1) = Cells(Li, 2): Exit For
Next
End If
End If
Next
End With
Ini = True
End Sub