Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Changer couleur de fond Userform

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

eliot raymond

XLDnaute Occasionnel
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
 

Pièces jointes

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
 
Re : Changer couleur de fond Userform

Salut eliot raymond, herve62, le forum

Code:
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
 

Pièces jointes

Dernière édition:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…