choix de couleur dans textbox(palette de couleur)

[gege21]

bonjours a tous


je voudrai savoirs comment faire pour pour connaitre la couleur correspondant a un numéro (1,10.....)

je m'explique

dans un textbox je rentre un numéro
et dans un autre texbox le code me donne la couleur correspondante si elle existe

 

[job75]

Re : choix de couleur dans textbox(palette de couleur)

Bonsoir gege21,

Je ne pense pas que vous trouverez dans Excel un tableau de correspondance code couleur => texte de la couleur.

L'inverse est possible : couleur elle-même => code couleur.

Voyez ce lien, entre autres :

Les couleurs en VBA Excel: Les quivalences Hex-Long-RGB

A+

 

[Hippolite]

Re : choix de couleur dans textbox(palette de couleur)

Bonsoir,
Ce fichier de conversion te convient-il ?
A+

Edit Bonjour Job
Pas rafraîchi, je vois que nous avons les mêmes sources

 

[kjin]

Re : choix de couleur dans textbox(palette de couleur)

Bonsoir,

je voudrai savoirs comment faire pour pour connaitre la couleur correspondant a un numéro (1,10.....)

Euh, oui mais lesquelles
S'il s'agit de la palette excel en cours

Private Sub TextBox1_Change()
TextBox2.BackColor = &H80000005
If TextBox1 < 57 Then TextBox2.BackColor = ActiveWorkbook.Colors(CByte(TextBox1))
End Sub

A+
kjin

 

[gege21]

Re : choix de couleur dans textbox(palette de couleur)

bonsoir job75,Hippolite,kjin

merci pour votre réponse
kjin c tout a fait sa il faudrait juste un message si si il n'y a pas de couleur associer au numero

 

[kjin]

Re : choix de couleur dans textbox(palette de couleur)

Bonsoir, salut Job et Hippolite 🙂,
Un petit effort Gégé...🙄

Private Sub TextBox1_Change()
TextBox2.BackColor = &H80000005
If TextBox1 = "" Then Exit Sub
If Not IsNumeric(TextBox1) Or TextBox1 > 56 Then
    MsgBox "Pan Pan Cucu"
    TextBox1 = ""
    Exit Sub
End If
TextBox2.BackColor = ActiveWorkbook.Colors(CByte(TextBox1))
End Sub

A+
kjin

 

[gege21]

Re : choix de couleur dans textbox(palette de couleur)

j'ai fait une modif pour avoir 2 message mais sa marche pas😕

Private Sub TextBox1_Change()
On Error Resume Next
TextBox2.BackColor = &H80000005
If TextBox1 = "" Then Exit Sub
If Not IsNumeric(TextBox1) Then
    MsgBox "entre interdit", vbCritical
    TextBox1 = ""
    Exit Sub
  If TextBox1 > 56 Then
  MsgBox "entere un nombre entre 1 et 56", vbCritical
  TextBox1 = ""
    Exit Sub
End If
End If
TextBox2.BackColor = ActiveWorkbook.Colors(CByte(TextBox1))
End Sub

 

[phlaurent55]

Re : choix de couleur dans textbox(palette de couleur)

Bonjour à tous,

@ gege,

remplace ton code par celui-ci:

Private Sub TextBox1_Change()

If TextBox1 = "" Then Exit Sub

If Not IsNumeric(TextBox1) Then
    MsgBox "Valeur interdite", vbCritical
    TextBox1 = ""
    Exit Sub
End If

If TextBox1 > 56 Then
  MsgBox "Entrez un nombre entre 1 et 56", vbCritical
  TextBox1 = ""
  Exit Sub
End If

TextBox2.BackColor = ActiveWorkbook.Colors(CByte(TextBox1))

End Sub

à+
Philippe