Microsoft 365 Besoin formule Km to miles automatique

crashtwo

XLDnaute Nouveau
Bonjour

Voila, j'aurais besoin d'une formule qui lorsque j'écris en KM, cela se transforme automatiquement en miles dans la même colonne et non dans une autre case.
Exemple:
Colonne A: mileage depart: je note en km et cela se convertit automatiquement en miles
Colonne B: mileage arrivée: je note en km et cela se convertit automatiquement en miles
Colonne C: Soustraction de B-A et pareil km en miles.

D'avance, merci!
 

Hasco

XLDnaute Barbatruc
Repose en paix
Re,

Voici dans le module de code de la feuille :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    '
    ' Si plus d'une cellue a changé -> sortir
    If Target.CountLarge > 1 Then Exit Sub
    '
    ' si la valeur n'est pas numérique -> sortir
    If Not IsNumeric(Target) Then Exit Sub
    '
    ' si la cellule (Target) n'est pas dans les colonnes idoines -> sortir
    If Intersect(Target, Range("A6").CurrentRegion.Columns(3).Resize(, 2)) Is Nothing Then Exit Sub
    '
    ' Eviter les appels en boucle de l'évènement Worksheet_Change
    Application.EnableEvents = False
    Target = Target * 1.609 ' conversion
    Application.EnableEvents = True ' rétablissement de la gestion des évènements.
End Sub

Cordialement
 

Pièces jointes

  • KmToMiles.xlsm
    22.7 KB · Affichages: 5

crashtwo

XLDnaute Nouveau
Merci
Re,

Voici dans le module de code de la feuille :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    '
    ' Si plus d'une cellue a changé -> sortir
    If Target.CountLarge > 1 Then Exit Sub
    '
    ' si la valeur n'est pas numérique -> sortir
    If Not IsNumeric(Target) Then Exit Sub
    '
    ' si la cellule (Target) n'est pas dans les colonnes idoines -> sortir
    If Intersect(Target, Range("A6").CurrentRegion.Columns(3).Resize(, 2)) Is Nothing Then Exit Sub
    '
    ' Eviter les appels en boucle de l'évènement Worksheet_Change
    Application.EnableEvents = False
    Target = Target * 1.609 ' conversion
    Application.EnableEvents = True ' rétablissement de la gestion des évènements.
End Sub

Cordialement
Bonjour.

Avant tout, merci! Par contre, chaque fois que j'essaie de copier la macro sur mon fichier excel. Il ne s'applique pas du tout.
Ci-joint un autre document. Peut-être une complication non prise en compte?

Cordialement,
 

Pièces jointes

  • YE Jun 2022 - ExpenseWorkBook.xls
    383.5 KB · Affichages: 2

Hasco

XLDnaute Barbatruc
Repose en paix
Re,

Voici votre fichier en .xlsm. Les lignes de codes sont dans le module ThisWorkbook car visiblement, et ce que vous n'aviez pas signalé, c'est 12 feuilles sont concernées !

La macro se lancera au changement des cellules de la plage D22:E38 de chaque feuille dont le nom commence par 'Month '

cordialement

[Oups] Je m'ai trompé @job75 a raison corrigé dans le fichier joint
 

Pièces jointes

  • YE Jun 2022 - ExpenseWorkBook.xlsm
    212.3 KB · Affichages: 4

crashtwo

XLDnaute Nouveau
Re,

Voici votre fichier en .xls. Les lignes de codes sont dans le module ThisWorkbook car visiblement, et ce que vous n'aviez pas signalé, c'est 12 feuilles sont concernées !

La macro se lancera au changement des cellules de la plage D22:E38 de chaque feuille dont le nom commence par 'Month '

cordialement

P.S. ce sont des Km que le demandeur souhaite obtenir
Un tout grand merci pour cette aide!
Par contre, le fichier manque 😅 et non, c'est l'inverse, ce sont des km que je dois transformer en miles
 

Discussions similaires

Réponses
3
Affichages
643
Réponses
2
Affichages
538
Réponses
8
Affichages
669

Statistiques des forums

Discussions
311 725
Messages
2 081 945
Membres
101 849
dernier inscrit
florentMIG