Comment faire un format spécifique

Bonjour,

je pense qu'il est réalisable avec excel de faire un format spécifique de nombre ; je cherche en effet à convertir une cellule de type standart contenant des chiffres en Franc CFA, c'est à dire de multiplier automatiquement le montant par 655.957 avec la mention CFA derrière.

Merci pour vos contributions.

Cordialement

Salut Faudouy,

Voici un petit fichier fait rapidement,

Redis s'il correspond à ce que tu recherches.

A plus

bonjour et merci mais ce n'est pas mon attente ; je souhaite simplement saisir des chiffres en euros et faire automatiquement une conversion en format CFA décris plus haut... Comme cela existe de Francs vers Euros.

Cordialement,

Re,

Je ne comprends pas trop, c'est précisément ce que mon fichier fait mais sur toute une colonne...

Celui ci te convient peut être mieux ....

Essaie de joindre un bout de fichier avec un exemple si ce n'et pas ça car je ne vois pas ce que faire d'autre...

A plus

re,

ok pour le format, mais j'esperai que le format fasse la multiplication automatiquement sans passer par une formule.

Exemple : en A1, tu saisis 100frs, quand tu cliques sur conversion Euros, automatiquement la cellule A1 devient 15,...€

Je souhaiterai la meme chose avec un format adapté.

Suis je plus clair ?

merci

Cordialement,

Re,

Ah ok je pense savoir ce que tu veux...

En gros un montage avec deux boutons pour faire la conversion dans un sens ou dans l'autre.

Il faut en prime que le changement de devise s'opère...

J'ai fait ça mais c'est imparfait, pour la forme je pense que c'est ce que tu veux mais il y a un beug avec mon code pour le changement de devise Euro/CFA (Macro inspirée à partir d'un enregistrement)

Je pense que quelqu'un pourra le complèter...

Dsl de ne pas pouvoir t'aider plus.

Voici le code que j'ai utilisé..et qui déconne pour la sélection du format :

Sub Conversion()

Range("B3") = Range("B3") * 665.957
Selection.NumberFormat = "0.00"" CFA"""
End Sub

Sub Conversion2()

Range("B3") = Range("B3") / 665.957
Selection.NumberFormat = "0.00"" €"""
End Sub

-- Jeu Jan 21, 2010 2:02 pm --

C'est encore moi,

Je pense que cette fois le fichier devrait correspondre à tes attentes ....

Par contre tu ne peux convertir que dans un sens.

1°)Tu entres ton montant

2°)Tu cliques sur conversion

3°)N'oublies pas de cliquer sur "retour" pour remettre la case en euro.

Voila le fichier :

Merci pour cette méthode, elle fonctionne bien en effet mais pour un chiffre saisit dans un champs ; je souhaiterai que les chiffres soient dans n'importe quelles cellules et cliquer (après sélection des chiffres en question) sur un bouton qui me transforme ces chiffres dans le format souhaité.

Merci d'avance,

F. AUDOUY

Bonjour à tous,

Tu peux essayer en remplaçant la macro conversion par celle-ci :

Sub Conversion()
Dim cel As Range
    For Each cel In Selection
        With cel
            If .Value <> "" And .NumberFormat <> "0.00"" CFA""" Then
                .Value = .Value * 665.957
                .NumberFormat = "0.00"" CFA"""
            End If
        End With
    Next cel
End Sub

Je te laisse adapter pour la conversion inverse.

Bonsoir à tous,

résolu sans réponse !!

Autre variante à adapter à ton cas

code à placer dans le VBE de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Conv$
    If Not Application.Intersect(Target, Range("b:g")) Is Nothing Then 'à régler
  ''Macro par Claude Dubois pour Excel-Pratique Décembre 2008
        If Target.Count > 1 Then Exit Sub
        If IsNumeric(Target) And Target > 0 Then
            Conv = Target * 6.55957             'à régler
            Target = Format(Target, " 0.00 €")  'à régler

            With ActiveSheet.Shapes("bibi")
                .Visible = True
                .Select
                 Selection.Characters.Text = Format(Conv, " 0.00 F") 'à régler
                .Left = Target.Offset(0, 2).Left
                .Top = Target.Top
            End With
        Else
            ActiveSheet.Shapes("bibi").Visible = False
        End If
            Target.Activate
    End If
End Sub

Amicalement

Claude