Table de Conversion de "Onglet à UserForm"

Bonsoir à Tous,

J'ai une table de conversion dans un onglet. Je dois faire fonctionner cette table dans un UserForm.

J'ai besoin d'aide pour faire le premier exemple. J'ai crée le UserForm, mais je n'arrive pas à adapter le code.

J'ai besoin de modifier ce code pour que ça fonctionne dans le UserForm.

Je joins mon fichier.

Merci

Jean

Private Sub Worksheet_Change(ByVal Target As Range)
'Pied via Millimètre'
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("D4:D5")) Is Nothing Then
If IsNumeric(Target.Value) Then
Application.EnableEvents = False
If Target.Address = "$D$4" Then
Range("D5") = Range("D4").Value * 304.8
Else
Range("D4") = Range("D5").Value / 304.8
End If
Application.EnableEvents = True
End If
End If

Bonjour,

Un petit essai à voir

Bonjour,

Une autre présentation

A+

Bonjour M12 & frangy,

Vos solutions fonctionnent très bien.

Je penche pour la solution de M12. La solution de frangy, je la garde pour un autre projet.

Un très GROS MERCI à vous deux.

J'apprécie.

Jean

Bonsoir à Tous,

J'ai terminé ma Table de Conversion.

Je la met à la disposition du Forum qui m'a donnée un Gros coup main.

Merci pour l'aide.

Jean.