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

10 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
Merci beaucoup Isabelle, c'est vraiment trop sympa de ta part, je teste
demain,
Une femme en VBA, c'est vraiment sympa.
Patrick

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

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













Avatar
Crel
Salut Voisin
@+

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

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
sabatier
ah ce n'est quand meme plus blanc que blanc, comme avait dit coluche en
parlant d'une lessive, isabelle...
quant au marseillais, je te remercie d'avoir mis sa félonie en exergue
jps

isabelle a écrit:
:-))
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





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







Avatar
sabatier
salut, salut
jps

Crel a écrit:
Salut Voisin
@+

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


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








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







Avatar
Crel
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














Avatar
Sitting Hoax \(BM\)
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
sabatier
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
Crel
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
Denis Michon
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
isabelle
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