valeur par-défaut couleur

[hambel]

bonjour a tous
je voudrai mettre mes valeur par défaut par exemple en rouge
et les autres valeur en vert,
afin de repérer les valeurs par défaut du programme
merci d'avance.

 

[JCGL]

Re : valeur par-défaut couleur

Bonjour à tous,

Pas certain d'avoir tout compris (après avoir mis du vert en B1 à B4) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1:B4]) Is Nothing Then Exit Sub


Application.ScreenUpdating = False  'les valeur par défaut
    If Target.Address = "$B$1" And [B1] = "oui" Then
    [B2] = "pressostatique"
    [B2].Interior.ColorIndex = 3
    End If
    If Target.Address = "$B$2" And [B2] = "automate" Then
    [B3] = "A"
    [B3].Interior.ColorIndex = 3
    End If
    If Target.Address = "$B$2" And [B2] = "regulateur" Then
    [B4] = "D"
    [B4].Interior.ColorIndex = 3
    End If


Rows("2:4").Hidden = [B1] <> "oui"
If [B2] = "pressostatique" Then Rows("3:4").Hidden = True
If [B2] = "automate" Then Rows(4).Hidden = True
If [B2] = "regulateur" Then Rows(3).Hidden = True
End Sub

A+ à tous

 

[hambel]

Re : valeur par-défaut couleur

bonjour,
non c pas la reponse qu'il me fallait, enfete les valeur par suivante doit etre en couleur differente que les autre valeur:
valeur par-défaut:
B1=oui
B2=pressostatique
B3=A
B4=D