Félicitations !
+
0
points
En savoir plus
Actualités
Tests & Guides
Bons Plans
Forum
Premium
Rechercher sur le site
Connexion
Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Réinitialiser le mot de passe
Retour connexion
Actualités
Tests & Guides
Bons Plans
Twitter
iPhone pliant
OnePlus 11
PS5
Disney+
Orange Livebox
Windows 11
Génération NT
Entraide
Applications
Microsoft Office
Excel
Label, couleur de texte
Label, couleur de texte
2 réponses
JP
04/07/2013 à 21:09
Bonsoir,
Je teste des cellules pour savoir si le contenu est inf=E9rieur =E0 0. Dan=
s ce cas je voudrai que ce texte affect=E9 dans un label passe au rouge.
Voici une partie du code:
If Cells(i + 7, 7) < 0 Then
Me.Controls("Label" & i + 15) =3D Format(Cells(i + 7, 6).Value, "##=
00.00 =80")
Me.Controls("Label" & i + 30).ForeColor =3D RGB(255, 0, 0) =3D Form=
at(Cells(i + 7, 7).Value, "##00.00 =80")
End If
Que faut-il modifier?
merci
JP
Partager
Facebook
Twitter
Reddit
Whatsapp
Email
Signaler
Signaler un problème avec ce contenu
Envoyer
2 réponses
Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Supprimer
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Envoyer
MichD
Signaler
04/07/2013 à 21:40
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
---------------------------------------------------------------
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
---------------------------------------------------------------
Vous avez filtré cet utilisateur ! Consultez son message
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
Signaler
05/07/2013 à 07:19
Bonjour Denis,
ok en deux lignes, merci.
JP
Bonjour Denis,
ok en deux lignes, merci.
JP
Vous avez filtré cet utilisateur ! Consultez son message
Bonjour Denis,
ok en deux lignes, merci.
JP