Discussion :

[Namson]

Bonjour à tous!
premierement je voudrais faire la somme d'une colonne d'une listbox et
secondement j'ai un problème lorsque jécris mes réquêtes pour afficher la liste des clients entre une période et une autre.
merci

[sBoOb14]

Bonjour,

Premièrement :
- Que contient ta listbox ?
- Comment la "remplis" tu ?

Secondement :
- Quel problème as-tu ?
- As-tu un message d'erreur ?
- Quel type de champs utilises-tu ?
- As-tu un exemple de code à nous donner ?
- ... ?

@ Bientôt

[walf80]

Ici moi j'affiche le calcul lors d'un clique sur le bouton "Total"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cmdcal_Click()
Dim nb As Integer
Dim masomme As Double
masomme = 0
For nb = 0 To "talistbox".ListCount - 1
If "talistbox".List(nb) <> " " Then
masomme = masomme + CDbl("talistbox".List(nb))
End If
Next
masomme = Round(masomme, 3)
somme.Text = masomme
End Sub

masomme.text est un textbox qui reçoit le résultat

Si ça peut t'aider fais moi signe

[zazaraignée]

Si j'ai bien compris, il s'agit d'une listbox multicolonne ?

Pour faire une somme... tu ne devrais pas utiliser plutôt une grille? Comme le contrôle MSFlexGrid ?

On affiche les données sur plusieurs colonnes dans un listBox pour des raisons de commodité d'affichage. Pour faire des calculs sur des données 'ordonnées' en tableaux, il vaut toujours mieux utiliser une Grille.

[Namson]

Merci vraiment à tous ca marche comme sur des roulettes!!!


maintenant mon deuxième problème n'a pas encore trouvé de réponse
au fait j'ai écrit une réquête sous vb pour pourvoir afficher la liste des clients inscrits entre deux périodes.
voici la requêt écrite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Set rsart = New ADODB.Recordset
rsart.Open "select * from CLIENT " & _
"where date >= '" & datperio1.Value & "'" & _
"And date <= '" & datperio2.Value & "'", conect, adOpenDynamic
With Flex2
    .Clear
    .Rows = 1
    .FormatString = "Code       |Noms                |Prenoms                        |Cellulaire         |Téléphone        |BP         |Ville            | Quartier          |  Date             "
    Do While Not rsart.EOF
  Me.Flex2.AddItem rsart!codeclt & vbTab & rsart!nomclt & vbTab & rsart!prenclt & vbTab & rsart!celclt & vbTab & rsart!telclt & vbTab & rsart!bpclt & vbTab & rsart!villclt & vbTab & rsart!quartclt & vbTab & rsart!Date
    rsart.MoveNext
    Loop
End With

Mais dans la liste affichée ce n'est que les clients dont le jour est compris entre les deux périodes.

merci

namson 5 points du monde

[sBoOb14]

Perso, j'ai pas totalement compris ton second problème :/

P.S : ca viens peut-être de moi

Et concernant ton premier problème, si les infos affiché dans ta listbox viennent d'une base de donnée, tu peux essayer un "SELECT sum(`champs`) FROM `table`;"