calcul dans listbox

Hulk

XLDnaute Barbatruc

• 14 Octobre 2009

• #2

Re : calcul dans listbox

Hello,

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

Cdt, Hulk.

 

Pièces jointes

• calcul listbox.xls

  38.5 KB · Affichages: 81
• calcul listbox.xls

  38.5 KB · Affichages: 83
• calcul listbox.xls

  38.5 KB · Affichages: 89

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 14 Octobre 2009

• #3

Re : calcul dans listbox

Bonsoir,
Salut Hulk 🙂, as tu bien vu ceci

dam3117 à dit:

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)

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

D

dam3117

XLDnaute Occasionnel

• 14 Octobre 2009

• #4

Re : calcul dans listbox

Bonjour kjin, hulk,

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

cdt
damien

 

Vote positif 0 Vote négatif

D

dam3117

XLDnaute Occasionnel

• 14 Octobre 2009

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Octobre 2009

• #6

Re : calcul dans listbox

Bonjour Damien

essaye peut être ainsi :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

D

dam3117

XLDnaute Occasionnel

• 14 Octobre 2009

• #7

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Octobre 2009

• #8

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).

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Octobre 2009

• #9

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 ?

 

Vote positif 0 Vote négatif

D

dam3117

XLDnaute Occasionnel

• 14 Octobre 2009

• #10

Re : calcul dans listbox

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Octobre 2009

• #11

Re : calcul dans listbox

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 15 Octobre 2009

• #12

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

 

Pièces jointes

• damien.zip

  18.6 KB · Affichages: 56
• damien.zip

  18.6 KB · Affichages: 59
• damien.zip

  18.6 KB · Affichages: 56

Vote positif 0 Vote négatif

D

dam3117

XLDnaute Occasionnel

• 15 Octobre 2009

• #13

Re : calcul dans listbox

Bonjour à vous,

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

merci
dam

 

Vote positif 0 Vote négatif

D

dam3117

XLDnaute Occasionnel

• 17 Octobre 2009

• #14

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 18 Octobre 2009

• #15

Re : calcul dans listbox

Bonjour,

dam3117 à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif