Label.BackColor

[Temjeh]

Bonsoir

J'aimerais savoir la syntaxte pour le fond du Label en couleur si condition ou pas

Ceci donne fond noir!!

Private Sub CommandButton2_Click()
If TextBox1 = '' Then Exit Sub
On Error Resume Next
Dim Recherche
Err = 0
Recherche = TextBox1
Cells.Find(What:=Recherche, LookIn:=xlValues).Activate
If Err 'Différent' 0 Then
Me.Label1.Caption = 'Il y en a pas'
Me.Label1.BackColor = 10
Else
Me.Label1.Caption = 'Il y en a'
Me.Label1.BackColor = 3
End If
End Sub

Je viens de trouvé mais j'aimerais mieux avec no

vbred
vbgreen
vbblue
A+

Temjeh

Message édité par: temjeh, à: 02/06/2006 00:50

 

[Hervé]

Bonjour temjeh, le forum

Je n'ai pas compris ta phrase : ' Je viens de trouvé mais j'aimerais mieux avec no'.


Par contre, si je peux me permettre, les gestionnaires d'erreur doivent etre utilisées avec parcimonie dans un code.

On n'utilise pas les on error pour simplement tester l'existence d'une donnée dans une feuille (c'est utiliser un marteau pilon pour ecraser une mouche).

dans 99 % des cas, un simple test suffit, exemple avec ton code :

Private Sub CommandButton2_Click()
Dim cellule As Range
Dim Recherche As String

Recherche = TextBox1
If TextBox1 = '' Then Exit Sub


Set cellule = Cells.Find(What:=Recherche, LookIn:=xlValues)

With Label1
        If cellule Is Nothing Then
                .Caption = 'Il y en a pas'
                .ForeColor = vbBlack
                .BackColor = vbRed
        Else
                .Caption = 'Il y en a'
                .ForeColor = vbWhite 'couleur de la police
                .BackColor = vbBlack 'couleur de fonf
End If
End With

End Sub

bonne journée à toi 🙂

salut

 

[Temjeh]

Bonjour

Canada, montréal ...Soleil 15

Merci beaucoup Hervé je vais essayé dans l'avenir faire avec les withs. Oui oui je DOIT à tout pris amélioré mes GOTO. Autrement dit je voulais savoir si on peut y donné des no de couleur au Label car avec les vbcolor on peut 6 ou 7 seulement:

bbblack
vbwhite
vbgreen
vbmagenta
vbblue
vbred

Je voulais faire comme avec les ranges que l'on peut y mettre 256,000 couleurs.

With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

Merci beaucoup

Temjeh


Message édité par: temjeh, à: 02/06/2006 12:22

 

[Hervé]

re

oui tu peux utiliser des numéro pour les couleurs des labels :

Label1.BackColor = &HC0C0FF

ou

Label1.BackColor = 12632319

il me semble avoir vu dans la zone de téléchargement, un fichier recapitulant les couleurs.

je te laisse chercher 😉

salut

 

[Temjeh]

Oui merci c'est parfait avec le no &HC0C0FF

A+

Aussi j'y avais pas penser par RGB(222,222,222)

Temjeh

Message édité par: temjeh, à: 03/06/2006 00:05