information sur list

[dede]

bonjour a tous un petit renseignement dans ce code
Private Sub CommandButton1_Click()
k = 0
Me.ListBox1.Clear
If Me.TextBox2 = "" Then Me.TextBox2 = "*"
If Me.TextBox1 = "" Then Me.TextBox1 = "*"

For i = 2 To [A65000].End(xlUp).Row
If Cells(i, 1) Like "*" & Me.TextBox1 & "*" _
And Cells(i, 5) Like TextBox2 Then
Me.ListBox1.AddItem
Me.ListBox1.List(k, 0) = Cells(i, 1)
Me.ListBox1.List(k, 1) = Cells(i, 2)
Me.ListBox1.List(k, 2) = Cells(i, 3)
Me.ListBox1.List(k, 3) = Cells(i, 4)
Me.ListBox1.List(k, 4) = Cells(i, 5)
Me.ListBox1.List(k, 5) = i
k = k + 1
End If
Next i
End Sub
a quoi correspond List(k, 0) = Cells(i, 1)
et comment rajouter un critere de recherche par textbox

 

[JNP]

Re : information sur list

Bonsoir Dede ,

List permet de gérer des ListBox multi colonnes :
AddItem ajoute une ligne et rempli la première colonne, les List ensuite permettent d'ajouter les valeurs dans les colonnes suivante. Ton code aurait pu s'écrire

Me.ListBox1.AddItem Cells(i, 1)
Me.ListBox1.List(k, 1) = Cells(i, 2)

cela reviendrait au même ...

Par contre, je ne suis pas sûr de comprendre ta 2ème question ...
Si c'est pour ajouter une TextBox3

If Cells(i, 1) Like "*" & Me.TextBox1 & "*" _
And Cells(i, 5) Like TextBox2 _
And Cells(i, 6) Like TextBox2 Then

par exemple .

Bonne soirée

 

[Hippolite]

Re : information sur list

Bonjour,
c'est le remplissage d'une ListBox à deux colonnes
A+

pour info :Ce lien n'existe plus

edit : Bonjour JNP

 

[Hippolite]

Re : information sur list

Re,
Oups! Je n'avais pas mis le bon lien : VBA/ControlesUserForm/ListBox
A+

 

[dede]

Re : information sur list

merci j ai compris mon erreur si je pouvai abuser un peu de vos connaissance quel chemin je dois prendre pour que le resultat de mes recherche vont dand des textbox et pas dans une listbox merci d avance pour le troisieme critere de recherche c est bon

 

[JNP]

Re : information sur list

Re ,
Dans une TextBox, tu n'as pas de notions de colonnes, uniquement de multilignage éventuellement

With TextBox1
.MultiLine = True
.Text = "Toto" & vbCrLf & "Titi"
End With

mais dis toi que tu auras énormément de mal à gérer le retour de ton TextBox si tu pars sur ce type de solution ...
Bon WE

 

[dede]

Re : information sur list

merci tu peux devellopper j ai mis en ligne ce qu je veux merci de tes info je debute mais ca me passionne c est pas le bonne direction pour toi Moi se que je veux faire incrire dans le textbox1 un valeur situee en A dans le textbox 2 une valeur situee en B en quand je clik sur rechercher la valeur C correspondante A+B s affiche dans le textbox 3 et la valeur D dans le textbox 4 merci

 

[JNP]

Re : information sur list

Re ,
Le plus sûr est de charger plutôt des ComboBox avec les valeurs possibles ...
Vois le petit exemple en PJ ...
Ce n'est qu'une méthode parmi bien d'autres de procéder ...
Bon courage

 

[dede]

Re : information sur list

Merci encore de ton aide ca fait 2 jours que je suis la dessus je vais pouvoir avancer merci a toi encore a charge de revanche (je rigole)

 

[JNP]

Re : information sur list

Re ,

a charge de revanche (je rigole)

Ne dis jamais jamais ...
Avant de m'incrire, je ne connaissais pas grand chose à Excel ...
Bon WE