Bonjour,
J’ai cette macro qui est une MFC et qui respect 3 conditions (diviser en 3 blocs), je voudrai qu’au lieu de mettre en couleur les cellules qui rentrent dans ma conditions, qu’on les supprimes.
est-ce possible ?
marco:
Sub Formule()
’
’ Formule Macro
’
’
Range(« A1:F224 »).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
« =ET($C1= »""";$B2=$B3)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
’ Selection.FormatConditions(1).StopIfTrue = False
Range(« A1:F224 »).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
« =ET(ET($D1= »""";$C2=$C3);$B2=$B3)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
'Selection.FormatConditions(1).StopIfTrue = False
Range(« A1:F224 »).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
« =ET(ET(ET($E1= »""";$D2=$D3);$C2=$C3);$B2=$B3)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
End Sub
texte préformaté indenté par 4 espaces
J’imagine qu’il faut remplacer patternColorIndex et la ligne color mais je n’est pas réussi
Merci de votre aide
VBA.xlsx (18,6 Ko)