MFC VBA

Bonjour

Je cherche à mettre une cellule en couleur en fonction d'une formule testée dans le Code VBA.

Pouvez-vous m'aider?

Cordialement

Bonjour Amadéus, à tous,

J'ai mis directement le code couleur pour INDEX,

=INDEX({1;3;46;6;4};EQUIV(DATEDIF(F15;AUJOURDHUI();"m");{0;1;3;6;12}))

en changeant la date en F15

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("F15"), Target) Is Nothing Then
        Call MFC
    End If
End Sub

la macro "MFC" pourrait être directement dans le Private Sub

Sub MFC()
    Range("a1").Formula = "=INDEX({1;3;46;6;4},MATCH(DATEDIF(f15,TODAY(),""m""),{0;1;3;6;12}))"
    Range("f16").Interior.ColorIndex = Range("a1")
    Range("a1").ClearContents
End Sub

Pas sur que se soit vraiment ce que tu voulais !

Amicalement

Claude

Bonsoir

Merci Claude

J'ai juste remplacé a1 par a65000, histoire de ne pas effacer les données en A1.

Merci encore

Cordialement

re,

L'idéal serait d'écrire la formule sous forme de variable,

Sub MFC2()
Dim inDex
inDex = WorksheetFunction.INDEX({1;3;46;6;4},MATCH(DATEDIF(f15,TODAY(),""m""),{0;1;3;6;12}))
    Range("f16").Interior.ColorIndex = inDex
End Sub

mais la ligne: inDex = Wor........etc , est compliquée à écrire en VBA !

Bonne soirée

Claude

bonjour,

Une autre proposition... qui n'utilise pas cette formule. (je ne pense pas que cela soit possible)

YFO voir comment tu comptes les DateDif

Moi je considère comme mois entier l'écart entre deux dates :

Du 13 Décembre au 13 Janvier mon bébé à 1 mois. et ainsi de suite...

Du 14 Décembre au 13 Janvier il faut attendre encore une journée pour sa première bougie !

Ma Démo utilise ce principe...

Nota : Elle fonctionne sur changement de date ! et non pas sur déplacement du curseur

Nota2 : J'ai mis du gris à la place du noir car c'est plus lisible, mais la correction est simple et commenté dans le module.

A+

Bonjour

Merci galopin01

Ta méthode est également impeccable.

De toute façon, pour un réfractaire à VBA comme moi, tout est bon si "ça marche"

Merci

Cordialement