Alimenter listbox avec condition

Toine

XLDnaute Occasionnel

• 8 Juin 2007

• #2

Re : Alimenter listbox avec condition

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

 

Vote positif 0 Vote négatif

B

buromania

Guest

• 8 Juin 2007

• #3

Re : Alimenter listbox avec condition

Toine à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Toine

XLDnaute Occasionnel

• 8 Juin 2007

• #4

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

 

Dernière édition: 8 Juin 2007

Vote positif 0 Vote négatif

B

buromania

Guest

• 8 Juin 2007

• #5

Re : Alimenter listbox avec condition

Merci pour ton aide Toine
Bonne journée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Juin 2007

• #6

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
@+

 

Vote positif 0 Vote négatif

B

buromania

Guest

• 8 Juin 2007

• #7

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Juin 2007

• #8

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
"

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

B

buromania

Guest

• 8 Juin 2007

• #9

Re : Alimenter listbox avec condition

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

 

Vote positif 0 Vote négatif

B

buromania

Guest

• 8 Juin 2007

• #10

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

 

Vote positif 0 Vote négatif