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
isabelle
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
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
michdenis
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
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
isabelle
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 la palette au complet, tu pourrais faire une boucle avec par
exemple

For i = 1 To 127
RGBValue = RGB(i, 64 + i, 128 + i)
Range("A" & i).Interior.Color = RGBValue
Next

isabelle




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
michdenis
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
isabelle
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
sabatier
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
isabelle
:-))
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
Non Denis, pas testé, mais dès demain matin, je m'y mets promis.
Merci beaucoup Denis très sympa de ta part.
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














1 2 3