Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Changer la couleur d'un Userform

Changer la couleur d'un Userform

26 réponses
Avatar
Crel
Bonjour à toutes et tous.
J'ai créé un Userform, et je désire qu'en cliquant sur un bouton déposé sur
celui-ci, il change de couleur, j'ai au moins déjà 100 tests infructueux.
Merci beaucoup
Patrick
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Crel
Euh... Désolé Denis, je pense réellement que c'est une langue car vous
employez des termes particuliers, un char pour une voiture etc. Si l'on
demande à un français de donner la signification de char, il pensera à tout
sauf à une voiture. C'est normal.
En revanche, il se peut que ce soit nous français qui avons "dégénéré" vaste
débat, c'est mon humble avis, car dans le cadre de mon travail, je suis
amené à contacter des canadiens. Je ne pense pas qu'il s'agisse de
régionalisme.
Patrick



"Denis Michon" a écrit dans le message de news:
l59mb.10200$
Bonjour Crel,


" c'est une superbe langue bien chantante. "

Est-ce que la tienne (langue) est si différente , hormis les régionalismes
? Tu es un petit comique !!!



Salutations!





"Crel" a écrit dans le message de
news:%

Non au contraire, c'est une superbe langue bien chantante.
Patrick

"sabatier" a écrit dans le message de news:

c 'est pas beau de se muquer de denis, patrick, et de faire de notre
valeureux québécois une tête de torc...
jps



Crel a écrit:
As - tu besoin d'une tuque est des mitaines avec ça ?


Désolé, apparemment c'est du Canadien ?
J'ai un peu de mal à comprendre ;-))
Patrick

"michdenis" a écrit dans le message de news:


Bonjour M.Crel,


As-tu au moins testé ? Qu'est-ce que tu penses que je t'ai donné ?

La fonction Rgb a 3 paramêtres pouvant prendre les valeurs de 0 à 255
UserForm1.BackColor = Rgb(255,255,255)

Mais tu peux très bien juste entré ceci :

Msgbox UserForm1.BackColor = 25 Ou 99 ou 125267

Et c'est suffisant

Dim A as long
A = est la couleur du formulaire
A = UserForm1.BackColor


As - tu besoin d'une tuque est des mitaines avec ça ?

;-)


Salutations!



"Crel" a écrit dans le message de


news:

Merci beaucoup Denis, mais comment récupérer le code couleur ?
Patrick

"michdenis" a écrit dans le message de news:


Bonjour Crel,


Msgbox UserForm1.BackColor


Salutations!

"Crel" a écrit dans le message
de






news:%

Mille merci Isabelle, cela fonctionne parfaitement, mais, ou puis-je


trouver

le codes couleurs je n'arrive pas à les récupérer par macro.
Patrick

"isabelle" a écrit dans le message de


news:




bonjour Crel,

voici un exemple,

Private Sub CommandButton1_Click()
UserForm1.BackColor = RGB(255, 0, 0)
End Sub

isabelle


Bonjour à toutes et tous.
J'ai créé un Userform, et je désire qu'en cliquant sur un bouton


déposé



sur

celui-ci, il change de couleur, j'ai au moins déjà 100 tests


infructueux.


Merci beaucoup
Patrick














--
NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire
en bal perso....merci













Avatar
Sitting Hoax \(BM\)
Merci Isabelle,
ces bisous rattrappent amplement l'erreur judiciaire qui m'a frappé;-))
tout en ajoutant, ce qui n'est pas pour me déplaire,
une once de jalousie à l'affreux JPS qui m'a taxé de félon;-)
bisous
Amicalement
Sitting Hoax
"isabelle" a écrit dans le message de
news:
pour récupérer, ha !! ban là je suis d'accord, y a longtemps, que je ne
t'ai fait les bisou ;-)
tous plein de bisoux
isabelle(en retard)


Pas voler Isabelle, récupérer ;-))
je les attends toujours d'ailleurs :-)))
bisous
Amicalement
Sitting Hoax
"isabelle" a écrit dans le message de
news:
:-))
si si à 240, 240 ,240 c'est pas mal blanc, en tout cas plus blanc que
l'intention du beau marseillais à vouloir volé les bisou.
bisou mon ange
isabelle


bien vu isabelle sauf que le step 16 quand on arrive à 240, ça ne
peut




faire que 256 et là y en a pas de blanc...comme dans le beaujolais,
il




n'y a pas de cannibales, le dernier on l'a mangé ce matin...
jps

isabelle a écrit:
en voici quelque une,


Couleur rouge verte bleue
Noir 0 0 0
Bleu 0 0 255
Vert 0 255 0
Cyan 0 255 255
Rouge 255 0 0
Magenta 255 0 255
Jaune 255 255 0
Blanc 255 255 255



pour avoir une palette de couleur, tu pourrais faire une boucle,
par





exemple

Sub RGBcouleur()
Application.ScreenUpdating = False
For r = 0 To 255 Step 16
For g = 0 To 255 Step 16
For b = 0 To 255 Step 16
x = x + 1
RGBValue = RGB(r, g, b)
Range("A" & x).Interior.Color = RGBValue
Range("b" & x) = r & " " & g & " " & b
Next
Next
Next
Application.ScreenUpdating = True
End Sub

isabelle


Merci beaucoup Denis, mais comment récupérer le code couleur ?
Patrick

"michdenis" a écrit dans le message de
news:








Bonjour Crel,


Msgbox UserForm1.BackColor


Salutations!

"Crel" a écrit dans le
message







de

news:%

Mille merci Isabelle, cela fonctionne parfaitement, mais, ou
puis-je








trouver

le codes couleurs je n'arrive pas à les récupérer par macro.
Patrick

"isabelle" a écrit dans le message
de







news:


bonjour Crel,

voici un exemple,

Private Sub CommandButton1_Click()
UserForm1.BackColor = RGB(255, 0, 0)
End Sub

isabelle


Bonjour à toutes et tous.
J'ai créé un Userform, et je désire qu'en cliquant sur un
bouton










déposé



sur

celui-ci, il change de couleur, j'ai au moins déjà 100 tests


infructueux.


Merci beaucoup
Patrick









--
NB. mes admiratrices voudront bien supprimer "delaile" avant de
m'écrire




en bal perso....merci













Avatar
Crel
Re, Oups, j'ai oublié
"Très amicalement"
Patrick

"Denis Michon" a écrit dans le message de news:
l59mb.10200$
Bonjour Crel,


" c'est une superbe langue bien chantante. "

Est-ce que la tienne (langue) est si différente , hormis les régionalismes
? Tu es un petit comique !!!



Salutations!





"Crel" a écrit dans le message de
news:%

Non au contraire, c'est une superbe langue bien chantante.
Patrick

"sabatier" a écrit dans le message de news:

c 'est pas beau de se muquer de denis, patrick, et de faire de notre
valeureux québécois une tête de torc...
jps



Crel a écrit:
As - tu besoin d'une tuque est des mitaines avec ça ?


Désolé, apparemment c'est du Canadien ?
J'ai un peu de mal à comprendre ;-))
Patrick

"michdenis" a écrit dans le message de news:


Bonjour M.Crel,


As-tu au moins testé ? Qu'est-ce que tu penses que je t'ai donné ?

La fonction Rgb a 3 paramêtres pouvant prendre les valeurs de 0 à 255
UserForm1.BackColor = Rgb(255,255,255)

Mais tu peux très bien juste entré ceci :

Msgbox UserForm1.BackColor = 25 Ou 99 ou 125267

Et c'est suffisant

Dim A as long
A = est la couleur du formulaire
A = UserForm1.BackColor


As - tu besoin d'une tuque est des mitaines avec ça ?

;-)


Salutations!



"Crel" a écrit dans le message de


news:

Merci beaucoup Denis, mais comment récupérer le code couleur ?
Patrick

"michdenis" a écrit dans le message de news:


Bonjour Crel,


Msgbox UserForm1.BackColor


Salutations!

"Crel" a écrit dans le message
de






news:%

Mille merci Isabelle, cela fonctionne parfaitement, mais, ou puis-je


trouver

le codes couleurs je n'arrive pas à les récupérer par macro.
Patrick

"isabelle" a écrit dans le message de


news:




bonjour Crel,

voici un exemple,

Private Sub CommandButton1_Click()
UserForm1.BackColor = RGB(255, 0, 0)
End Sub

isabelle


Bonjour à toutes et tous.
J'ai créé un Userform, et je désire qu'en cliquant sur un bouton


déposé



sur

celui-ci, il change de couleur, j'ai au moins déjà 100 tests


infructueux.


Merci beaucoup
Patrick














--
NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire
en bal perso....merci













Avatar
Modeste
Jalousie ????
meuh non c'est du dépit.....
d'ailleurs l'a pas beaucoup de temps en ce moment,
l'empoisonneur d'azergue, occupé qu'il est à préparer son
vinaigre rose à la banane ....

plus que quinze jours, l'a peut-etre même pas encore
décidé quel fruit il allait mettre dedans cette année !!!!


modeste qui aime bien aussi le rosé d'Aix
;-)))
@+
-----Message d'origine-----
Merci Isabelle,
ces bisous rattrappent amplement l'erreur judiciaire qui
m'a frappé;-))

tout en ajoutant, ce qui n'est pas pour me déplaire,
une once de jalousie à l'affreux JPS qui m'a taxé de
félon;-)

bisous
Amicalement
Sitting Hoax
"isabelle" a écrit dans le
message de

news:
pour récupérer, ha !! ban là je suis d'accord, y a
longtemps, que je ne


t'ai fait les bisou ;-)
tous plein de bisoux
isabelle(en retard)


Pas voler Isabelle, récupérer ;-))
je les attends toujours d'ailleurs :-)))
bisous
Amicalement
Sitting Hoax
"isabelle" a écrit dans
le message de



news:
:-))
si si à 240, 240 ,240 c'est pas mal blanc, en tout
cas plus blanc que




l'intention du beau marseillais à vouloir volé les
bisou.




bisou mon ange
isabelle


bien vu isabelle sauf que le step 16 quand on
arrive à 240, ça ne





peut
faire que 256 et là y en a pas de blanc...comme
dans le beaujolais,





il
n'y a pas de cannibales, le dernier on l'a mangé
ce matin...





jps

isabelle a écrit:
en voici quelque une,


Couleur rouge verte bleue
Noir 0 0 0
Bleu 0 0 255
Vert 0 255 0
Cyan 0 255 255
Rouge 255 0 0
Magenta 255 0 255
Jaune 255 255 0
Blanc 255 255 255



pour avoir une palette de couleur, tu pourrais
faire une boucle,






par
exemple

Sub RGBcouleur()
Application.ScreenUpdating = False
For r = 0 To 255 Step 16
For g = 0 To 255 Step 16
For b = 0 To 255 Step 16
x = x + 1
RGBValue = RGB(r, g, b)
Range("A" & x).Interior.Color = RGBValue
Range("b" & x) = r & " " & g & " " & b
Next
Next
Next
Application.ScreenUpdating = True
End Sub

isabelle


Merci beaucoup Denis, mais comment récupérer le
code couleur ?







Patrick

"michdenis" a écrit
dans le message de







news:


Bonjour Crel,


Msgbox UserForm1.BackColor


Salutations!

"Crel" a
écrit dans le








message
de

news:%

Mille merci Isabelle, cela fonctionne
parfaitement, mais, ou








puis-je

trouver

le codes couleurs je n'arrive pas à les
récupérer par macro.








Patrick

"isabelle" a
écrit dans le message








de
news:


bonjour Crel,

voici un exemple,

Private Sub CommandButton1_Click()
UserForm1.BackColor = RGB(255, 0, 0)
End Sub

isabelle


Bonjour à toutes et tous.
J'ai créé un Userform, et je désire qu'en
cliquant sur un










bouton

déposé



sur

celui-ci, il change de couleur, j'ai au
moins déjà 100 tests











infructueux.


Merci beaucoup
Patrick









--
NB. mes admiratrices voudront bien
supprimer "delaile" avant de





m'écrire
en bal perso....merci






.












Avatar
Modeste
;-)))
-----Message d'origine-----
" c'est une superbe langue bien chantante. "


hey denis serais-tu moqueur ????

bien chantante, bien chantante .....
tu parles de nos grands chanteurs "français"

robert, celine, isabelle, gilette, garou, gilles, diane
etc....

@+

Avatar
Sitting Hoax \(BM\)
Il parait qu'il veut y mettre du raisin;-)))
Amicalement
Sitting hoax
"Modeste" a écrit dans le message de
news:0ba701c39a3d$4dd1e630$
Jalousie ????
meuh non c'est du dépit.....
d'ailleurs l'a pas beaucoup de temps en ce moment,
l'empoisonneur d'azergue, occupé qu'il est à préparer son
vinaigre rose à la banane ....

plus que quinze jours, l'a peut-etre même pas encore
décidé quel fruit il allait mettre dedans cette année !!!!


modeste qui aime bien aussi le rosé d'Aix
;-)))
@+
-----Message d'origine-----
Merci Isabelle,
ces bisous rattrappent amplement l'erreur judiciaire qui
m'a frappé;-))

tout en ajoutant, ce qui n'est pas pour me déplaire,
une once de jalousie à l'affreux JPS qui m'a taxé de
félon;-)

bisous
Amicalement
Sitting Hoax
"isabelle" a écrit dans le
message de

news:
pour récupérer, ha !! ban là je suis d'accord, y a
longtemps, que je ne


t'ai fait les bisou ;-)
tous plein de bisoux
isabelle(en retard)


Pas voler Isabelle, récupérer ;-))
je les attends toujours d'ailleurs :-)))
bisous
Amicalement
Sitting Hoax
"isabelle" a écrit dans
le message de



news:
:-))
si si à 240, 240 ,240 c'est pas mal blanc, en tout
cas plus blanc que




l'intention du beau marseillais à vouloir volé les
bisou.




bisou mon ange
isabelle


bien vu isabelle sauf que le step 16 quand on
arrive à 240, ça ne





peut
faire que 256 et là y en a pas de blanc...comme
dans le beaujolais,





il
n'y a pas de cannibales, le dernier on l'a mangé
ce matin...





jps

isabelle a écrit:
en voici quelque une,


Couleur rouge verte bleue
Noir 0 0 0
Bleu 0 0 255
Vert 0 255 0
Cyan 0 255 255
Rouge 255 0 0
Magenta 255 0 255
Jaune 255 255 0
Blanc 255 255 255



pour avoir une palette de couleur, tu pourrais
faire une boucle,






par
exemple

Sub RGBcouleur()
Application.ScreenUpdating = False
For r = 0 To 255 Step 16
For g = 0 To 255 Step 16
For b = 0 To 255 Step 16
x = x + 1
RGBValue = RGB(r, g, b)
Range("A" & x).Interior.Color = RGBValue
Range("b" & x) = r & " " & g & " " & b
Next
Next
Next
Application.ScreenUpdating = True
End Sub

isabelle


Merci beaucoup Denis, mais comment récupérer le
code couleur ?







Patrick

"michdenis" a écrit
dans le message de







news:


Bonjour Crel,


Msgbox UserForm1.BackColor


Salutations!

"Crel" a
écrit dans le








message
de

news:%

Mille merci Isabelle, cela fonctionne
parfaitement, mais, ou








puis-je

trouver

le codes couleurs je n'arrive pas à les
récupérer par macro.








Patrick

"isabelle" a
écrit dans le message








de
news:


bonjour Crel,

voici un exemple,

Private Sub CommandButton1_Click()
UserForm1.BackColor = RGB(255, 0, 0)
End Sub

isabelle


Bonjour à toutes et tous.
J'ai créé un Userform, et je désire qu'en
cliquant sur un










bouton

déposé



sur

celui-ci, il change de couleur, j'ai au
moins déjà 100 tests











infructueux.


Merci beaucoup
Patrick









--
NB. mes admiratrices voudront bien
supprimer "delaile" avant de





m'écrire
en bal perso....merci






.












1 2 3