XL 2016 Macro pour decompte de kms

[jalucyne]

Bonjour à tous les membres
Je suis nul sur les macros....
Je cherche à chaque exécution de la macro à effectuer un décompte de kms:
Total départ: 1000kms
Chaque jour: il parcourt X kms (variable)
Je cherche à chaque exécution de la macro à obtenir le reste à parcourir
Dans l'attente de vos conseils
Amicalement
Jalucyne
PS: fichier joint

 

[thebenoit59]

Bonjour Jalucyne :

Un exemple :

Sub distance_restante()
Dim dD%, dJ%, dR%
With Sheets("Feuil1")
    dD = .[A2].Value
    If .[D2].Value = "" Then
        dR = dD
        Else: dR = .[D2].Value
    End If
    dJ = .[I2].Value
    dR = dR - dJ
    If dR < 0 then dR = 0
    .[D2].Value = dR
End With
End Sub

 

[jalucyne]

Super, c'est que je cherchais
Merci
Discussion terminée