libellule85
XLDnaute Accro
Bonsoir le forum,
J'ai une nouvelle fois besoin de vos lumières.
Voilà, dans un label (qui se trouve sur une feuille) apparaît la valeur d'une cellule (en temps réel) qui se fait par la macro suivante :
Ce que j'aimerais c'est mettre une couleur dans ce label :
si différent de 0 mettre fond rouge police noire
si égal à 0 mettre fond vert police noire
j'ai trouvé sur le site la syntaxe suivante, que je n'arrive pas à adapter :
D'avance merci pour votre aide
J'ai une nouvelle fois besoin de vos lumières.
Voilà, dans un label (qui se trouve sur une feuille) apparaît la valeur d'une cellule (en temps réel) qui se fait par la macro suivante :
Code:
Private Sub Worksheet_Calculate()
If ActiveSheet.Range("M1") <> "" Then
Label2.Caption = ActiveSheet.Range("M1")
Else: End If
End Sub
Ce que j'aimerais c'est mettre une couleur dans ce label :
si différent de 0 mettre fond rouge police noire
si égal à 0 mettre fond vert police noire
j'ai trouvé sur le site la syntaxe suivante, que je n'arrive pas à adapter :
Code:
With Label2
If cellule IsNothingThen
.Caption = 'différent de 0
.ForeColor = vbBlack
.BackColor = vbRed
Else
.Caption = 'égal à 0
.ForeColor = vbBlack 'couleur de la police
.BackColor = vbGreen 'couleur de fond
End If
End With
D'avance merci pour votre aide