Changer couleur de fond Userform

[eliot raymond]

Bonjour a toutes et tous, forum,

Je souhaiterai svp modifier la couleur de FOND d'un UserForm a l'aide d'un control

Voir svp le fichier ci-joint pour plus d'infos.

Merci a vous et de votre temps

Bon Dimanche

Cdlt Ray

 

[herve62]

Re : Changer couleur de fond Userform

Bonjour
si tu mets ca dans ton code , par exemple:
UserForm1.BackColor = &H40C0&

 

[eliot raymond]

Re : Changer couleur de fond Userform

Salut herve62

Merci pour ta réponse, pour la couleur comme ça je sais le faire

mais le Slider comprends 48 graduations, donc j'aurai souhaiter svp avoir 48 couleurs
en faisant varier le curseur du slider pour changer la couleur de fond de l'userform1 avec
les couleurs de la boite de propriété.

Merci a plus tard

Ray

 

[Dull]

Re : Changer couleur de fond Userform

Salut eliot raymond, herve62, le forum

Option Explicit
Dim X As Range

Private Sub Slider1_Scroll()
Label1.Caption = Slider1.Value
Slider1.SelLength = Slider1.Value
Set X = Feuil2.Range("A2:F57").Find(Slider1.Value, , xlValues, xlWhole, , , False)
If Not X Is Nothing Then
    Me.BackColor = X.Offset(, 1).Value
End If
End Sub

un essai en pièce jointe

une feuille avec les correspondances à été ajoutée (Feuil2)

EDITION: @hervé62 regarde ce fil et il y en a beaucoup d'autres

Bonne journée

 

[herve62]

Re : Changer couleur de fond Userform

Désolé mais je ne pense pas avoir ce "control" en 2003 (c'est pas dans la boite à outils)
d'ailleurs j'aimerai bien qu'on me le confirme

 

[eliot raymond]

Re : Changer couleur de fond Userform

Désolé mais je ne pense pas avoir ce "control" en 2003 (c'est pas dans la boite à outils)
d'ailleurs j'aimerai bien qu'on me le confirme

Salut herve62,

Ok je ne peux pas te dire pour le control Slider sur excel 2003, je ne l'ai plus depuis longtemps
je suis désolé

bonne fin de Dimanche

Cordialement Ray

 

[eliot raymond]

Re : Changer couleur de fond Userform

Salut Dull

Merci pour ta réponse j'ai adapter ton code a mon programme et ça fonctionne très bien

je te remercie beaucoup pour ton aide et ton savoir

Bonne fin de Dimanche, hélas ça passe vite

Cordialement Raymond