Microsoft 365 Besoin formule Km to miles automatique

[crashtwo]

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]

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.

Bonjour,

Aucune formule ne peut faire ça ! Une macro oui mais pas une formule de feuille.

Cordialement

 

[crashtwo]

Bonjour,

Aucune formule ne peut faire ça ! Une macro oui mais pas une formule de feuille.

Cordialement

Oui, j'aurais peut-être du mieux formuler ma phrase. Je recherche une macro 🙂

 

[Hasco]

Re,

Il ne vous reste plus qu'à nous fournir un fichier exemple.

Cordialement

 

[crashtwo]

Re,

Il ne vous reste plus qu'à nous fournir un fichier exemple.

Cordialement

Voici le document. Donc tous les km sont en km pour l'instant et je souhaiterais qu'ils soient en miles.

Cordialement et merci surtout!

 

[Hasco]

Re,

Voici dans le module de code de la feuille :

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

 

[crashtwo]

Merci

Re,

Voici dans le module de code de la feuille :

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,

 

[Hasco]

Bonjour,

J'ai besoin de savoir si vous travaillez sur un fichier .xls (format dépassé depuis 13 ans) ou sur un .xlsx ?

Cordialement

 

[job75]

Bonjour crashtwo, Roblochon,

Le mile faisant 1,609 Km il faut diviser les Km par 1.609 pour obtenir des miles.

A+

 

[Hasco]

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

 

[crashtwo]

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

 

[Hasco]

Par contre, le fichier manque

Le .xls n'arrivait pas à être chargé.

Je l'ai transformé en .xlsm et corrigé le * par / pour inverser la conversion.

Cordialement

 

[crashtwo]

Le .xls n'arrivait pas à être chargé.

Je l'ai transformé en .xlsm et corrigé le * par / pour inverser la conversion.

Cordialement

Un tout grand merci! Cela est parfait!