Couleur de cellule et de textbox

Bonjour à tous,

je souhaite mettre la même couleur de fond à une Textbox que la cellule s'y rapportant. Le code suivant ne fonctionne pas :

Code:

---

.BackColor = Range("TabRepartitionHoraireNiveau").Cells(i + 1, 1).Interior.ColorIndex

---

N'y a-t-il pas une différence de codage des couleurs ?

Merci.

ESVBA

Bonjour,
et un utilisant la propriété "color" à la place de "colorindex":

Code:

---

.BackColor = Range("TabRepartitionHoraireNiveau").Cells(i + 1, 1).Interior.Color

---

car ceci fonctionne:
je récupère le code couleur de la cellule C4 et je l'utilise pour mon textbox:

Code:

---

1 2	celcolor = Range("C4").Interior.Color Me.TextBox1.BackColor = celcolor

---

Bonjour,

Moi, j'utilise le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Initialize() Dim CoulRVB As Long Dim Bleu As Integer Dim Vert As Integer Dim Rouge As Integer CoulRVB = ActiveCell.Interior.Color Rouge = Int(CoulRVB Mod 256) Vert = Int((CoulRVB Mod 65536) / 256) Bleu = Int(CoulRVB / 65536) TextBox1.BackColor = RGB(Rouge, Vert, Bleu) End Sub

---

En attaché un fichier excel avec les codes couleurs RGB.

Ca fonctionne.

Merci à vous deux la propriété est effectivement ".Color" (que j'utilisais avant de passer à ".indexcolor" car ça ne fonctionnait pas:aie:).
Il y avait donc une erreur ailleurs que j'ai corrigé.


Donc merci RVToulon et QuestVBA.

ESVBA