Condition qui ne fonctionne pas

ROGER2327

XLDnaute Barbatruc

• 29 Janvier 2009

• #2

Re : Condition qui ne fonctionne pas

Bonsoir yves03,

Qu'est-ce que c'est Label34 ?

ROGER2327

 

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 29 Janvier 2009

• #3

Re : Condition qui ne fonctionne pas

J'ai creer un label avec une police Webding a l'interieur.
J'ai mis un n minuscule et ça correspond à un rond en police webdings.
Le but c'est de colorier le rond en vert ou en rouge

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 29 Janvier 2009

• #4

Re : Condition qui ne fonctionne pas

Bonsoir à tous,

J'ai testé ton code, il marche très bien :

Private Sub UserForm_Initialize()
With Sheets("Résultats")
If .Range("F8") >= Sheets("Activité").Range("Q8") Then
Label34.ForeColor = RGB(0, 255, 0)
ElseIf .Range("F8") = "" Then
Label34.ForeColor = RGB(255, 255, 255)
Else
Label34.ForeColor = RGB(255, 0, 0)
End If
End With
End Sub

Cordialement

Bernard

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 29 Janvier 2009

• #5

Re : Condition qui ne fonctionne pas

Re bonsoir.

Désolé, je ne sais pas ce qu'est l'objet Label. Attendons les spécialistes...
​

ROGER2327


Ajout : je n'avais pas vu la réponse de CBernardT. J'aurais dû deviner le début du code :
Private Sub UserForm_Initialize()

 

Dernière édition: 29 Janvier 2009

Vote positif 0 Vote négatif

Y

yves03

XLDnaute Occasionnel

• 29 Janvier 2009

• #6

Re : Condition qui ne fonctionne pas

Merci de votre aide

 

Vote positif 0 Vote négatif