[XL-2003] Formule Conditionnelle monétaire [Résolu]

[Caine10]

Bonjour, je recherche une formule qui utilise une cellule en fonction de la date d'entrée en vigueur de l'Euro, je m’explique...

La valeurs d’indexation de base débute majoritairement en 1984 elle est donc en BEF et j'aimerais qu'une de ces cellules prenne cette variable en fonction de la date que je rentre à la précédente genre...

J10 = Janvier 1993 -- J13 = BEF "0.00"
J10 = Janvier 2010 -- J13 = € "0.00"

D'avance merci
^_^

[gFZT82]

Bonjour,

Si j’ai bien compris, tu cherches à avoir un format personnalisé en J13 qui dépend de la date entrée en J10.
Avant 1984 : format BEF 0.00
A partir de 1984 : format € 0.00

Voici une solution avec une MFC :

1 - Tu appliques le format personnalisé "€ "0,00 à ta cellule J13.

2 - Tu appliques la Mise en Forme Conditionnelle suivante à ta cellule J13 :

Règle : Utiliser une formule pour déterminer pour quelles cellules le format sera appliqué.
Formule =ANNEE(J10)<1984
Format personnalisé "BEF "0,00

Cordialement.

[Caine10]

Merci, vous m'avez mis sur le bon chemin.

Là je suis au bureau et la version de l'office c'est le "2003". Dans la mise en forme conditionnelle il n'y a pas l'option monétaire quand tu clics sur format...
Je vais adapter cette formule sur mon laptop qui lui est un peu plus à jour, mais pour ici j'ai les idées mais les syntaxe ne sont pas bonne.
Crois-tu pouvoir m'aider avec cette syntaxe: =BEF([J13];2) et =EURO([J13];2) en formule unique?
Ce qui pourrais donner:

=ANNEE(J10) plus grand ou égal à 2002 (J13)"Format EURO" Sinon (J13)"Format BEF"

Cordialement.

[gFZT82]

Bonjour,

Je ne connais pas bien les différences sur les MFC entre Excel 2003 et Excel 2007 mais je suis surpris que tu ne puisses pas appliquer un format personnalisé avec Excel 2003.
As-tu essayé de saisir "€ "0.00 (tu peux obtenir le symbole € avec alt gr + E) ?

Tu peux également copier le code VBA suivant dans ta feuille pour assurer la mise en forme conditionnelle.

Code :

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 10 Then
        If Year(Range("J10")) < 2002 Then
            Range("J13").NumberFormat = """BEF ""0.00"
        Else
            Range("J13").NumberFormat = """€ ""0.00"
        End If
    End If
End Sub

A chaque modification d’une cellule de la colonne J, le code vérifie que le format de J13 est adapté.

Cordialement.

[Caine10]

Je n'ai plus trop l'habitude avec le 2000 - 2003 pour moi c'est un petit retour au source... Je travail avec le 2010 qui pour moi a des fonctionnalité plus avancé.

En tout cas, un grand merci!! tu m'a été d'une aide inestimable, j'en suis arrivé enfin à quelque chose je préfère la méthode VBA c'est un langage plus familier notamment pour les syntaxes.

Je te souhaite une agréable fin de journée.