Rapport de message :*
 

Texte de différentes couleurs dans un Label

Titre du sujet : Texte de différentes couleurs dans un Label
par Eric le 11/12/2008 22:32:23

Bonjour à tous

 

Voilà une partie de mon code :

...
With Worksheets("releves").Range("h5:h1000")
    Set c = .Find("*", LookIn:=xlValues)
        firstAddress = c.Address
        Do
            If  mavar <> "" Then
                If IsNumeric(Range("h" & c.Row).Value) Then mavar = mavar & " / " & Range("h" & c.Row).Value
               
            Else
                mavar = "Les variations sont : " & Range("h" & c.Row).Value
            End If
             Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
End With

Label4.Caption = mavar
....
 


Ce que j'aimerais obtenir dans le label4 :  Les variations sont : 22 / 55.25 / 33 / 5.8 / 2.4

 

Les couleurs de la police des cellules doivent être récupérées. Pour l'instant j'ai 2 couleurs : rouge et automatique. Dans l'exemple, les 2,4 et 5ème sont des valeurs de cellules à fonte rouge

 

Donc : est-ce possible de mettre un texte de différentes couleurs dans un label de USF, et si oui …….comment

 

Merci d'avance

 

Eric