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

[pascal21]

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

 

[PascalXLD]

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

RE

Allez fini de manger des ..... galettes Et oui il faut bien récupérer du squash

 

[pascal21]

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

bon je viens de tout relire ce fil
au final, on est sur une base de pascalxld modifié ensuite par hasco et une proposition de hulk

 

[pascal21]

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

RE

Allez fini de manger des ..... galettes Et oui il faut bien récupérer du squash

pas tout compris lol!!!

 

[PascalXLD]

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

pas tout compris lol!!!

re


pascal21

Tu as oublié tes lunettes



pascalXLD:

Bon appétit

Voilà pour répondre à Staple comme je suis rentré du squash je mange des galettes complètes
Et oui vive la Bretagne

 

[Staple1600]

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

Re


Pascal21:

bon je viens de tout relire ce fil

Tu es sur ??

Qu'est ce que je disais

MDR

 

[Brigitte]

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

 

[PascalXLD]

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

Même pas vrai ...je faisais du squash à Rouen sans manger de galettes

 

[Guest]

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+

 

[PascalXLD]

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

RE

Salut Gé Pour les galettes il faut aussi le squash avant c'est obligatoire

 

[Guest]

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.

 

[Hulk]

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

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

je cherche aussi comment faire pour avoir les 3 palettes de couleur en 48 couleurs

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.

 

[Hulk]

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.

 

[Dull]

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

Salut le Fil

Ton fichier modifié Hulk

Bonne Journée

 

[pascal21]

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

Sub copie_couleur()
With Workbooks("pointages1.xls")
Sheets("pointages manquants").Range("u7") = usfAffichage.BackColor

dans un module de classe

 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

  Me.BackColor = Sheets("pointages manquants").Range("u7")

et dans l'userform terminate

 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

 

[Hulk]

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.