RGB dans inputbox

[Temjeh]

Bonjour et merci d'avance

J'ai un input:

r = InputBox("Mettre la couleur de remplacement", "Choisir...")

Si j'y entre RGB(51, 51, 51) pour recup de couleur pour changer couleur de texte dans ma feuille = pas bon

Il met la variable RGB(51, 51, 51) entre guillemets "RGB(51, 51, 51)"


Avez-vous un truc

Merci

Temjeh

 

[Pierrot93]

Re : RGB dans inputbox

Bonjour,

regarde peut être ceci :

bon après midi
@+

Edition : code retiré, ne fonctionne pas....

 

[mromain]

Re : RGB dans inputbox

Bonjour Temjeh, Pierrot, le forum

Un autre moyen pour sélectionner la couleur est d'utiliser une API.
Ci-joint un exemple.

A+

 

[Temjeh]

Re : RGB dans inputbox

Merci beaucoup pour ton API palette

Je travail mon code avec ca.

Temjeh

 

[Pierrot93]

Re : RGB dans inputbox

Re,

peut être aussi comme ceci :

Dim r As String, t() As String
r = InputBox("Mettre la couleur de remplacement", "Choisir...")
t = Split(Replace(Replace(r, "RGB(", ""), ")", ""), ",")
MsgBox RGB(Val(t(0)), Val(t(1)), Val(t(2)))

 

[Temjeh]

Re : RGB dans inputbox

Enfin de retour

Merci Pierrot
C'est encore plus simple et en plus, exactement ce que je cherchais.

Merci beaucoup pour ton temps

temjeh