Faire apparaitre les produits <2 mois dans ma listebox

[aziz]

Bonjour à tous et merci de votre aide
En cliquant sur le bouton Modification, je souhaiterai faire apparaître dans ma liste uniquement les produits
dont la couverture en mois est inférieur à 2 (voir la colonne H onglet récapitulatif)

Merci à tous

 

[Paf]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Bonjour

en rajoutant un test sur cette colonne H

Dans Private Sub UserForm_Initialize() de la Userform1 rajouter, juste après For x = 2 To Sheets("RÉCAPITULATIF")...

 If Sheets("RÉCAPITULATIF").Cells(x, 8) < 2 Then

ne pas oublier le End If juste avant Next x

Bonne suite

 

[aziz]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Bonsoir Paf
et merci pour ta réponse, mais je n'y suis pas arrivé
Ci joint mon fichier modifié.
Encore Merci
Bonne soirée

 

[Paf]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Re,

mais je n'y suis pas arrivé

effectivement, le code à rajouter n'apparait nulle part!

Je ne peux que répéter ce que j'ai dit au post #2:

rajouter la ligne de code à la ligne suivant For x = 2 To Sheets("RÉCAPITULATIF")...

Bonne suite

 

[aziz]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Bonjour PAF
Voila j'ai rajouter le code mais j'ai une erreur de compilation ?
Merci à toi

 

[Paf]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Re,

puisqu'il faut tout répéter deux fois (cf post #2) :

ne pas oublier le End If juste avant Next x, donc rajouter la ligne de code: End If juste avant la ligne Next x

Bon courage

 

[aziz]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Bonsoir PAF
un grand merci à toi
Bon week end

 

[aziz]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Par contre j'ai essayer ceci, pour ne pas faire apparaitre les cellules vides de la colonne H
et cela ne veux pas fonctionner. Ou est l'erreur ? Merci

If Sheets("RÉCAPITULATIF").Cells(x, 8) <> "" <2 Then

 

[gosselien]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Bonjour Azi, Pat, le forum

tes boucles ne sont par fermées, je permettrai de te 2 conseils:

1) quand tu écris un for... , ecris le next tout de suite puis tu insères ton code , idem pour un with end with

2) regarde ici, un outil bien pratique : Office Automation Ltd. - Smart Indenter


ton
For x = 2 To Sheets("RÉCAPITULATIF").Range("C65536").End(xlUp).Row
If Sheets("RÉCAPITULATIF").Cells(x, 8) < 2 Then
With Me.ListBox1 'prend en compte la ListBox1
.AddItem Sheets("RÉCAPITULATIF").Cells(x, 1) 'ajoute la valeur de la colonne A
.Column(1, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 3) 'ajoute la valeur de la colonne B
.Column(2, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 4) 'ajoute la valeur de la colonne C
.Column(3, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 5) 'ajoute la valeur de la colonne D
.Column(4, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 6) 'ajoute la valeur de la colonne E
.Column(5, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 7) 'ajoute la valeur de la colonne F
.Column(6, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(x, 8) 'ajoute la valeur de la colonne G
End With 'fin de la prise en compte de la ListBox1
End If
Next x 'prochaine cellule de la boucle

 

[Paf]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Re et bonjour gosselien

@ aziz If Sheets("RÉCAPITULATIF").Cells(x, 8) <> "" And Sheets("RÉCAPITULATIF").Cells(x, 8) < 2 Then

A+

 

[aziz]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Bonsoir PAF et au forum
Merci pour tes conseils et ton aide.
Bonne Soirée

 

[aziz]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Bonjour PAF et au forum
Ma question est pourquoi est ce que mes titres de mes colonnes ne sont pas conserver lors de mon filtre des produits < 2 mois ?
Merci

 

[Paf]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Re

on commence la boucle x 'représentant le N° de ligne) à 2 . La ligne de titre est en ligne 3 et les données commencent en ligne 4.

quand x=3, on traite la ligne de titre avec
If Sheets("RÉCAPITULATIF").Cells(x, 8) <> "" And Sheets("RÉCAPITULATIF").Cells(x, 8) < 2 Then

mais en ligne 3 colonne 8 (H3) on trouve Couverture en mois, et ce n'est ni <>"" ni <2, donc la ligne n'est pas chargée.

Pour avoir la ligne de titre dans la listbox, il faudrait, avant la boucle For x.... de chargement de la listbox, quelques instructions pour charger la ligne de titre.

'***************************
'alimentation de la ListBox1
'***************************
'chargement ligne de titre
    With Me.ListBox1 'prend en compte la ListBox1
        .AddItem Sheets("RÉCAPITULATIF").Cells(3, 1) 'ajoute la valeur de la colonne A
        .Column(1, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(3, 3) 'ajoute la valeur de la colonne B
        .Column(2, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(3, 4) 'ajoute la valeur de la colonne C
        .Column(3, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(3, 5) 'ajoute la valeur de la colonne D
        .Column(4, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(3, 6) 'ajoute la valeur de la colonne E
        .Column(5, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(3, 7) 'ajoute la valeur de la colonne F
        .Column(6, .ListCount - 1) = Sheets("RÉCAPITULATIF").Cells(3, 8) 'ajoute la valeur de la colonne G
    End With 'fin de la prise en compte de la ListBox1

'boucles sur toutes les cellules éditées de la colonne C de l'onglet "Feuil2"
For x = 2 To Sheets("RÉCAPITULATIF").Range("C65536").End(xlUp).Row
...
...

A+

 

[aziz]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Merci, je vais essayer
Bonne soirée

 

[aziz]

Re : Faire apparaitre les produits <2 mois dans ma listebox

Bonjour PaF
Je reviens vers toi car la je galère...depuis hier soir 😕
regarde mon fichier
Merci