Varier un texte dans un label avec scrollbar

dudullray -  
 dudullray -
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 



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

11 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
    1. dudullray
       
      Salut f894009,

      Merci pour la réponse, effectivement de cette manière ca fonctionne

      MAIS je souhaiterai svp utiliser ColorIndex a la place de Backcolor et et Forecolor

      je n'arrive pas a le faire, j'ai déja vu, oui mais ou, la je ne me rappelle plus


      Merci beaucoup a plus tard Cdtl Raymond
      0
  2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    ColorIndex n'est pas utilisable sur un label dans un UserForm.

    A bientot
    0
  3. dudullray
     
    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
    0
  4. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,
    ColorIndex est utilise par exemple pour les cellules d'une feuille de calcul.

    Bonne recherche
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. dudullray
     
    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
    0
  7. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
  8. dudullray
     
    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
    0
  9. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,
    Je regarde ce qu'il est possible de faire avec une autre palette de couleur.

    A bientot
    0
  10. dudullray
     
    Re , salut

    Merci beaucoup pour ton aide

    A plus tard

    Raymond
    0
  11. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

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

    Bonne suite
    0
  12. dudullray
     
    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
    0