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
 

Jauster

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

Merci
 

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
 

Fichiers joints

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas