calcul dans listbox

[dam3117]

Bonsoir au forum,

J'ai une listebox que se charge en me faisant un total global de points en prenant toute les dates.
Ce que je n'arrive pas à faire; c'est que dans un second textbox il me fasse uniquement le total de la derniére date (date et heure commune). merci d'avance
damien

 

[Hulk]

Re : calcul dans listbox

Hello,

Essaie le fichier, ai entouré d'étoiles ce que j'ai rajouté.

Cdt, Hulk.

 

[kjin]

Re : calcul dans listbox

Bonsoir,
Salut Hulk 🙂, as tu bien vu ceci

Ce que je n'arrive pas à faire; c'est que dans un second textbox il me fasse uniquement le total de la derniére date (date et heure commune)

Eh oui ! 😉
Pour ma part, trop crevé pour ce soir
A+
kjin

 

[dam3117]

Re : calcul dans listbox

Bonjour kjin, hulk,

Effectivement j'aurai besoin du total de la derniére date (date et heure commune).

cdt
damien

 

[dam3117]

Re : calcul dans listbox

Bonjour au forum,

désolé d'insister mais est ce quelqu'un aurai une idée pour mon problème je cherche depuis hier soir sans résultat.

merci par avance
damien

 

[Pierrot93]

Re : calcul dans listbox

Bonjour Damien

essaye peut être ainsi :

TextBox2.Value = CDate(ListBox1.List(ListBox1.ListCount - 1, 0)) + CDate(ListBox1.List(ListBox1.ListCount - 1, 1))

bon après midi
@+

 

[dam3117]

Re : calcul dans listbox

Bonsoir Pierrot,

merci mais avec ton code il m'inscrit la date et l'heure dans le textbox2.
j'aurai besoin qu'il me face le total en l'occurence dans l'exemple le total de point pour paul, pour la journée du 17/09/09 c'est 20points.

damien

 

[Pierrot93]

Re : calcul dans listbox

Re

Aarf, pas tout compris moi, tu disais !!!

c'est que dans un second textbox il me fasse uniquement le total de la derniére date (date et heure commune).

 

[Pierrot93]

Re : calcul dans listbox

Re

quand tu dis la dernière date, c'est la plus récente ou bien la dernière de la liste ?

 

[dam3117]

Re : calcul dans listbox

re
c'est la plus recente ou je pensai faire un tri pour que la derniere soit la plus recente.

 

[Pierrot93]

Re : calcul dans listbox

Bonjour,

regarde le code ci-dessous, avec utilisation d'une colonne masquée dans la "listbox"" :

Option Explicit
Private Sub ComboBox1_Change()
Dim c As Range, x As Byte, b As Byte, d As Date
Dim t() As Variant, Total As Double, Total2 As Double

ListBox1.Clear
ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = "50;50;50;50;20;0"
ListBox1.ColumnHeads = True

For Each c In Range("c1:c" & Range("A65536").End(xlUp).Row)
    If c = ComboBox1 Then
        ListBox1.AddItem c.Offset(0, -2).Value
        ListBox1.List(x, 1) = c.Offset(0, -1).Text
        ListBox1.List(x, 2) = c.Value
        ListBox1.List(x, 3) = c.Offset(0, 1).Value
        If c.Offset(0, 1).Value = "rouge" Then
            ListBox1.List(x, 4) = (10)
            ElseIf c.Offset(0, 1).Value = "vert" Then ListBox1.List(x, 4) = (6)
            ElseIf c.Offset(0, 1).Value = "jaune" Then ListBox1.List(x, 4) = (4)
        End If
        ListBox1.List(x, 5) = c.Offset(0, -2).Value + c.Offset(0, -1).Value
        x = x + 1
    End If
Next c

With ListBox1
    For b = 0 To .ListCount - 1
        Total = Total + .List(b, 4)
        If d < .List(b, 5) Then d = .List(b, 5)
    Next
    For b = 0 To .ListCount - 1
        If d = .List(b, 5) Then Total2 = Total2 + .List(b, 4)
    Next
End With

TextBox1.Value = Total
TextBox2.Value = Total2

End Sub

bonne journée
@+

 

[kjin]

Re : calcul dans listbox

Bonjour,
Salut Pierrot 🙂
Même solution avec l'addition de la date et de l'heure dans une colonne masquée
A+
kjin

 

[dam3117]

Re : calcul dans listbox

Bonjour à vous,

Merci pierrot93 et kjin je vais voir tout cela ce soir et vous tiens informer.

merci
dam

 

[dam3117]

Re : calcul dans listbox

bonjour le forum,

Tout d'abord merci pour votre aide c'est ce que je voulais..

maintenant ce que je voudrai c'est une fois que j'ai le nombre de points de la derniere date.que les couleurs correspondant sois dans un label ou textbox peu importe.

merci damien

 

[kjin]

Re : calcul dans listbox

Bonjour,

maintenant ce que je voudrai c'est une fois que j'ai le nombre de points de la derniere date.que les couleurs correspondant sois dans un label ou textbox peu importe.

Et en clair,...(les fautes d'orthographe en moins si possible ?!)
A+
kjin