remplissage listbox sur 2 critères

[buromania]

Bsr Forum

J'essaie de remplir une liste modifiable avec 2 critères de recherche sans grand résultat

If cele.Value = Me.TextBox2.Value And cele.Offset(0, 2).FormulaLocal <= '= AUJOURDHUI()' Then

Pouvez vous me dire ce qui cloche dans cette ligne
Bon WE

 

[Charly2]

Bonsoir buromania, bonsoir à toutes et à tous

C'est la seconde partie de ta condition qui 'cloche' :

cele.Offset(0, 2).FormulaLocal <= '= AUJOURDHUI()'

Dis-nous ce que tu souhaites faire comme comparaison et nous pourrons certainement t'aider...

A+

 

[jammy17]

ESSAYES UN CODE COMME CELUI CI CELA DEVRAIT RESOUDRE TON PROBLEME JE PENSES:
A ADAPTER A TON FICHIER BIEN SUR!!!

private c1 as date'declare ta variable date
Private plage As Range
Private Cel As Range

'**********************************************

Dim i As Integer 'déclare la variable i

ListBox1.Clear 'vide la ListBox1
ListBox2.Clear 'vide la ListBox2'il faut creer une listbox en parrallele que tu caches

c1 = Format(Now() , 'd/m/yy') 'définit la variable C1 au format de ton chois
'remplissage de la ListBox1 en fonction de la date du jour et de ton textbox2
With Sheets('ta feuille')


ListBox1.ColumnCount = 2'declare le nbre de colonne que tu souhaites
'ENTREE DU NOUVEAU TABLEAU
ListBox1.ColumnWidths = '0pt;0pt''definit la largeur de tes colonnes
ListBox1.Font.Size = 12 ' definit la taille du texte dans te listbox
Set plage = .Range('A1:A' & .Range('A65536').End(xlUp).Row) 'définit la variable Plage
'ta plage correspond ici a toutes les donnees de ta colonne A sans les lignes vides
End With
'******************************************************************************************
'******************************************************************************************
For Each Cel In plage
If Cel.Offset(0, 0).Value = textbox2.Value And Cel.Offset(0, 2) <= c1 Then
ListBox1.AddItem Cel.Value 'nat.
ListBox1.Column(1, i) = Cel.Offset(0, 1).Value
ListBox1.Column(2, i) = Cel.Offset(0, 2).Value
' et ainsi de suiteselon ce que tu veux faire apparaitre dans ta listbox

ATTENTION, SI TU DOIS FAIRE APPARAITRE UNE DATE TU LE FERAS COMME CECI:
EX: ListBox1.Column(1, i) = Format(Cel.Offset(0, 1).Value, 'd/m/yy') 'FORMAT DE DATE CHOISI

ListBox2.AddItem Cel.Row 'remplissage de la ListBox2
i = i + 1 'redéfinit la variable i
End If
Next Cel

 

[buromania]

Bjr Charly, Jammy, le Forum

Désolé de vous répondre tardivement mais n'étais pas là ce WE. J'ai essayé la procédure et tout marche super. Je voulais, en consultant une fiche client, savoir s'il avait des factures en retard.
Très bonne journée à tous