Discussion :

[Jibe1982]

Je suis dans une grosse boite informatique, et je fait du reporting financier, alors il m'arive très souvent de convertir des chiffre d'€ en $, et vice versa. Pour l'instant, je le fais manuellement, en tapant la formule avec le taux de conversion qui va bien. Mais voila après avoir fais ça des centaines de fois, je me suis un peu lassé de ces petites manoeuvres, et j'ai pensé qu'il était peut-être possible de l'automatiser avec une macro.

Voila ma vision : je selectione une cellule(commençons avec une) contenant une donnée en €, je tape un racourcis clavier, qui déclenche une macro, puis juste en dessou de la cellule s'affiche le nouveau chiffre converti en $.

Je pense qu'une fois qu'on sait faire ça, il est relativement simple de le faire dans l'autre sens ($ vers €)

Mais voila, je suis ce qu'on appele un newbie, et je je n'ai aucune notion en programation, alors si un gentil programeur pouvait m'aider, ce serait vraiment très... gentil.

Je vous remercie d'avance.

[cafeine]

Hello,

pour moi il ne s'agit pas de programmation.

En général je gère ça avec une liste déroulante pour le choix de la devise.
Pour chacune de mes cellules je multiplie par une cellule nommée (ici FxRate) :
une formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMME(A1:A12)

devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=FxRate*SOMME(A1:A12)

facile à faire en masse avec un rechercher "=" remplacer "=FxRate*"

Ma liste déroulante fera simplement changer la valeur de FxRate (au moyen de RECHERCHEV() ou INDEX()).

[Invité]

Bonjour :

S'il ne s'agit toujours que de $ et €, vous pouvez aussi essayer ce code à coller dans VBA et dans votre feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
cours = cells(1, 3)  '$
If Target.Column = 2 And Target.Row = 2 Then
  If Range("B2").Value > 0 Then
  Range("A2").Value = Range("B2") * euro
  Else
  MsgBox "Le montant en $ n'est pas renseigné !)"
  End If
ElseIf Target.Column = 1 And Target.Row = 2 Then
  If Range("A2").Value > 0 Then
  Range("B2").Value = Range("A2") / (euro)
  Else
  MsgBox "Le montant en € n'est pas renseigné !)"
  End If
End If
End Sub

dans la cellule A1 vous tapez $ dans la cellule B1 vous tapez € et en C1 vous indiquez le cours du $ en euro.

Dès que vous entrez une valeur en A2 la valeur en € s'affiche en B2 et dès que vous tapez une valeur en B2 la valeur en $ s'affiche en A2.

[ouskel'n'or]

S'il s'agit de convertir le montant lors de la sélection de la cellule sans ajouter de colonne, je placerais le code dans l'événement selectionChange
Maintenant, tu ne dis pas si tes cellules sont formatée selon la monnaie, $ ou €, ni, le cas échéant si € ou $ sont placés avant ou après le montant (format cellule -> Monétaire). Tout dépend...
Tu dis

[Jibe1982]

Merci pour vos réations, mais elle ne m'aident pas vraiement.
Ce qui m'intéresse, c'est faire la conversion avec un simple racourci clavier, pour que ça me prenne Moins d'une seconde, et que la valeur convertie apparaisse sous la valeur à convertir. Bien sur, je peux rentrer manuellement une formule, mais cela prend un certain temps, et quand on fait ça 10 fois dans la journée, ce temps n'est pas négligeable. Alors... Avez vous la solution "miracle"... Merci d'avance.

[drakkar_agfa]

Quelque chose comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub ConversionEuroEnDollar()
    ActiveCell.Offset(1, 0).Value = ActiveCell.Value * 1.1
 
End Sub
Sub ConversionDollarEnEuro()
    ActiveCell.Offset(1, 0).Value = ActiveCell.Value * 1.1
 
End Sub

Que tu affectes à un raccourci différent de touche pour les deux macros.
(Alt+F8, sélectionnes la macro, Options.. et affectes la touche du raccourci désiré.)
N'oublies pas de changer le 1.1 par le taux de conversion désiré!