Alimenter listbox avec condition

[buromania]

Bjr à tous
Je cherche à alimenter un listbox avec la condition (Contient).
Bonne journée.

 

[Toine]

Re : Alimenter listbox avec condition

bonjour
je ne connait pas la condition (contient) quesque cela est ??

 

[buromania]

Re : Alimenter listbox avec condition

bonjour
je ne connait pas la condition (contient) quesque cela est ??

bjr toine
on utilise des filtres avec la condition contient et je souhaite faire de même
pour un listbox

 

[Toine]

Re : Alimenter listbox avec condition

dans ce cas je ne te serait pas d'une grande aide désolé peut étre une autre fois (mais né pas peur il y a des tas de gens bien plus douer que moi sur ce forum qui ne tarderont pas à apporter une réponse a ta question)
mais peut étre que si tu m'expliquer le rçole de cette fonction contient je pourait moi aussi d'une part en profiter et d'autre par taider d'une autre façon

 

[buromania]

Re : Alimenter listbox avec condition

Merci pour ton aide Toine
Bonne journée

 

[Pierrot93]

Re : Alimenter listbox avec condition

Bonjour Buromania

ta listbox est créée comment ?

barre outils formulaire ou boite à outils controles, via un UserForm ou pas ?

Alimentation par vba ou pas ?

tu devrais peut être être un peu plus précis et nous mettre en pièce jointe ton fichier, sans données confidentielles avec le résultat attendu.

bon après midi
@+

 

[buromania]

Re : Alimenter listbox avec condition

Bjr Pierrot

usf+vba

With Feuil19
For Each code In .Range("J20:J" & .Range("J65536").End(xlUp).Row)
If code.Text.Criteria1 = usf1.ComboBox2.Text Then ListBox1.AddItem code.Text
Next
End With

Je cherche à remplir ma liste avec critère " pour toutes cellules dans ma colonne j, si contient "toto" , incrémente la liste

bonne journée

 

[Pierrot93]

Re : Alimenter listbox avec condition

Re

regarde le code ci dessous, terste la cellule B1, les * devant et derrière "toto" autorise des caractères avant et après. Attention la casse est important, sinon mettre en tête de module "Option Compare Text
"

If Range("B1").Value Like "*toto*" Then MsgBox ("ok touve")

bon après midi
@+

 

[buromania]

Re : Alimenter listbox avec condition

Pierrot, suis obligé de partir re"prends le fil ce soir
Bonne journée

 

[buromania]

Re : Alimenter listbox avec condition

bsr Pierrot, le forum

J'ai essayé ta proposition avec like sans résultat
N'ayant pas trouvé, j'ai biaisé par

With Feuil19
For Each code In .Range("J1:J" & .Range("J65536").End(xlUp).Row)
If code.Text = "DEVIS " & usf1.ComboBox2 Then ListBox1.AddItem code.Text
If code.Text = "COMMANDE " & usf1.ComboBox2 Then ListBox1.AddItem code.Text
If code.Text = "BL " & usf1.ComboBox2 Then ListBox1.AddItem code.Text
If code.Text = "FACTURE " & usf1.ComboBox2 Then ListBox1.AddItem code.Text
Next
End With

Bonne soirée