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é!

[Invité]

Proposé par drakkar_agfa :

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

vous voyez un avantage de devoir modifier en permanence 1 coefficient dans chaque procédure plutôt que d'en modifier un seul dans une cellule (avec un risque supplémentaire d'oublier de le faire) ?

[drakkar_agfa]

Bien sur il a plein de possibilité, utiliser une celle pour retenir le taux de conversion (de euro a dollar et l'inverse), aussi, demander à chaque ouverture le taux de change...

C'est appliquable et modifiable.

[ucfoutu]

Bonsoir,

Juste pour dire quelque-chose de probablement idiot, avant d'aller dormir :
Quel que soit le format des cellules que tu veux traiter :
Chépa, moi :

- un truc (celui de ton choix) pour les marquer ! une couleur RGB(254,255,255) pour le blanc (et tu n'y verras que du feu), pour un fond blanc, une couleur RGB(1,0,0) pour écrire en noir à la place de rGB(0,0,0), un signe dans le commentaire associé, etc..etc... tout ce que tu pourras inventer de la sorte ...
- une macro ayant pour rôle d'intervenir sur toutes les cellules ainsi "marquées"
- un raccourci pour lancer ta macro...
- un lancement de ce racourci.

Bon ! suis fatigué, sûrement ... ===>> au dodo, vite...

[DarkVader]

Un mixte légèrement optimisé -
le principe de connexion asynchrone remplace avantageusement le jeu avec QueryTable ;
elle permet de ne pas bloquer le code avec une connexion synchrone :

Code WorkBook

Code :

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

1
2
' Actualiser à l'ouverture du classeur  '
Private Sub Workbook_Open():           EuroActualize:               End Sub

Dans un module

Code :

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

1
2
' Jeu de touches Ctrl Shift E  (attribuée depuis Alt+F8) '
Public Sub EuroActualize():             Worksheets("Euro").setUrl:                  End Sub

Dans un module de feuille (Nommée Euro)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public WithEvents IE As classEuro
 
'Procedure appelée afin de raffraichir l'affichage  '
Public Function setUrl()
    If TypeName(IE) = "Nothing" Then Set IE = New classEuro
    IE.Refresh
End Function
 
' Procédure d'actualisation retournée               '
Private Sub IE_EuroActualize(value As String)
    [Euro0] = value
End Sub

Dans un module de classe nommée classEuro

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
' AJOUTER : '
' Référence à Microsoft Internet Controls (Internet Explorer) : shdocvw.dll si <= IE6, sinon ieframe.dll
' Référence à Microsoft HTML Object Librairy (DOM) : msHTML.tlb
 
Private WithEvents clsIE    As InternetExplorer
Private htmlDoc_            As HTMLDocument
Private url_                As String
 
Private Const defEuroId     As String = "aj_last_1xEURUS"
Private Const defUrl        As String = "http://www.boursorama.com/cours.phtml?symbole=1xEURUS"
 
Public Event EuroActualize(value As String)
 
Private Sub Class_Initialize():                         Set clsIE = New InternetExplorer:       End Sub
 
 
Public Sub Refresh(Optional Url As String = defUrl):    url_ = Url:    clsIE.Navigate url_:     End Sub
 
Private Sub clsIE_DocumentComplete(ByVal pDisp As Object, Url As Variant)
    Dim dElem As Object, ret As String
 
    ' Le document demandé est chargé  dans son intégralité  '
    If Url = url_ Then
 
        ' On récupère le contenu                            '
        Set htmlDoc_ = clsIE.document
 
        ' pour chaque balise <span>                         '
        For Each dElem In htmlDoc_.getElementsByTagName("span")
 
            ' La valeur cherchée est trouvée                '
            If dElem.getAttribute("id") = defEuroId Then
 
                ' alors on génère l'évènement               '
                RaiseEvent EuroActualize(dElem.innerHTML)
                Exit Sub
            End If
        Next
    End If
End Sub

Explications :
Nécessite une connexion internet
> actualisation à l'ouverture du classeur
> ou sur combinaison de touches {Ctrl}+{Shift}+{E}
> ou actualisation automatisée pouvant être liée à un évènement ou une fréquence par éxemple.
Le résultat tien compte qu'une valeur par défaut est ou non fixée.


Classeur EuroActualize.xls