Aujourd'hui Label pour les nuls

[Shinichi]

Bonjour à tous,
aujourd'hui mon problèpme porte sur un label:
j'aimerai que si une condition est fausse (a1=2 par exemple)
mon label 'DN_incoonu' affiche: '(DN incconu)' -en rouge si possible-

Actuellement j'ai écrit ça, mais ça plante...
DN_incconu.Caption = '(DN inconnu)'

Alors j'ai essayé ça:
DN_incconu = '(DN inconnu)'
qui ne m'affiche rien du tout (mais qui ne plante pas, c'est déjà ça)

Si vous avez une idée, par avance je vous remercie...

Bruno

 

[Eric C]

Bonjour le forum
Bonjour Shinichi

Peut être qu'avec ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range('A1') = 2 Then
UserForm1.Show
With UserForm1.Label1
.ForeColor = &HFF&
.Caption = 'DN inconnu'
End With
End If
End Sub