Convertisseur francs<->euros avec formats de cellules et sélection de plage

Soyez le premier à donner votre avis sur cette source.

Vue 4 522 fois - Téléchargée 150 fois

Description

Ceci est un convertisseur permettant de passer une plage de cellules sélectionnées des untés monétaires FRANCS et EUROS tout en modifiant le format monétaire des cellules.

Source / Exemple :


Sub convertion()
    Dim code As String
    On Error GoTo finerreur
    code = Application.InputBox(Prompt:="Saisir le nombre le code opération" & Chr(10) & "Francs -> Euros : E" & Chr(10) & "Euros -> Francs : F", Title:="Choix de convertion", Type:=2)
    'SelectionPlage
    Set plage = Application.InputBox("Sélectionnez les cellules à convertir :", "Convertion", Type:=8)
    Select Case code
    'exécution en fonction du code opération
    Case Is = "E" 'EUROS
        For Each cel In plage
            cel.Select
            ActiveCell.Value = ActiveCell.Value / 6.55957
            'format de la cellule
            Selection.NumberFormat = "_-* #,##0.00 [$?-1]_-;-* #,##0.00 [$?-1]_-;_-* ""-""?? [$?-1]_-;_-@_-"
        Next cel
        MsgBox "Traitement terminé.", vbInformation, "Convertion" 'information de fin
    Case Is = "F" 'FRANCS
        For Each cel In plage
           cel.Select
           ActiveCell.Value = ActiveCell.Value * 6.55957
           'format de la cellule
           Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
        Next cel
        MsgBox "Traitement terminé.", vbInformation, "Convertion" 'information de fin
    Case Else
        MsgBox ("La saisie du code opération n'est pas valide !"), vbCritical
    End Select
GoTo Fin
finerreur:
MsgBox "Vous devez saisir un code opération."
Fin:
End Sub

Conclusion :


Ce module fonctionne en deux temps:

SELECTIONS
- sélection d'un code opération pour le type de convertion et le format de cellule à affecter.
- sélection d'une plage de cellules à convertir.

TRAITEMEMENT

N.B.: Il se pourrait que les formats de cellules varient selon les vertions Excel !

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.