Discussion :

[Apoulit]

Bonjour, je voudrait afficher sur mon label du formulaire: "Label_total_colonne" la somme des valeurs qui s'affichent sur la colonne 8, [Prix mensuel] à chaque changement de ma listbox "Liste1".

J'ai essayé cela ça sur l'ouverture ça ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Open(Cancel As Integer)
Dim var As Integer
Dim i As Long
 
For i = 0 To Me.Liste1.ListCount - 1
 
 
    var = var + Me.Liste1.Column(7, i)
Next i
 
Me.Label_total_colonne.Value = var
End Sub

erreur d exécution 94
utilisation incorrecte de Null

débogage sur ligne

Code :

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

var = var + Me.Liste1.Column(7, i)

Merci d'avance.

[vttman]

Bonjour,
En passant ... elle est où, l'initialisation de la variable var à 0 ?

[Apoulit]

Bonjour vttman,
j'ai suivi ce tuto

https://www.developpez.net/forums/d7...tir-d-listbox/

Même si je fais

Code :

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

1
2
        var = var = Liste1.Column(1, 2)
MsgBox var

la valeur affiche toujours 0 quelque soit la ligne ou la colonne sélectionné entre les parenthèses ?

Merci

[hyperion13]

A tester

Code :

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

var = var + Nz(Me.Liste1.Column(7, i), 0)

[Apoulit]

Bonsoir Hyperion13,

malheureusement ça ne fonctionne pas :/

Merci pour ta réponse.

[tee_grandbois]

bonsoir,
Attention: Dim var As Integer pour un total de prix, le type Integer n'est pas suffisant (pas de décimales et valeur maxi: 32767), mieux vaut remplacer par Currency.
Que renvoie Me.Liste1.Column(7, i) si tu fais:

Code :

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

Debug.Print Me.Liste1.Column(7, i)

?

[Apoulit]

bonsoir,
Attention: Dim var As Integer pour un total de prix, le type Integer n'est pas suffisant (pas de décimales et valeur maxi: 32767), mieux vaut remplacer par Currency.
Que renvoie Me.Liste1.Column(7, i) si tu fais:

Code :

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

Debug.Print Me.Liste1.Column(7, i)

?

Bonsoir ça renvoie ça,

Prix mensuel
27,59
28,6
28,6
18,1
23,1

24,9
23,1

23,68

Donc c'est certainement parce que il y a prix mensuel qui correspond à l’entête de la liste box et des champs vides...
Comment peut on résoudre le pb en gardant l’entête et en sachant qu'il il y a des champs vides ?.

Merci Tee granbois.

[tee_grandbois]

Ok, essaie ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Open(Cancel As Integer)
Dim var As currency
Dim i As Long
 
For i = 1 To Me.Liste1.ListCount 
 
    var = var + + Val(Replace(Nz(Me.Liste1.Column(7, i), "0"), ",", "."))
Next i
 
Me.Label_total_colonne.Value = var
End Sub

explications:
ligne 5: on démarre la boucle à partir de 1 pour éviter l'entête
ligne 7: le Replace() change le séparateur de décimales (virgule) par celui de VBA (point), le Nz() pour gérer les valeurs nulles, le Val() pour convertir la colonne de texte en nombre

[Apoulit]

Bonjour,
un grand merci tee_grandbois ça fonctionne !!!

Pour le i=1 j'avais calculé hier soir en partant me coucher ... me suis dit mais t'es bête ou quoi lol.

Bonne journée !