Microsoft 365 Code pour conversion automatique km/mi en fonction du choix de l'unité

[loulou14]

Bonjour (et bonne année à tous)

Je souhaite convertir les données d'un tableau automatiquement en fonction de l'unité choisies (colonne B) pour chaque ligne du tableau
Si je choisis km, alors toutes les cellules "distances" sont converties en kilomètres
Si je choisis mi, alors toutes les cellules "distances" sont converties en miles

Je joins un fichier exemple

Merci d'avance pour votre support

 

[vgendron]

Hello
une solution en PJ

 

[crocrocro]

Bonjour,
@loulou14 , sur votre navigateur en recherchant par exemple "formule excel conversion km mile"
vous aurez facilement la formule "magique" suivante qui fonctionne dans les 2 sens évidemment 😉

=CONVERT(B5; "km"; "mi")

[EDIT à 17h30]
Les distances sont-elles saisies manuellement ou le tableau est-il importé (copier-coller ou autre) ?
Sinon, un peu l'histoire de la poule ou l’œuf, les distances saisies (ou importées) devront être dans l'unité de la colonne B (unité) sinon le calcul sera systématiquement à l'envers.
Dans la solution proposée par @vgendron, puisque la fonction de conversion existe, pourqouoi ne pas l'utiliser (voir le code ci-dessous)

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, ActiveSheet.ListObjects(1).ListColumns(2).Range) Is Nothing Then Exit Sub

Application.EnableEvents = False
    With ActiveSheet.ListObjects(1)
        Unité = Target
        Select Case Unité
            Case "mi"
                '''coef = 1 / 1.60934
                coeff = Application.WorksheetFunction.Convert(1, "km", "mi")
            Case "km"
                '''coef = 1.60934
                coeff = Application.WorksheetFunction.Convert(1, "mi", "km")
            Case Else
                coef = 1
        End Select
        i = Target.Row - .Range.Row
        'MsgBox i
        For j = 3 To .ListColumns.Count
            If .HeaderRowRange(j) Like "Distance*" Then
                .DataBodyRange(i, j) = .DataBodyRange(i, j) * coef
            End If
        Next j
    End With
    
Application.EnableEvents = True
End Sub