Discussion :

[jeje22]

Bonjour,

J’ai un formulaire dans lequel il y a une zone de liste, qui contient un tableau de plusieurs colonnes, dont une colonne « Longueur » (champ numéro 7, et de type double). Je cherche à afficher dans mon formulaire via une zone de texte, un texte, ou autre moyen la SOMME de la colonne « Longueur » (pour les valeurs affichées dans ma zone de liste).

Merci pour votre aide.

JA

[User]

Salut,

Ta zone de liste est alimentée par une requête je suppose ???

Si oui, peux-tu poster son sql ?

[jeje22]

voilà le SQL correspondant à la zone de liste.
Il est intégré dans un petit bout de code vba.

Code :

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

1
2
3
4
5
SQL = "SELECT First(Streets_et_AltStreets.LINK_ID_MAX) AS LINK_ID_MAX, Streets_et_AltStreets.FEAT_ID, First(Streets_et_AltStreets.ST_NAME) AS Nom_complet, First(Streets_et_AltStreets.ST_NM_BASE) AS Nom_de_la_rue, First(Streets_et_AltStreets.ST_TYP_BEF) AS Type_de_voie, First(Streets_et_AltStreets.L_POSTCODE) AS Code_Postal, First(Streets_et_AltStreets.LONG_TOTALE_TRONCON) AS Longueur_totale_KM"
SQL = SQL & " FROM Streets_et_AltStreets"
SQL = SQL & " WHERE (((Streets_et_AltStreets.R_INSEE) Like '" & Me.Lst_Code_INSEE & "*') And ((Streets_et_AltStreets.LONG_TOTALE_TRONCON) Is Not Null)) Or (((Streets_et_AltStreets.L_INSEE) Like '" & Me.Lst_Code_INSEE & "*') And ((Streets_et_AltStreets.LONG_TOTALE_TRONCON) Is Not Null))"
SQL = SQL & " GROUP BY Streets_et_AltStreets.FEAT_ID"
SQL = SQL & " ORDER BY First(Streets_et_AltStreets.ST_NAME);"

JA

[User]

Re,

A la suite de ton code une fois que ta liste1 est mise à jour, tu mets le code:

Code :

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

1
2
3
4
5
6
7
v = 0
 
For i = 0 To Me.Liste1.ListCount - 1
v = v + Me.Liste1.Column(6, i)
Next i
 
Me.Resultat.Value = v

Si tu as 1 zone de liste nommée Liste1 et une zone de texte nommée Resultat

[jeje22]

En utilisant ton code

Code :

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

1
2
3
4
5
6
7
v = 0
 
For i = 0 To Me.Liste1.ListCount - 1
v = v + Me.Liste1.Column(6, i)
Next i
 
Me.Resultat.Value = v

Le Me.resultat.value me renvoie : le nom de la colonne et toutes les valeurs de ma zone de liste (juste de la colonne qui m'intéresse). Alors que je cherche à obtenir la Somme de ces valeurs.
Comment récupérer l'addition de la colonne 7 dans la variable v ?

Merci

JA

[SSJconsult]

Essaye :

Code :

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

v = v + cdbl(Me.Liste1.Column(6, i))

tout en declarant

Code :

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

Dim v As Double

[jeje22]

j'ai un message me disant :
Incompatibilité de Type

J'ai mis
Dim v as Double
et le champs de ma table est bien en réel double pourtant.

[SSJconsult]

es-tu certain que :

• c'est bien la septieme colonne que tu veux additionner ? (la numerotation des colonnes commence a 0)
• la septieme colonne ne contient que des donnees numeriques ?
• si elle peut contenir des Null, utilise :

  Code :

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

  v = v + cdbl(Nz(Me.Liste1.Column(6, i),0))

[jeje22]

- C'est biean la 7ème colonne qui m'interresse. D'ailleurs, le Me.Liste1.Column(6, i) me retourne bien le nom de la colonne.
- Et ce champ est de type double et ma requête écarte les valeurs pouvant être nulles.

Voici mon code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Public Sub RefreshQuery()
Dim SQL As String
Dim v As Double
Dim i As Long
 
SQL = "SELECT First(Streets_et_AltStreets.LINK_ID_MAX) AS LINK_ID_MAX, Streets_et_AltStreets.FEAT_ID, First(Streets_et_AltStreets.ST_NAME) AS Nom_complet, First(Streets_et_AltStreets.ST_NM_BASE) AS Nom_de_la_rue, First(Streets_et_AltStreets.ST_TYP_BEF) AS Type_de_voie, First(Streets_et_AltStreets.L_POSTCODE) AS Code_Postal, First(Streets_et_AltStreets.LONG_TOTALE_TRONCON) AS Longueur_totale_KM"
SQL = SQL & " FROM Streets_et_AltStreets"
SQL = SQL & " WHERE (((Streets_et_AltStreets.R_INSEE) Like '" & Me.Lst_Code_INSEE & "*') And ((Streets_et_AltStreets.LONG_TOTALE_TRONCON) Is Not Null)) Or (((Streets_et_AltStreets.L_INSEE) Like '" & Me.Lst_Code_INSEE & "*') And ((Streets_et_AltStreets.LONG_TOTALE_TRONCON) Is Not Null))"
SQL = SQL & " GROUP BY Streets_et_AltStreets.FEAT_ID"
SQL = SQL & " ORDER BY First(Streets_et_AltStreets.ST_NAME);"
 
 
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
 
v = 0
For i = 0 To Me.lstResults.ListCount - 1
'v = v + CDbl(Me.lstResults.Column(6, i))
'v = v + Me.lstResults.Column(6, i)
v = v + CDbl(Nz(Me.lstResults.Column(6, i), 0))
Next i
Me.Resultat.Value = v
 
End Sub

Résultat : erreur de type "Incompatibilité de Type"


Ce qui est bizarre, c'est que si je mets les lignes de codes suivantes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
...
Dim v As String
....
 
v = 0
 
For i = 0 To Me.Liste1.ListCount - 1
v = v + Me.Liste1.Column(6, i)
Next i
 
Me.Resultat.Value = v
...

J'obtiens dans ma zone de texte : le nom de la colonne et la liste de toutes les valeurs qui s'y trouvent (et nom la SOMME)

Et dès que je mets

Code :

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

Dim v As Double

j'ai une erreur de compatibilité, même avec vos autres propositions.

[Tofalu]

A mon avis, il y a un soucis de séparateur décimal. Utilise la fonction replace pour transformer le . en , ou l'inverse suivant le séparateur décimal que tu utilises.

[mondev]

Bonjour,


Oui, c'est le genre d'erreur toute bête qui te fait perdre des heures, je déteste ça moi aussi

Bon, Essaye:
- vérifie qu'il n'y a rien dans la source de ta zone de texte
- essaye de faire MsgBox v pour voir ce que ça donne
- ...

J'obtiens dans ma zone de texte : le nom de la colonne et la liste de toutes les valeurs qui s'y trouvent (et nom la SOMME)

nom de la colonne, donc entete de colonne non? si oui, je crois qu'il faut faire for i=1 to... (pas sûr!)
.Column(6,0) : la ligne d'entete

le séparateur décimal, c'est une piste aussi. Essaye avec seulement une ligne pour voir si CDbl() fait bien le travail, par exemple .Value = .Column(6,2) (une ligne avec un nombre réel bien sur)

a+

[jeje22]

J'ai modifié les options régionales pour passer du . à ,
mais j'ai toujours la même erreur, à savoir "Incompatibilité de type".

Y aurait-il une autre solution pour obtenir la somme d'un champ présent dans une zone de liste ?

JA

[jeje22]

YES
ca fonctionne avec for i=1 to

Code :

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

1
2
3
4
5
v = 0
For i = 1 To Me.lstResults.ListCount - 1
v = v + Me.lstResults.Column(6, i)
Next i
Me.Resultat.Value = v

(Nos mails s'étaient croisés)

Merci à tous

[mondev]

Y'a pas de quoi
Bonne journée...