Detail_Format secondaire privé (annulation comme nombre entier, FormatCount comme nombre entier)
Const = 700 "BOLD"
NORMALE de Const = 400
Si [votre nom de commande] = « se fermait » alors
[Votre nom de commande] .ForeColor = vbRed
[Votre nom de commande] .FontWeight = "BOLD"
Autrement
[Votre nom de commande] .ForeColor = vbBlack
[Votre nom de commande] .FontWeight = NORMALE
Finir si
Finir le sous-marin
|