XL 2016 Macro pour decompte de kms

jalucyne · 20 Décembre 2017

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 · 20 Décembre 2017

Bonjour Jalucyne :

Un exemple :

VB:

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 · 20 Décembre 2017

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

XL 2016 Macro pour decompte de kms

jalucyne

XLDnaute Occasionnel

Pièces jointes

thebenoit59

XLDnaute Accro

jalucyne

XLDnaute Occasionnel

Discussions similaires