scroll bar et couleur en fonction valeur

david54520 · 23 Janvier 2013

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 · 24 Janvier 2013

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:

VB:

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 · 24 Janvier 2013

Re : scroll bar et couleur en fonction valeur

merci beaucoup !!!

scroll bar et couleur en fonction valeur

david54520

XLDnaute Junior

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

david54520

XLDnaute Junior

Discussions similaires

scroll bar et couleur en fonction valeur

david54520

XLDnaute Junior

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

david54520

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency