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

XL 2016 Macro pour decompte de kms

jalucyne

XLDnaute Occasionnel

Pièces jointes

thebenoit59

XLDnaute Accro

jalucyne

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency