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