Tester la couleur d'une cellule

[David Jonc.]

Bonjour au forum,

je me heurte à un petit probleme, je recupere des valeurs d'une feuille de que je met dans un combobox, puis je rempli des textbox en fonction de la ligne selectionnée par le combo box. Mais j'aimerai tester une cellule de la ligne pour en connaitre la couleur, et si c'est la bonne couleur, un checkbox serait validé. Je ne sais pas comment faire, j'ai essayé quelques trucs, mais ça ne fonctionne pas. Voici mon code:


Private Sub UserForm_Initialize()
Dim IInit As Integer
Dim Plage As String
With Sheets("Feuil1")
Plage = .Range("B1:AA" & .Range("D65536").End(xlUp).Row).Address
End With

With Me.ComboBoxClient
.ColumnCount = 26
.ColumnWidths = "100;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0"
.RowSource = "Feuil1!" & Plage
End With

end sub


Private Sub ComboBoxClient_Change()
'If Sheets("feuil1").Range("A" & Me.ComboBoxClient.ListIndex).Interior.ColorIndex = 6 Then
' Me.CheckBoxCP.Value = True
'End If
end sub


Merci pour vos reponses

david

 

[CHti160]

salut"David Jonc."
bonjour le "FORUM"

j'ai testé cela et ca marche à voir si j'ai bien compri la question
j'ai mis listIndex+1 pour éviter le 0 soit range("E"&0) qui bug

Private Sub ComboBox1_Change()

If Sheets("feuil1").Range("E" & Me.ComboBox1.ListIndex + 1).Interior.ColorIndex = 6 Then
Me.CheckBox1.Value = True
Else
Me.CheckBox1.Value = False
End If
End Sub
A+++
Jean Marie

 

[David Jonc.]

Salut jean marie, le forum,

Merci Jean Marie, j'ai compris grace a ton code pourquoi ça ne fonctionnait pas, j'avais oublié de mettre le else.

Encore merci.

Ciao, david