Label, couleur de texte

Le
JP
Bonsoir,

Je teste des cellules pour savoir si le contenu est inférieur à 0. Dan=
s ce cas je voudrai que ce texte affecté dans un label passe au rouge.

Voici une partie du code:

If Cells(i + 7, 7) < 0 Then
Me.Controls("Label" & i + 15) = Format(Cells(i + 7, 6).Value, "##=
00.00 €")
Me.Controls("Label" & i + 30).ForeColor = RGB(255, 0, 0) = Form=
at(Cells(i + 7, 7).Value, "##00.00 €")
End If

Que faut-il modifier?

merci

JP
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #25524412
Bonjour,


If Cells(i + 7, 7) < 0 Then
Me.Controls("Label" & i + 15) = Format(Cells(i + 7, 6).Value,
"##00.00 €")
Me.Controls("Label" & i + 30).ForeColor = RGB(255, 0, 0)
End If


MichD
---------------------------------------------------------------
JP
Le #25524912
Bonjour Denis,

ok en deux lignes, merci.

JP
Publicité
Poster une réponse
Anonyme