XL 2013 Remplir une listebox avec conditions

[Acher12]

Bonjour a vous tous,
j'ai un petit problème avec l'affichage des données sur deux listsbox?
j'ai une colonne T( avec deux valeurs (X1) et (X2) uniquement
je veux deux listbox:
listbox1 affiche uniquement les valeurs X1
listbox2 affiche uniquement les valeurs X2.

pouvez vous m'aidez svp?
d'avance merci

 

[Acher12]

re bonjour,
voila le code mais je sais pas les limites.
merci comme même.
//"600" mon tableau contient plus de 500 lignes
--------------------------------------------------
For col = 2 To 600
For li = 2 To 600
If Cells(li, col).Value Like "RDV dans les 7jours" Then
ListBox1.AddItem Cells(li, 1)
End If
If Cells(li, col).Value Like "RDV Dépasser" Then
ListBox2.AddItem Cells(li, 1)
End If
Next li


Next col

 

[Jauster]

Bonjour,
As-tu un exemple (anonymisé) de ton fichier pour en faciliter la compréhension ?

Merci

 

[Acher12]

Bonjour,
Merci Jauster!
ci joint mon fichier.
pour mieux t'expliquer, le but c'était d'afficher la date d'échéance dans deux listbox différentes.
listbox1 si le RDV n'as pas dépasser un délais de 7 jours et que la date du RDV est < à la date système.
listbox2 si le RDV est dépassé

voila ce que j'ai pu trouvé!
j'ai joué sur les formules excel et je me pointe directement sur le résultat de la cellule.
Merci

 

[Jauster]

Hello,

Je ne comprends pas ce qui bloque. Sur un test avec plusieurs données, elles s'affichent tous dans la bonne listbox.
> Ou alors tu veux uniquement afficher la date dans cette listbox ?

Cependant je ne comprends pas le For Col du code suivant :

For col = 2 To 600
For li = 2 To 600
If Cells(li, col).Value Like "RDV dans les 7jours" Then
ListBox1.AddItem Cells(li, 1)
End If
If Cells(li, col).Value Like "RDV Dépasser" Then
ListBox2.AddItem Cells(li, 1)
End If
Next li
Next col