Filtrée les lignes ayant uniquement la valeur 1

[SSIAP2]

Bonjour à tous je viens demander svp votre aide

j'utilise une listbox qui affiche des données présent dans ma base de donnée suite à une recherche entre deux date.

je recherche une solution pour creer un bouton quand je clique dessus il m'affiche uniquement les ligne dont la valeur est"1" cette valeur ce trouvent dans la 3 eme collone de ma listbox existe t'il une solution pour cela es ce faisable je reste a votre disposition pour vous donner plus information si cela est necesaire

je vous remercie d'avance de votre aide

 

[RENAUDER]

Re : Filtrée les lignes ayant uniquement la valeur 1

Bonjour,

Il faut que ton bouton vide la Combobox et recharge uniquement les données correspondant à ta colonne 3 de la Combobox et qui sont à la valeur 1 dans ta feuille.

 

[tototiti2008]

Re : Filtrée les lignes ayant uniquement la valeur 1

Bonjour SSIAP2,

Je suppose qu'il s'agit d'une ListBox de la boite à outils Contrôles ?
Est-elle alimentée en spécifiant la propriété RowSource, ListFillRange, ou autrement ?
Est-elle dans la feuille de calcul ou dans un Userform ?
Sinon, pour couper court aux questions, peux-tu nous faire un fichier exemple ?

Edit : Bonjour Eric

 

[kjin]

Re : Filtrée les lignes ayant uniquement la valeur 1

Bonsoir,
Avec un fichier ce serait sans doute bien plus clair et surtout plus efficace

Edit: Salut renauder, tototiti, j'ai remué la question un peu plus longtemps...mais il n'en est rien ressorti

A+
kjin

 

[SSIAP2]

Re : Filtrée les lignes ayant uniquement la valeur 1

BONJOUR renauder, tototiti et kjin il est evident que sans fichier d'exemple c'est pas evident ce pourquoi je vous le donne lol.

à savoir les dite valeur est en collone F donc en collone 6 de la listbox.

l'utilisation est simple ont rentre une date de début puis une date de fin et la liste apparais dans la listbox vue le peut donner les date peuvent etre 01/01/2011 => 01/01/2012

merci d'avance de vous penchez sur mon probleme.

 

[SSIAP2]

Re : Filtrée les lignes ayant uniquement la valeur 1

Re à tous cela semble un peut complexe?

 

[SSIAP2]

Re : Filtrée les lignes ayant uniquement la valeur 1

re bonjour à tous je relance mon appel au sujet de mon projet donc je souhaite lors de la recherche de ma listbox affiche uniquement les ligne dont la valeur en collone 6 est "1" tous les autre devrons etre masquer j'ai mis un fichier d'exemple pleinement fonctionnelle nomer FDC.xls dans mon poste precedent.

merci de me dire si ce là est possible dans le cas contaire comment puis je proceder pour approcher ce meme résultat


merci d'avance de votre aide

 

[tototiti2008]

Re : Filtrée les lignes ayant uniquement la valeur 1

Bonjour à tous,

Peut-être

Sub Search()
Dim recherche As Object
x = 0
With USF1

If .R1 = "" Or .R2 = "" Then Exit Sub

If Not IsDate(.R1) Or Not IsDate(.R2) Then Exit Sub
.ListBox1.clear
DateDebut = Format(.R1, "00000"): DateFin = Format(.R2, "00000")
End With
Application.ScreenUpdating = False

With Worksheets("BDD")
DerLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
DerCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set rng = .Range(.Cells(2, 1), .Cells(DerLigne, DerCol))
End With
With rng
.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess
TabGeneral = .Value
End With
For Lgn = 1 To UBound(TabGeneral, 1)
If Format(TabGeneral(Lgn, 3), "00000") >= DateDebut And Format(TabGeneral(Lgn, 3), "00000") <= DateFin And TabGeneral(Lgn, 6) = 1 Then
x = x + 1
ReDim Preserve TabRecup(7, x)
TabRecup(1, x) = TabGeneral(Lgn, 1)
TabRecup(2, x) = TabGeneral(Lgn, 2)
TabRecup(3, x) = TabGeneral(Lgn, 3)
TabRecup(4, x) = TabGeneral(Lgn, 4)
TabRecup(5, x) = TabGeneral(Lgn, 5)
TabRecup(6, x) = TabGeneral(Lgn, 6)


End If

Next Lgn

With USF1.ListBox1
If x > 1 Then
.List = Application.Transpose(TabRecup)
ElseIf x = 1 Then
.Column = Application.Transpose(TabRecup)
End If
End With
End Sub

 

[SSIAP2]

Re : Filtrée les lignes ayant uniquement la valeur 1

Bonjour tototiti2008

merci pour ton aide c'est parfait tu ma encore une fois super bien aider sincerement un tres grand merci.

bon week end à trés bientot