Bonjour netparty, Joco7915, le forum,
un essai....(il faut saisir une adresse dans les TextBox, ex: A1)....
Private Sub BP_MFC_Click()
Dim plage As Range '..............................................définit la variable plage
If Tb_Debut = "" Or Tb_Fin = "" Then Unload Me: Exit Sub '.......si une des Textbox est vide, on sort de la procédure
With Sheets("Feuil1") '..........................................agit sur Feuil1 uniquement
.Cells.FormatConditions.Delete '................................efface les MFC
Set plage = .Range(Tb_Debut & ":" & Tb_Fin) '...................définit la plage en fonction des Textbox
With plage
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=TROUVE(""*"";A1;1)" '....................................crée la MFC
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior '...............conditions de remplissage
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
End With
End With
Unload Me
End Sub
Cordialement,