Range("B33,B28,B23,B18").Select
Range("B18").Activate
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
, Formula1:=ComboBox1.Value
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColor = 6670217
.Color = 6670217
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Bonjour,
dans le code ci dessus. Le valeur de combobox1 est retourné avec des guillemets.
Cela ne permet pas de mettre en forme la cellule.
Quelqu'un connaitrais t'il un moyen pour que la valeur de combobox ne soit pas retourné entre paranthese.
Merci d'avance
🙂
Range("B18").Activate
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
, Formula1:=ComboBox1.Value
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColor = 6670217
.Color = 6670217
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
Bonjour,
dans le code ci dessus. Le valeur de combobox1 est retourné avec des guillemets.
Cela ne permet pas de mettre en forme la cellule.
Quelqu'un connaitrais t'il un moyen pour que la valeur de combobox ne soit pas retourné entre paranthese.
Merci d'avance
🙂