Calcule distance colonne AA (Macro VB)

[avyrex1626]

Bonjour à tous,
Dans mon fichier excel, je désire calculer la distance, mais d'une façon très précit.

Toutes les distances se retrouvent dans la colonne AA à partir de la ligne 4.

Par contre, dans la colonne J, se trouve les numéros d'arrêts.

Donc la façon de calculer les distances est comme suit:
le total de la distance colonne AA se calcule du numéro d'arrêt 1 dans la colonne J, jusqu'au dernier numéro, avant que ça recommence à 1. ensuite, il additionne le total de distance, et ensuite il supprime les distances déjà inscrites et à la place, il met le total sur la Première Ligne de l'arrêt 1.

Les 2 images explique bien le AVANT et APRÈS.



Comment faire s.v.p?

Merci encore pour votre aide.

 

[JHA]

Re : Calcule distance colonne AA

Bonjour à tous,

Ci joint une réponse pour les totaux des "1"

JHA

 

[avyrex1626]

Re : Calcule distance colonne AA

Hello JHA
Merci pour la formule mais j'ai vraiment besoin de garder les distances dans cette colonne et de plus, dans l'arrêt 1 aussi.
Désolé.

Donc si je click sur le bouton calcule distance, la macro calculerait le total, basé sur les critères mentionné plus haut

 

[avyrex1626]

Re : Calcule distance colonne AA (Macro VB)

Croyez-vous que c'est possible en macro et de plus, dans la même colonne?

 

[JHA]

Re : Calcule distance colonne AA (Macro VB)

Bonjour à tous,

Désolé je suis trop nul en VBA, il te faudra patienter, les grosses pointures vont certainement s'y atteler.

JHA

 

[youky(BJ)]

Re : Calcule distance colonne AA (Macro VB)

Bonjour le fil,
Voici une macro à mettre sous le bouton Add distance
Bruno

Private Sub CommandButton1_Click()
For lig = [AA65536].End(3).Row To 4 Step -1
tx = tx + Cells(lig, "AA"): Cells(lig, "AA") = ""
If Cells(lig, "J") = 1 Then Cells(lig, "AA") = tx: tx = 0
Next
End Sub

 

[avyrex1626]

Re : Calcule distance colonne AA (Macro VB)

Merci JHA pour ton temps et ton aide.

Bonjour youky(BJ), Super merci. Ça fonctionne vraiment bien.