XL 2013 Cumul des sommes en vba

[SIRYANICE]

Bonjour ou bonsoir chers tous en fonction de votre position et de l'heure !

Je vous soumets un problème dont je fais face actuellement. En effet, je voulais faire apparaitre le cumul des prises carburant dans une textbox (en occurrence la textbox8).
Merci de votre aimable collaboration !

 

[sylvanu]

Bonjour Siryanice,
Je n'ai pas trouvé la Textbox8.
Mais le litrage total peut être calculé avec :

LitrageTotal = Application.Sum(Range("Tableau1[PRISE JOUR]"))

Il vous suffit ensuite d'affecter cette valeur à Textbox8.

 

[SIRYANICE]

Bonjour Siryanice,
Je n'ai pas trouvé la Textbox8.
Mais le litrage total peut être calculé avec :

LitrageTotal = Application.Sum(Range("Tableau1[PRISE JOUR]"))

Il vous suffit ensuite d'affecter cette valeur à Textbox8.

il se trouve dans un formulaire lorsque vous cliquez gestion de données

 

[sylvanu]

Bonjour,
Apparemment ce n'est pas la Textbox8 mais la Textbox4.
En textbox8 j'ai aussi rajouté le km total qui, je pense est la somme de la colonne "ECART KMS"

'----------------------------
'Affiche littrage et kms total
UserForm.TextBox4.Value = Application.Sum(Range("Tableau1[PRISE JOUR]"))
UserForm.TextBox8.Value = Application.Sum(Range("Tableau1[ECART KMS]"))
'----------------------------

 

[SIRYANICE]

Bonjour,
Apparemment ce n'est pas la Textbox8 mais la Textbox4.
En textbox8 j'ai aussi rajouté le km total qui, je pense est la somme de la colonne "ECART KMS"

'----------------------------
'Affiche littrage et kms total
UserForm.TextBox4.Value = Application.Sum(Range("Tableau1[PRISE JOUR]"))
UserForm.TextBox8.Value = Application.Sum(Range("Tableau1[ECART KMS]"))
'----------------------------

Merci pour votre code qui fonctionne super bien. cependant est-il possible l'actualisé selon les critères et filtre dates ?

 

[sylvanu]

C'est déjà le cas, non ?

 

[SIRYANICE]

C'est déjà le cas, non ?
Regarde la pièce jointe 1150187

effectivement mais pour kilométrage non au niveau des écarts kilomètres

 

[sylvanu]

On joue aux devinettes ?
On ne connait pas votre outil, alors donnez tout en même temps, on gagnera du temps.
D'autant que vous auriez pu faire la modif vous même, ce n'est qu'une recopie du litrage en rajoutant :

If i = 19 Then Cumulk = Cumulk + d.Cells(, i)
et à la fin
.TextBox8.Value = Format(Replace(Cumulk, ".", ","), "0 kms")