euros/francs et francs/euros

[tititaz]

Bonjour,

Je cherche à faire un convertisseur francs-euros pour un collègue...
J'ai trouvé sur le forum https://www.excel-downloads.com/threads/euro-francs-ou-francs-euros.1590/
cette solution qui marche très bien et qui est exactement ce que je cherche... cependant il faut désactiver "déplacer la sélection après validation" et je ne peux pas car il a comme habitude de passer d'une colonne à une autre par la touche entrée!
Quelles sont les modifications à apporter pour que au lieu de cliquer sur calcul, le calcul se fasse après avoir pressé Entrée?
Merci de votre aide car je ne m'en sort pas!
Bonne journée!

 

[gilbert_RGI]

Re : euros/francs et francs/euros

Bonjour,

Je cherche à faire un convertisseur francs-euros pour un collègue...
J'ai trouvé sur le forum https://www.excel-downloads.com/threads/euro-francs-ou-francs-euros.1590/
cette solution qui marche très bien et qui est exactement ce que je cherche... cependant il faut désactiver "déplacer la sélection après validation" et je ne peux pas car il a comme habitude de passer d'une colonne à une autre par la touche entrée!
Quelles sont les modifications à apporter pour que au lieu de cliquer sur calcul, le calcul se fasse après avoir pressé Entrée?
Merci de votre aide car je ne m'en sort pas!
Bonne journée!

Bonjour

voir le fichier

Cdlt

RGI

 

[jp14]

Re : euros/francs et francs/euros

Bonjour

Une macro a tester

Dim flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)

If flag = True Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("a1:b1000")) Is Nothing Then
    flag = True
    If Target.Column = 1 Then
       Target.Offset(0, 1).Value = CCur(Target.Value / 6.55957)
    End If
    If Target.Column = 2 Then
        Target.Offset(0, -1).Value = CDec(Target.Value * 6.55957)
    End If
flag = False
   
End If

End Sub

JP

 

[tititaz]

Re : euros/francs et francs/euros

Re-bonjour!
Je suis agréablement surprise de la rapidité avec laquelle vous répondez! Merci!
Grand merci à gilbert_RGI j'ai eu juste à adapter pour un déplacement à droite!!
Merci à jp14 mais je n'ai pas testé ta macro!