mfc en vba

nrdz83

XLDnaute Impliqué
Bonjour et bon dimanche à tous,

j'ai une feuille que je remplit les saisies à l'aide d'un usf en vba.

Dans ma colonne J (10) j'ai le résultat d'une date qui ets calculée par ce code
Code:
.Cells(DerLig, 8).FormulaR1C1 = "=DATE(YEAR(RC[-1])+5,MONTH(RC[-1]),DAY(RC[-1]))"  'ajoute 5 ans

A la fin de la saisie via un module j'ai une MFC qui me met le quadrillage et qui me colore une ligne sur deux et mon problème est le suivant:

DAns ma feuille excel j'ai voulu faire une mfc avec ce code
Code:
=SI($J3="";"";$J3<AUJOURDHUI())
plus mon format (fond rouge texte blanc)ça fonctionne le hic que que ce code est modiifer au fur et à mesure que des saisies sont rentrées dans la feuille.

Comment puis je intégrer cette mfc à mon module de MFC ?

PAr avance merci pour votre aide si dessous le code de mon module
Code:
Sub mefcBouteilles()
Dim DerLig As Long, Sht As Worksheet
  ' Définir la feuille de destination de la MFC
  Set Sht = Sheets("Bouteilles")
  ' Mémoriser la dernière ligne remplie
  DerLig = Sht.Range("A" & Rows.Count).End(xlUp).Row
  ' Avec les cellules de la colonne A à M
  With Sht.Range(Sht.Cells(DerLig, 1), Sht.Cells(DerLig, 12))
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:= _
                          "=ET(" & Cells(DerLig, 1).Address & "<>"""";MOD(LIGNE();2)=0)"
    With .FormatConditions(1).Borders
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
    End With
    .FormatConditions(1).Interior.ColorIndex = 24
    .FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(DerLig, 1).Address & "<>"""""
    With .FormatConditions(2).Borders
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
    End With
  End With
  

End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 484
Messages
2 088 796
Membres
103 970
dernier inscrit
pepito59