Afficher ListBox dans Usf avec Certaine Données suivant Date

[MuscatMimi]

Afficher ListView dans Usf avec Certaine Données suivant Date

Bonjour a tout le Forum


Voila, j'aimerais savoir s'il est possible de faire afficher dans
une ListView,seulement les données des ligne de la Bdd ,si la Date Echéance dépasse 30 Jours Colonne " N "
par rapport a la Date de Facturation Col " D "

Merci de votre aide a l'avance

Cordialement

 

[Paritec]

Re : Afficher Listview dans Usf avec Certaine Données suivant Date

bonsoir vaucluse
bah change le titre c'est tout simple
a+
Papou

 

[MuscatMimi]

Re : Afficher Listview dans Usf avec Certaine Données suivant Date

Bonjour Paritec

Je viens de changer
mais ça reste affiché toujours dans
la liste des fils sur le forum
toujours le même titre
Cdlt

 

[MuscatMimi]

Re : Afficher Listview dans Usf avec Certaine Données suivant Date

Bonjour,

Toujours personne pour apporter réponse a ma demande???
Bon Dimanche

 

[kjin]

Re : Afficher ListBox dans Usf avec Certaine Données suivant Date

Bonjour,
J'ai du mal à comprendre ta question
Donc je compare la date d'aujourd'hui et la date de facturation et tu adapteras, d'autant que depuis le temps et les multiples exemples qui t'on été fournis, tu devrait maintenant manipuler les listview sans pb
A+
kjin

 

[MuscatMimi]

Re : Afficher ListBox dans Usf avec Certaine Données suivant Date

Bonjour Kjin

Merci une nouvelle fois pour ton aide
je suis ok avec toi, pour la manip des ListView,mais je sais
pas ce me joue ,mes neuronnes ,j'avance plus

En fait ce que je demandais, c'est de faire afficher dans la ListView,
les lignes ,si la Date Echéance est arrivée a terme

C'est a dire ,si aujourdh'ui, la Date Echéance est le 20/09/2009, il faut que cette ligne soit affichée dans la ListView, (et ainsi de suite si d'autres Dates arrive a Echéance)

Je pense avoir apporter un peu plus d'explications compréhensibles

Bon Dimanche

 

[ChTi160]

Re : Afficher ListBox dans Usf avec Certaine Données suivant Date

Salut Christian
Bonjour le Fil
Bonjour le Forum

Arfff pas évident , car dans ton exemple l'ensemble des lignes sont arrivées à échéance (aujourd hui)Lol
ne peux tu mettre un exemple avec ce que tu as et ce que tu veux

Merci
Bonne journée

 

[kjin]

Re : Afficher ListBox dans Usf avec Certaine Données suivant Date

Re, bonjour Chti160,
Il suffit dans ce cas de tester les dates de la colonne N
A toi de voir s'il faut tester uniquement celles qui correspondent à la date du jour ou si tu veux renvoyer également toutes celles qui sont antérieures

Option Explicit
Private Sub UserForm_Initialize()
Dim dl As Long, i As Long, x As Long
dl = Range("A65000").End(xlUp).Row
    With ListView1
        With .ColumnHeaders
            .Add , , "Nom", 80
            .Add , , "Date Facture", 80
            .Add , , "Date Echeance", 80
        End With
        .View = lvwReport
    For i = 4 To dl
        [COLOR="Blue"]If Date >= Cells(i, 14) Then[/COLOR] '= si uniquement la date du jour
            .ListItems.Add , , Cells(i, 1)
            x = .ListItems.Count
            .ListItems(x).ListSubItems.Add , , Cells(i, 4)
            .ListItems(x).ListSubItems.Add , , Cells(i, 14)
        End If
    Next
End With

End Sub

A+
kjin

 

[MuscatMimi]

Re : Afficher ListBox dans Usf avec Certaine Données suivant Date

Re Kjin

Merci a nouveau de ta réponse,mais j'ai réussi a trouver,tout comme tu la
notifié

Par contre suis imcappable, de pouvoir nommer la Feuil Data dans le Code,
car cet Usf s'ouvrira sur une autre feuille, avec ton code, si je place un Btn sur une autre feuil, aucune données ne s'affiche

Bonne soirée

 

[ChTi160]

Re : Afficher ListBox dans Usf avec Certaine Données suivant Date

Salut Christian
Bonjour le fil
Bonjour le Forum

je me suis permis de modifier ainsi , le code de Kjin , pour y introduire le nom de la feuille , qui sera prise en compte par la macro .

Option Explicit
Private Sub UserForm_Initialize()
Dim dl As Long, i As Long, x As Long
[COLOR=Blue][I]Dim Ws_Source As Worksheet[/I][/COLOR]
          [I][COLOR=Blue] Set Ws_Source = Worksheets("Data") [/COLOR][/I]'[COLOR=DarkGreen]Ici le nom de la feuille[/COLOR]
dl = [I][COLOR=Blue]Ws_Source[/COLOR][/I].Range("A65000").End(xlUp).Row
 With [COLOR=Blue]Userform1[/COLOR].ListView1
        With .ColumnHeaders
               .Add , , "Nom", 80
               .Add , , "Date Facture", 80
               .Add , , "Date Echeance", 80
        End With
               .View = lvwReport
    For i = 4 To dl
        If Date >= [I][COLOR=Blue]Ws_Source.[/COLOR][/I]Cells(i, 14) Then '= si uniquement la date du jour
               .ListItems.Add , , [I][COLOR=Blue]Ws_Source[/COLOR][/I].Cells(i, 1)
           x = .ListItems.Count
               .ListItems(x).ListSubItems.Add , , [I][COLOR=Blue]Ws_Source[/COLOR][/I].Cells(i, 4)
               .ListItems(x).ListSubItems.Add , , [COLOR=Blue][I]Ws_Source[/I][/COLOR].Cells(i, 14)
        End If
    Next
End With
End Sub

Bonne journée

 

[MuscatMimi]

Re : Afficher ListBox dans Usf avec Certaine Données suivant Date

Bonjour Jean-Marie ,Kjin et le Forum

Merci pour cette modif Jean marie

J'espére que Kjin ne sera pas vexé
Je viens d'essayer ton code
ça fonctionne nickel

Cordialement

 

[kjin]

Re : Afficher ListBox dans Usf avec Certaine Données suivant Date

Bonjour christian, jean-marie,

J'espére que Kjin ne sera pas vexé

Et pourquoi diable !
Il n'y a pas d'exclusive (enfin c'est mon avis), donc bien au contraire
A+
kjin

 

[MuscatMimi]

Re : Afficher ListBox dans Usf avec Certaine Données suivant Date

Salut Kjin

Heureux de te croiser
Je savais que tu allais répondre cela
Je sais trés bien, que personne ,ici n'est fâché si une autre personne intervient, bien au contraire
Tu sais je galére encore sur mon projet Facturation& Gestion de Stock
dur dur
a bientôt