Initialiser listbox automatiquement

[ascal44]

Bonjour et bonnes fêtes de fin d'année,

je voudrais qu'une listbox s'actualise en fonction des dates sélectionnées:

Le fichier d'exemple est joint ici pour une meilleure explication :http://cjoint.com/?mBkiyqVObK

 

[jp14]

Re : Initialiser listbox automatiquement

Bonsoir

TextDate ne contient pas une date sous la forme jj/mm/aaaa mais uniquement mm aaaa

JP

 

[ascal44]

Re : Initialiser listbox automatiquement

Est il possible de concaténer la date valeur et la valeur du TextDate pour chaque ligne ?

 

[ascal44]

Re : Initialiser listbox automatiquement

Bonsoir , pour les dates j'ai trouvé la solution.

Maintenant je m'attaque à un problème de calcul dans la listeview:
Je voudrais calculer dans le Textbox1 le total des débits des lignes qui ont un S dans la colonne solde.
Et dans le Textbox2 le total des Crédits des lignes qui ont un S dans la colonne Solde moins la valeure du Textbox1.

Ci joint une photo de ce que je souhaite

 

[jp14]

Re : Initialiser listbox automatiquement

Bonsoir

Code à tester

Private Sub CommandButton2_Click()
Dim i As Integer, j As Integer
Dim credit As Currency, debitt As Currency
With ListView1
    'Boucle sur toutes les lignes
    For i = 1 To .ListItems.Count
        '.ListItems(i)
        ' les colonnes commencent à 0
        If LCase(.ListItems(i).ListSubItems(10).Text) = "s" Then
            If .ListItems(i).ListSubItems(8).Text <> "" Then _
            debit = debit + CCur(.ListItems(i).ListSubItems(8).Text)
            If .ListItems(i).ListSubItems(9).Text <> "" Then _
            credit = credit + CCur(.ListItems(i).ListSubItems(9).Text)
        End If
    Next i
Next i
End Sub

Il faut rajouter un bouton
A modifier en fonction des colonnes (la première colonne à pour valeur 0)


JP

 

[ascal44]

Re : Initialiser listbox automatiquement

Merci pour votre rapidité jp14 ,

J'ai modifié quelque peu votre code : mais rien ne se passe !!!

Private Sub CommandButton2_Click()
Dim i As Integer, j As Integer
Dim credit As Currency, debit As Currency


With ListView1
    'Boucle sur toutes les lignes
    For i = 1 To .ListItems.Count
        '.ListItems(i)
        ' les colonnes commencent à 0
        If LCase(.ListItems(i).ListSubItems(12).Text) = "s" Then
            If .ListItems(i).ListSubItems(9).Text <> "" Then _
           TextBox1 = debit + CCur(.ListItems(i).ListSubItems(9).Text)
            If .ListItems(i).ListSubItems(11).Text <> "" Then _
            TextBox2 = credit + CCur(.ListItems(i).ListSubItems(11).Text)
        End If
    Next i
End With
End Sub

 

[jp14]

Re : Initialiser listbox automatiquement

Bonsoir
Il faut vérifier le numéro des colonnes, sur l'image la colonne avec s est position 10, avec un point d'arrêt sur with....., on peut faire dérouler la procédure en pas à pas et de ce fait vérifier si les tests sont correct.

Merci pour votre rapidité jp14 ,

J'ai modifié quelque peu votre code : mais rien ne se passe !!!

Private Sub CommandButton2_Click()
Dim i As Integer, j As Integer
Dim credit As Currency, debit As Currency
With ListView1
    'Boucle sur toutes les lignes
    For i = 1 To .ListItems.Count
        '.ListItems(i)
        ' les colonnes commencent à 0
        If LCase(.ListItems(i).ListSubItems[COLOR="Red"](10)[/COLOR].Text) = "s" Then
            If .ListItems(i).ListSubItems(9).Text <> "" Then _
           [COLOR="Red"]debit[/COLOR] = debit + CCur(.ListItems(i).ListSubItems(9).Text)
            If .ListItems(i).ListSubItems(11).Text <> "" Then _
            [COLOR="Red"]credit[/COLOR] = credit + CCur(.ListItems(i).ListSubItems(11).Text)
        End If
    Next i
End With
[COLOR="Red"]TextBox1 = debit 
TextBox2 = credit[/COLOR]
End Sub

JP

 

[ascal44]

Re : Initialiser listbox automatiquement

Merci , j'ai réussi a adapter le dernier code.

Il ne reste plus qu'a faire un bouton pour saisir ces données dans les différents comptes.

 

[ascal44]

Re : Initialiser listbox automatiquement

Bonsoir,
J'ai essayé en vain de créer un bouton pour saisir les échéances de la listview dans les les différents comptes : une feuille par compte ( COURANT,BNP et autres).
Donc je sollicite encore votre aide .