MACRO Modification de la couleur de cellule sous condition ne fonctionne pas

[chris6999]

Bonjour le FORUM

Encore confrontée à un problème de macro que e n'arrive pas à comprendre.
J'ai une macro qui se lance à l'ouverture du fichier et qui m'alerte sur un dépassement de date limite.
Si ma date limite est bientôt proche (dans les 10 jours qui viennent); le système positionne un ! et colore la cellule en jaune.
Si madate de limite est même alerte avec un point ! mais par contre je souhaiterais que la cellule soit colorée en noir avec un police jaune.
Globalement ma macro fonctionne par contre la couleur de la cellule reste toujours jaune...
Pour être sûre que le distingo était fait entre les deux conditions j'ai mis un point ? au lieu du ! dans le cas de date limite proche.
Et cela fonctionne bien! mais toujours en jaune! J'en perds mon latin!
Je mets un fichier un pièce jointe si quelqu'un a une idée.

Merci d'avance
Cordialement

 

[Gareth]

Re : MACRO Modification de la couleur de cellule sous condition ne fonctionne pas

Bonjour,

Il y a sur ces cellules une MFC qui passe la cellule en jaune quand il y a un "!" ...
Elle est prioritaire.
En la supprimant ça semble fontionner

 

[JCGL]

Re : MACRO Modification de la couleur de cellule sous condition ne fonctionne pas

Bonjour à tous,

Tu as une MeFC : si la cellule a pour valeur ! alors fond jaune...

A + à tous

Edition : Salut Gareth...

 

[Gareth]

Re : MACRO Modification de la couleur de cellule sous condition ne fonctionne pas

Re,

Ci-joint une adaptation de ton code :

Private Sub Workbook_Open()
' -----------------------------------
' Signalement sur délais de retour dépassé
' -----------------------------------
Dim cel As Range
For Each cel In Range("A7:A" & Range("A65535").End(xlUp).Row)
    VarFont = 0: VarInt = 0: VarValue = "" 'Initialise les variables
    If Date > Cells(cel.Row, 14).Value And Cells(cel.Row, 21).Value = "Attente retour" Then VarFont = 6: VarInt = 1: VarValue = "!" ' Alerte NOIRE
    If Date >= Cells(cel.Row, 14).Value - 10 And Date <= Cells(cel.Row, 14).Value And Cells(cel.Row, 21).Value = "Attente retour" Then VarFont = 0: VarInt = 6: VarValue = "!" 'Alerte jaune
With Cells(cel.Row, 15)
    .Font.Name = "Arial"
    .Font.Size = 16
    .HorizontalAlignment = xlCenter
    .Font.ColorIndex = VarFont
    .Interior.ColorIndex = VarInt
    .Value = VarValue
End With
Next
End Sub

Edit : Salut JCGL

 

[chris6999]

Re : MACRO Modification de la couleur de cellule sous condition ne fonctionne pas

Mince je l'avais complètement oublié.
Merci à tous pour l'avoir vu.

Bonne soirée à tous
Cordialement