XL 2013 Remplir une listebox avec conditions

Acher12

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 

Acher12

XLDnaute Nouveau
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
 

Pièces jointes

  • Test.xls
    89.5 KB · Affichages: 28

Jauster

XLDnaute Occasionnel
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 :

VB:
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
 

Discussions similaires

Réponses
3
Affichages
239

Statistiques des forums

Discussions
311 719
Messages
2 081 871
Membres
101 828
dernier inscrit
Did-Pan