Mise en forme conditionnelle et VBA. Variable?

Bonjour,

Première fois que je fais des modifications de mise en forme conditionnelle avec du VBA et je suis tombé sur un os... Et les résultats trouvés sur internet ne me conviennent pas. peut-être que vous aurez donc une solution pour moi.

Comme vous le savez les mises en forme conditionnelles peuvent faire référence à des cellules. Mais si on passe par enregistrement de macro on a une version "formule" avec des références précises alors que je souhaite des variables...

With Cells(Lig + 2, Col)
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=E18=JOUR(MAINTENANT())"
    .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With .FormatConditions(1)
        .Font.Bold = True
        .Borders(xlLeft).TintAndShade = -0.249946592608417
        .Borders(xlRight).TintAndShade = -0.249946592608417
        .Borders(xlTop).TintAndShade = -0.249946592608417
        .Borders(xlBottom).TintAndShade = -0.249946592608417
        .Interior.PatternColorIndex = xlAutomatic
        .Interior.ThemeColor = xlThemeColorAccent4
        .Interior.TintAndShade = 0.399945066682943
        .StopIfTrue = False
    End With
End With

Ici c'est le E18 qui me pose soucis... il faudrait que ce soit Cells(Lig + 2, Col) à la place mais je n'arrive pas à l'intégrer.

Une solution svp?

Merciiiiiii

Bonjour,

Essais ceci :

"=" & Cells(Lig + 2, Col).Address(0, 0) & "=JOUR(MAINTENANT())"

Coucou Thèze ^^

Du coup merci, sur la concaténation que j'avais tenté je n'avait pas mis le Address, sûrement la source d'erreur.

Grâce à toi j'ai fini mon module excel portatif : Intégrer un calendrier évolutif sur simple insertion du module. Maintenant il va falloir que je le simplifie (j'ai débuté sur macros enregistrées).