Vpa, mfc supprimer des lignes

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)

Bonjour Tuesunmanchot, bonjour le forum,

Pourquoi ne pas mettre directement le fichier .xlsm avec la macro ?!.. En effet, ta macro contient des formules en français (ET à la place de AND) et ça c’est pas possible…

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.