Varier un texte dans un label avec scrollbar

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
    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
    Re,

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

    A bientot
    0
    1. 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
      1. f894009
        Re,
        ColorIndex est utilise par exemple pour les cellules d'une feuille de calcul.

        Bonne recherche
        0
        2. 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
          1. f894009
            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
            1. 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
              1. f894009
                Re,
                Je regarde ce qu'il est possible de faire avec une autre palette de couleur.

                A bientot
                0
                1. dudullray
                  Re , salut

                  Merci beaucoup pour ton aide

                  A plus tard

                  Raymond
                  0
                  2. 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