Discussion :

[ESVBA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Merci.

ESVBA

[rvtoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[QuestVba]

Bonjour,

Moi, j'utilise le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ESVBA]

Ca fonctionne.

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


Donc merci RVToulon et QuestVBA.

ESVBA