scroll bar et couleur en fonction valeur

[david54520]

Bonjour

une question sans doute tout bête pour certains d'entre vous !!

Dans le fichier joint, une scrollbar. la valeur s'affiche en D9

Est-il possible : soit de modifier l'ensemble de scrolbar en fonction de la valeur D9 (genre si D9=1 alors scroll bar est rouge, si d9=2 jaune, d9=3 vert et d9=4 bleue
soit de modifier la couleur du clignotement du curseur qui pour le moment est jaune.

Merci d'avance

 

[mapomme]

Re : scroll bar et couleur en fonction valeur

Bonsoir david54520,

Un essai dans le fichier joint avec une suppression du clignotement.

A la conception de la feuille, un objet CommandButton a été placé sous la scrollbar (cliquez droit sur la scrollbar et choisir l'option Ordre/Mettre au premier plan afin de dissimuler le CommandButton). Cet objet est sélectionné à chaque évènement ScrollBar1_Change. On devrait éviter ainsi le clignotement (pas dans tout les cas).

Le code dans le module de Feuil3:

Private Sub ScrollBar1_Change()
With ScrollBar1
  Select Case .Value
    Case 1
      .BackColor = &H808080
      .ForeColor = &H0&
    Case 2
      .BackColor = &HFFFF&
      .ForeColor = &HFF0000
    Case 3
      .BackColor = &HFF00&
      .ForeColor = &HFF00FF
    Case 4
      .BackColor = &HFF0000
      .ForeColor = &HFFFF&
  End Select
End With
  CommandButton1.Select
End Sub

 

[david54520]

Re : scroll bar et couleur en fonction valeur

merci beaucoup !!!