Bonsoir,
Voilà un autre article
Sub Test()
Cells.Replace What:="=#REF!", Replacement:="COMP", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("B:B").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""COMPTE ABSENT"""
With Selection.FormatConditions(1).Font
.Bold = True
.ColorIndex = 3
End With
End Sub
Nota : il est important de remplacer Columns("B:B").Select par
Range("B1:B27").Select
... par exemple, en cernant au plus près la zone ou tu es susceptible de trouver des comptes absents. Sinon toute ta colonne sera formatée et ton classeur sera inutilement volumineux.
A+