XL 2013 Résultat liste déroulante gardant la mise en forme "Gras"

[alain.raphael]

Bonjour à Tous,

Je ne peux utiliser la mise en forme conditionnelle, j'aurais voulu savoir s'il est possible d'utiliser une petite macro sur ce genre d'exemple....

Merci !

 

[Robert]

Bonjour Alain, bonjour le forum,

Peut-être comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim PL As Range
Dim CEL As Range

If Target.Address <> "$C$6" Then Exit Sub
With Target.Validation
    Set PL = Range(Mid(.Formula1, 2))
End With
For Each CEL In PL
    If CEL.Value = Target.Value Then Target.Font.Bold = CEL.Font.Bold: Exit For
Next CEL
End Sub

 

[job75]

Bonjour alain.raphael, Robert,

Ou aussi :

Private Sub Worksheet_Change(ByVal R As Range)
If R.Address = "$C$6" And R(1) <> "" Then R.Font.Bold = Range(Mid(R.Validation.Formula1, 2)).Find(R, , xlValues, xlWhole).Font.Bold
End Sub

C'est une très bonne idée Robert d'utiliser .Validation.Formula1

A+