1) dans un userForm, je veux qu'un utilisateur puisse choisir une couleur de
remplissage en cliquant dans une palette identique à celle dont on dispose
dans Excel; comment faut-il faire?
2) Lorsque je récupère son choix, je voudrais l'exprimer d'une manière
indépendante de la palette en cours (cf mon autre post...); j'ai bien trouvé
la propriété RGB, mais comment connaître de manière pratique les valeurs RGB
des couleurs qui seront choisies?
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
Bob Phillips
Bonjour,
1) Voici une fonction qui emploie le dialogue de couleur pour renvoyer une valeur de colorindex. Faites un bouton sur l'userform qui appelle la fonction
Function ReturnColorindex() As Long Dim rngCurr As Range Set rngCurr = Selection Application.ScreenUpdating = False Range("IV1").Select Application.Dialogs(xlDialogPatterns).Show ReturnColorindex = ActiveCell.Interior.ColorIndex ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic rngCurr.Select End Function
--
HTH
RP (remove nothere from the email address if mailing direct)
"Bourby" wrote in message news:
bonjour,
1) dans un userForm, je veux qu'un utilisateur puisse choisir une couleur de
remplissage en cliquant dans une palette identique à celle dont on dispose dans Excel; comment faut-il faire?
2) Lorsque je récupère son choix, je voudrais l'exprimer d'une manière indépendante de la palette en cours (cf mon autre post...); j'ai bien trouvé
la propriété RGB, mais comment connaître de manière pratique les valeurs RGB
des couleurs qui seront choisies?
J'espère avoir été clair (sans en être sûr...)
Merci d'avance pour vos réponses
Bourby
Bonjour,
1) Voici une fonction qui emploie le dialogue de couleur pour renvoyer une
valeur de colorindex. Faites un bouton sur l'userform qui appelle la
fonction
Function ReturnColorindex() As Long
Dim rngCurr As Range
Set rngCurr = Selection
Application.ScreenUpdating = False
Range("IV1").Select
Application.Dialogs(xlDialogPatterns).Show
ReturnColorindex = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic
rngCurr.Select
End Function
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Bourby" <nospam-jchfer@wanadoo.fr> wrote in message
news:eKblkh45EHA.2196@TK2MSFTNGP11.phx.gbl...
bonjour,
1) dans un userForm, je veux qu'un utilisateur puisse choisir une couleur
de
remplissage en cliquant dans une palette identique à celle dont on dispose
dans Excel; comment faut-il faire?
2) Lorsque je récupère son choix, je voudrais l'exprimer d'une manière
indépendante de la palette en cours (cf mon autre post...); j'ai bien
trouvé
la propriété RGB, mais comment connaître de manière pratique les valeurs
RGB
1) Voici une fonction qui emploie le dialogue de couleur pour renvoyer une valeur de colorindex. Faites un bouton sur l'userform qui appelle la fonction
Function ReturnColorindex() As Long Dim rngCurr As Range Set rngCurr = Selection Application.ScreenUpdating = False Range("IV1").Select Application.Dialogs(xlDialogPatterns).Show ReturnColorindex = ActiveCell.Interior.ColorIndex ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic rngCurr.Select End Function
--
HTH
RP (remove nothere from the email address if mailing direct)
"Bourby" wrote in message news:
bonjour,
1) dans un userForm, je veux qu'un utilisateur puisse choisir une couleur de
remplissage en cliquant dans une palette identique à celle dont on dispose dans Excel; comment faut-il faire?
2) Lorsque je récupère son choix, je voudrais l'exprimer d'une manière indépendante de la palette en cours (cf mon autre post...); j'ai bien trouvé
la propriété RGB, mais comment connaître de manière pratique les valeurs RGB
des couleurs qui seront choisies?
J'espère avoir été clair (sans en être sûr...)
Merci d'avance pour vos réponses
Bourby
Sitting Hoax \(BM\)
Bonjour, tu as un classeur très intéressant sur Excelabo de Modeste GeeDee GD le ch'ti d'Anniche. Description RGB des couleurs http://www.excelabo.net/moteurs/compteclic.php?nom=gd-xlcolors Il crée des palettes, remet la palette Excel standard, bref, le top une fois que tu auras adapté les macros et l'userform à ton problème. Amicalement Sitting Hoax (Fan de GD) "Bob Phillips" a écrit dans le message de news:
Bonjour,
1) Voici une fonction qui emploie le dialogue de couleur pour renvoyer une
valeur de colorindex. Faites un bouton sur l'userform qui appelle la fonction
Function ReturnColorindex() As Long Dim rngCurr As Range Set rngCurr = Selection Application.ScreenUpdating = False Range("IV1").Select Application.Dialogs(xlDialogPatterns).Show ReturnColorindex = ActiveCell.Interior.ColorIndex ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic rngCurr.Select End Function
--
HTH
RP (remove nothere from the email address if mailing direct)
"Bourby" wrote in message news:
bonjour,
1) dans un userForm, je veux qu'un utilisateur puisse choisir une couleur
de
remplissage en cliquant dans une palette identique à celle dont on dispose
dans Excel; comment faut-il faire?
2) Lorsque je récupère son choix, je voudrais l'exprimer d'une manière indépendante de la palette en cours (cf mon autre post...); j'ai bien trouvé
la propriété RGB, mais comment connaître de manière pratique les valeurs RGB
des couleurs qui seront choisies?
J'espère avoir été clair (sans en être sûr...)
Merci d'avance pour vos réponses
Bourby
Bonjour,
tu as un classeur très intéressant sur Excelabo de Modeste GeeDee GD le
ch'ti d'Anniche.
Description RGB des couleurs
http://www.excelabo.net/moteurs/compteclic.php?nom=gd-xlcolors
Il crée des palettes, remet la palette Excel standard, bref, le top une fois
que tu auras adapté les macros et l'userform à ton problème.
Amicalement
Sitting Hoax (Fan de GD)
"Bob Phillips" <bob.phillips@notheretiscali.co.uk> a écrit dans le message
de news:ezdTtz45EHA.828@TK2MSFTNGP14.phx.gbl...
Bonjour,
1) Voici une fonction qui emploie le dialogue de couleur pour renvoyer
une
valeur de colorindex. Faites un bouton sur l'userform qui appelle la
fonction
Function ReturnColorindex() As Long
Dim rngCurr As Range
Set rngCurr = Selection
Application.ScreenUpdating = False
Range("IV1").Select
Application.Dialogs(xlDialogPatterns).Show
ReturnColorindex = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic
rngCurr.Select
End Function
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Bourby" <nospam-jchfer@wanadoo.fr> wrote in message
news:eKblkh45EHA.2196@TK2MSFTNGP11.phx.gbl...
bonjour,
1) dans un userForm, je veux qu'un utilisateur puisse choisir une
couleur
de
remplissage en cliquant dans une palette identique à celle dont on
dispose
dans Excel; comment faut-il faire?
2) Lorsque je récupère son choix, je voudrais l'exprimer d'une manière
indépendante de la palette en cours (cf mon autre post...); j'ai bien
trouvé
la propriété RGB, mais comment connaître de manière pratique les valeurs
RGB
Bonjour, tu as un classeur très intéressant sur Excelabo de Modeste GeeDee GD le ch'ti d'Anniche. Description RGB des couleurs http://www.excelabo.net/moteurs/compteclic.php?nom=gd-xlcolors Il crée des palettes, remet la palette Excel standard, bref, le top une fois que tu auras adapté les macros et l'userform à ton problème. Amicalement Sitting Hoax (Fan de GD) "Bob Phillips" a écrit dans le message de news:
Bonjour,
1) Voici une fonction qui emploie le dialogue de couleur pour renvoyer une
valeur de colorindex. Faites un bouton sur l'userform qui appelle la fonction
Function ReturnColorindex() As Long Dim rngCurr As Range Set rngCurr = Selection Application.ScreenUpdating = False Range("IV1").Select Application.Dialogs(xlDialogPatterns).Show ReturnColorindex = ActiveCell.Interior.ColorIndex ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic rngCurr.Select End Function
--
HTH
RP (remove nothere from the email address if mailing direct)
"Bourby" wrote in message news:
bonjour,
1) dans un userForm, je veux qu'un utilisateur puisse choisir une couleur
de
remplissage en cliquant dans une palette identique à celle dont on dispose
dans Excel; comment faut-il faire?
2) Lorsque je récupère son choix, je voudrais l'exprimer d'une manière indépendante de la palette en cours (cf mon autre post...); j'ai bien trouvé
la propriété RGB, mais comment connaître de manière pratique les valeurs RGB
des couleurs qui seront choisies?
J'espère avoir été clair (sans en être sûr...)
Merci d'avance pour vos réponses
Bourby
Bourby
merci Siiting Hoaks et Bob Phillips,
c'est tout à fait ce qu'il me faut.
Bourby
"Sitting Hoax (BM)" a écrit dans le message news:
Bonjour, tu as un classeur très intéressant sur Excelabo de Modeste GeeDee GD le ch'ti d'Anniche. Description RGB des couleurs http://www.excelabo.net/moteurs/compteclic.php?nom=gd-xlcolors Il crée des palettes, remet la palette Excel standard, bref, le top une fois
que tu auras adapté les macros et l'userform à ton problème. Amicalement Sitting Hoax (Fan de GD) "Bob Phillips" a écrit dans le message de news:
Bonjour,
1) Voici une fonction qui emploie le dialogue de couleur pour renvoyer une
valeur de colorindex. Faites un bouton sur l'userform qui appelle la fonction
Function ReturnColorindex() As Long Dim rngCurr As Range Set rngCurr = Selection Application.ScreenUpdating = False Range("IV1").Select Application.Dialogs(xlDialogPatterns).Show ReturnColorindex = ActiveCell.Interior.ColorIndex ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic rngCurr.Select End Function
--
HTH
RP (remove nothere from the email address if mailing direct)
"Bourby" wrote in message news:
bonjour,
1) dans un userForm, je veux qu'un utilisateur puisse choisir une couleur
de
remplissage en cliquant dans une palette identique à celle dont on dispose
dans Excel; comment faut-il faire?
2) Lorsque je récupère son choix, je voudrais l'exprimer d'une manière
indépendante de la palette en cours (cf mon autre post...); j'ai bien trouvé
la propriété RGB, mais comment connaître de manière pratique les valeurs
RGB
des couleurs qui seront choisies?
J'espère avoir été clair (sans en être sûr...)
Merci d'avance pour vos réponses
Bourby
merci Siiting Hoaks et Bob Phillips,
c'est tout à fait ce qu'il me faut.
Bourby
"Sitting Hoax (BM)" <laurent.dauresANTISPAM@wanadoo.fr> a écrit dans le
message news: OZtIUJ55EHA.824@TK2MSFTNGP11.phx.gbl...
Bonjour,
tu as un classeur très intéressant sur Excelabo de Modeste GeeDee GD le
ch'ti d'Anniche.
Description RGB des couleurs
http://www.excelabo.net/moteurs/compteclic.php?nom=gd-xlcolors
Il crée des palettes, remet la palette Excel standard, bref, le top une
fois
que tu auras adapté les macros et l'userform à ton problème.
Amicalement
Sitting Hoax (Fan de GD)
"Bob Phillips" <bob.phillips@notheretiscali.co.uk> a écrit dans le message
de news:ezdTtz45EHA.828@TK2MSFTNGP14.phx.gbl...
Bonjour,
1) Voici une fonction qui emploie le dialogue de couleur pour renvoyer
une
valeur de colorindex. Faites un bouton sur l'userform qui appelle la
fonction
Function ReturnColorindex() As Long
Dim rngCurr As Range
Set rngCurr = Selection
Application.ScreenUpdating = False
Range("IV1").Select
Application.Dialogs(xlDialogPatterns).Show
ReturnColorindex = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic
rngCurr.Select
End Function
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Bourby" <nospam-jchfer@wanadoo.fr> wrote in message
news:eKblkh45EHA.2196@TK2MSFTNGP11.phx.gbl...
bonjour,
1) dans un userForm, je veux qu'un utilisateur puisse choisir une
couleur
de
remplissage en cliquant dans une palette identique à celle dont on
dispose
dans Excel; comment faut-il faire?
2) Lorsque je récupère son choix, je voudrais l'exprimer d'une
manière
indépendante de la palette en cours (cf mon autre post...); j'ai bien
trouvé
la propriété RGB, mais comment connaître de manière pratique les
valeurs
Bonjour, tu as un classeur très intéressant sur Excelabo de Modeste GeeDee GD le ch'ti d'Anniche. Description RGB des couleurs http://www.excelabo.net/moteurs/compteclic.php?nom=gd-xlcolors Il crée des palettes, remet la palette Excel standard, bref, le top une fois
que tu auras adapté les macros et l'userform à ton problème. Amicalement Sitting Hoax (Fan de GD) "Bob Phillips" a écrit dans le message de news:
Bonjour,
1) Voici une fonction qui emploie le dialogue de couleur pour renvoyer une
valeur de colorindex. Faites un bouton sur l'userform qui appelle la fonction
Function ReturnColorindex() As Long Dim rngCurr As Range Set rngCurr = Selection Application.ScreenUpdating = False Range("IV1").Select Application.Dialogs(xlDialogPatterns).Show ReturnColorindex = ActiveCell.Interior.ColorIndex ActiveCell.Interior.ColorIndex = xlColorIndexAutomatic rngCurr.Select End Function
--
HTH
RP (remove nothere from the email address if mailing direct)
"Bourby" wrote in message news:
bonjour,
1) dans un userForm, je veux qu'un utilisateur puisse choisir une couleur
de
remplissage en cliquant dans une palette identique à celle dont on dispose
dans Excel; comment faut-il faire?
2) Lorsque je récupère son choix, je voudrais l'exprimer d'une manière
indépendante de la palette en cours (cf mon autre post...); j'ai bien trouvé
la propriété RGB, mais comment connaître de manière pratique les valeurs
