Workbook_Open secondaire privé ()
Faible lastRow en tant que longtemps
Avec les feuilles de travail (« Sheet1 »)
. SUPPRESSION de Cells.FormatConditions.Delete 'TOUT LE FORMATAGE de COND
lastRow =. Rows.Count
Avec. Gamme (« A3 : O » et lastRow) 'ONT PLACÉ l'objet de défaut, toutes les expressions commençant
'« . » se rapportera à lui. Noter niché « avec »
. Choisir 'pour placer ActiveCell au coin gauche supérieur de la gamme
type de .FormatConditions.Add : =xlExpression, Formula1 : = " =COUNTIF ($E$3 : $E3, $E3) >1 "
.FormatConditions (1).Interior.ColorIndex = 44
.FormatConditions (1).StopIfTrue = rectifient
type de .FormatConditions.Add : =xlExpression, Formula1 : = " =COUNTIF ($E$3 : $E$ " et lastRow et « , $E3) >1 »
.FormatConditions (2).Interior.ColorIndex = 37
type de .FormatConditions.Add : =xlExpression, Formula1 : = " =UPPER ($K2) = de "" """ OUI
.FormatConditions (3).Interior.Color = ' rouge vbRed
Extrémité avec
Extrémité avec
Sous-marin d'extrémité
|