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

changer la couleur de fond d'un usf avec un bouton

Créer une discussion

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 !

S'inscrire

pascal21

XLDnaute Barbatruc
bonjour le forum

afin d'égayer un peu mon classeur
j'aimerais savoir si il est possible d'avoir un bouton sur un usf qui permettrait de changer la couleur de fond de cet usf et des contrôles qui le composent
ceci sans que l'utilisateur n'est à rentrer dans le vba bien sur
le bouton ouvrirait une fenetre avec la palette de couleur
merci
 
Trier par date Trier par votes
Re : changer la couleur de fond d'un usf avec un bouton

En fait, je vais vous confier un secret, là dans ce fil, mais le dites à personne.

Pascal (xld) fait du squash..........





Pour pouvoir manger des galettes.

Hi hi
 
Vote positif 0 Vote négatif
Re : changer la couleur de fond d'un usf avec un bouton

Hello,

Hum!!!! dès qu'il est question de Krampouz (galettes) je salive.

Quand est-ce que tu nous invite Pascal(xld)?

Pas le SkOUACH, la partie qui vient après!

A+
 
Vote positif 0 Vote négatif
Re : changer la couleur de fond d'un usf avec un bouton

Re,

Et on peut pas te regarder squacher en mangeant des Galettes?😀

A+

Pour l'ami Pascal 21, un exemple succint sans module de classe, sur la base des usf de Pascalxld, hulk et ch'ai pu qui.
 
Vote positif 0 Vote négatif
Re : changer la couleur de fond d'un usf avec un bouton

Hello à tous, squash"eur(se)", et mangeur de galettes 😀

pascal21 à dit:
je cherche aussi comment faire pour avoir les 3 palettes de couleur en 48 couleurs
Cliquez pour agrandir...

Pour rajouter des boutons couleurs,

Dans l'USF "Palette de couleurs".

1) Tu crées des nouveaux boutons de couleur pour le texte, et tu les nommes CBtn*.
Le dernier étant CBtn9, tu continues CBtn10, CBtn11, CBtn12 etc jusqu'a nombre voulu. (48 si tu veux le même nombre de couleur pour les trois palettes)

2) Idem pour le fond, mais tu nomme les bouton Fond*.
Le dernier étant Fond9, tu continues Fond10, Fond11, Fond12 etc jusqu'au nombre voulu.

Ensuite dans le code de l'USF "Palette de couleurs", tu remplaces:

Dim BtnTexte(1 To 9) As New BtnTexteClass
Dim BtnCouleur(1 To 48) As New BtnCouleurClass
Dim BtnFond(1 To 9) As New BtnFondClass

par

Dim BtnTexte(1 To 48) As New BtnTexteClass
Dim BtnCouleur(1 To 48) As New BtnCouleurClass
Dim BtnFond(1 To 48) As New BtnFondClass



Et normalement ça doit être bon.

Salutations à tous.

Hulk.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : changer la couleur de fond d'un usf avec un bouton

Hello les couches tard 😀

Je relance ce post, car il y a un détail qui me grr !

Un bouton dans un des USF qui ne veut pas fonctionner 😀

Voir le fichier joint.

Merci à vous tous.

Hulk.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : changer la couleur de fond d'un usf avec un bouton

bonjour à tous
merci pour l'interet que vous portez à ce fil
j'ai réussi finalement à inserrer les 3 palettes dans l'usf (merci à Hulk)
il fallait bien nommer les nouveaux boutons rajoutés en CBtn et en Fond
pour éviter les ralentissement (2 à 3 secondes), lorsque je ferme l'usf, j'ai utilisé une astuce
je vous mets une partie du code
dans un module
Code: 
Sub copie_couleur()
With Workbooks("pointages1.xls")
Sheets("pointages manquants").Range("u7") = usfAffichage.BackColor
dans un module de classe
Code: 
 Private Sub BtnCouleur_click()
 Workbooks("pointages1.xls").Sheets("pointages manquants").Range("u10").Value = BtnCouleur.BackColor
 
usfAffichage.BackColor = BtnCouleur.BackColor

End Sub
dans l'userform initialize
Code: 
  Me.BackColor = Sheets("pointages manquants").Range("u7")
et dans l'userform terminate
Code: 
 If Workbooks("pointages1.xls").Sheets("pointages manquants").Range("u7").Value <> Sheets("pointages manquants").Range("u10").Value Then
copie_couleur
il n'y a alors plus que un sdeul ralentissement, lorsque je viens de changer les couleurs après fini tant que je garde les m^mes couleurs
je n'ai pas regardé les nouveaux fichiers proposés, peut que vous avez proposés la même astuces
je regarderai ce soir
je proposerai un classeur simplifié pour ceux que ça interresse
bonne journée à tous
 
Dernière édition:
Vote positif 0 Vote négatif
Re : changer la couleur de fond d'un usf avec un bouton

Hello le Forum et tous,

Merci Dull, c'est impec !

Pascal, je te remercie, mais tout le mérite revient surtout à PascalXLD 😀

Par contre ton problème de ralentissement doit probablement venir du reste de ton code, car chez moi aucun ralentissement. (Avec mon fichier en tous cas !)

Passez une bonne journée.

Hulk.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

  • Question Question
XL 2019 Ajout d'un bouton DELETE sur mon USF
2 3
Réponses
43
Affichages
1 K
Phil Du59
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
229
job75
W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
222
job75
  • Résolu(e)
XL 2021 Un BackColor selon un RAL connu
Réponses
11
Affichages
400
GGI
G
T
  • Question Question
XL 2019 macro pour un bouton avec lien "enregistrer sous"
Réponses
2
Affichages
285
patricktoulon
  • Question Question
XL 2010 changement de la couleur d'un onglet (jaune), si une des cellules d'un tableau n'est plus vide sinon l'onglet garde sa couleur d'origine
2
Réponses
23
Affichages
753
sebbbbb
T
  • Question Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
498
Tophe2
T
  • Question Question
Microsoft 365 Fonction perso ref couleur Hexa en couleur de fond de cellule
2
Réponses
24
Affichages
1 K
Dudu2
H
  • Résolu(e)
XL 2016 Changer la couleur d'un histogramme sur un graphique en vba
Réponses
2
Affichages
264
hutch57
H
M
  • Question Question
Microsoft 365 Remplacer une chaine de caractère d'un code VBA par un autre code VBA
2
Réponses
18
Affichages
1 K
patricktoulon
  • Résolu(e)
Microsoft 365 Changer Couleur de Texte dans cellule
Réponses
7
Affichages
459
Electron24
M
  • Question Question
XL 2021 Fichier partagé - erreur de l'objet TextRange2
Réponses
7
Affichages
283
macseb
M
P
  • Résolu(e)
Microsoft 365 Créer un bouton de commande
Réponses
6
Affichages
153
patoubet
P
S
  • Question Question
Macro associée à un bouton
Réponses
12
Affichages
403
Santino007
S
N
  • Question Question
Power Query Comment changer la source d'un requête WEB ?
Réponses
3
Affichages
340
chris
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
351
sylvanu
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
1 K
Rheeem
R
Utilisez des couleurs indexées
Réponses
2
Affichages
576
Lu76Fer
S
  • Résolu(e)
XL 2019 question dans un textbox
Réponses
6
Affichages
189
Sheldor
S
  • Question Question
Microsoft 365 Couleur de fond d'un bouton de commande
Réponses
5
Affichages
575
natorp
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…