Varier un texte dans un label avec scrollbar

Question

Bonjour a toutes et tous, forum

Voila je souhaiterai svp faire varier la couleur d'un TEXTE dans un label, ici c'est le (5) avec un scrollbar  ici c'est le (1)

et dans ce mème label(5) faire varier la couleur de FOND avec un autre scrollbar  (2)
en utilisant ColorIndex  

Voir svp le code ci-dessous

Merci de votre temps et de votre aide

Bonne après midi

Cdtl Ray


Configuration: Windows 7 / Excel 2007


Private Sub Userform_Initialize()
'***
With ScrollBar1
.Min = 0
.Max = 56
.LargeChange = 1
.SmallChange = 1
End With

'***
With ScrollBar2
.Min = 0
.Max = 56
.LargeChange = 1
.SmallChange = 1
End With
End Sub

'*** Varier les couleurs du TEXTE avec ScrollBar1
Private Sub ScrollBar1_Change()
Label5.Caption = ScrollBar1.Value

'Label3.ForeColor = (100000 * ScrollBar1.Value)
End Sub

'*** Varier les couleurs du FOND avec ScrollBar2
Private Sub ScrollBar2_Change()
Label4.Caption = ScrollBar2.Value

'Label3.BackColor = 10000 * ScrollBar2.Value
End Sub

f894009 · Answer

Bonjour,

'*** Varier les couleurs du TEXTE avec ScrollBar1
Private Sub ScrollBar1_Change()
Label4.Caption = ScrollBar1.Value & " ---- " & ScrollBar2.Value

Label5.ForeColor = 100000 * ScrollBar1.Value
End Sub

'*** Varier les couleurs du FOND avec ScrollBar2
Private Sub ScrollBar2_Change()
Label4.Caption = ScrollBar1.Value & " ---- " & ScrollBar2.Value

Label5.BackColor = 10000 * ScrollBar2.Value
End Sub


J'ai repris votre code et j'ai simplement pris le meme label pour les deux changement de couleur. Ca marche ou je n'ai pas compris votre demande.


Bonne suite

f894009 · Answer

Re,

ColorIndex n'est pas utilisable sur un label dans un UserForm.

A bientot

dudullray · Answer

Re,

Bizarre je suis sur d'avoir vu ca, mais peut etre que je me trompe
je vais chercher de nouveau

Merci pour ta reponse 

bonne soirée

f894009 · Answer

Re,
ColorIndex est utilise par exemple pour les cellules d'une feuille de calcul.

Bonne recherche

dudullray · Answer

Re, j'ai retrouver ce bout de code dont je parlais
reste plus qu'a incorporer le scrollbar
si tu arrive a faire je suis preneur, mais je vais essayer quand mème
je pense fin du code pour noël LOL

a plus tard Raymond
 

Dim CoulFond As Long, CoulTexte As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("B2:F17"), Target) Is Nothing And Target.Count = 1 Then   'Zone de travail

With UserForm2
.TextBox8 = Target.Address(rowabsolute:=False, columnabsolute:=False)            'Affiche le N° de la cellule cliquée

CoulFond = Target.Interior.Color
CoulTexte = Target.Font.Color

.TextBox9.BackColor = CoulFond
.TextBox10.ForeColor = CoulTexte

NoteCouleurs1 CoulFond
NoteCouleurs2 CoulTexte

.TextBox22 = Target.Interior.ColorIndex              '*** ici utilisation de colorindex
.TextBox28 = Target.Font.ColorIndex
End With
End If
End Sub

f894009 · Answer

Bonjour, 

Dans cet exemple, les couleurs (fond et police) de la cellule selectionnee sont mise en parametres pour les textbox. Il faut faire varier les couleurs d'une cellule avec les ScrollBars. ColorIndex est un nombre (pour afficher une couleur) qui va de 1 a 56. 

Bonne suite

dudullray · Answer

Salut f894009

Merci pour ta réponse c'est sympa

(1) Donc ce n'ai possible pour les UserForms ????

(2) Saurai tu svp me faire varier les couleurs comme je souhaitai 

car avec ce code Label5.BackColor = 10000 * ScrollBar2.Value
et  Label5.ForeColor = 10000 * ScrollBar2.Value 

je ne sais pas si tu a remarquer mais les couleurs sont plutot tristounettes

merci a toi et bonne journée

Cdtl Raymond

f894009 · Answer

Re,
Je regarde ce qu'il est possible de faire avec une autre palette de couleur.

A bientot

dudullray · Answer

Re , salut

Merci beaucoup pour ton aide

A plus tard

Raymond

f894009 · Answer

Re,

Ci-dessous le lien pour recuperer un fichier avec palette couleur Web
https://www.cjoint.com/?BBDmaBZ0vFX


Bonne suite

dudullray · Answer

Re Salut f894009,


Bien recu ton fichier et je remercie beaucoup, c'est comme je souhaitai

et ca fonctionne bien

je vais intégrer a mon fichier principal, je n'avais penser a cette solution

félicitations bien vu LOL

Encore un grand merci a toi et merci pour ton aide, je te souhaite une agréable après midi

Bye bye Cdtl Raymond

Varier un texte dans un label avec scrollbar

11 réponses

Votre réponse

Discussions similaires

Newsletters