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
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
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
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())
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