D
David Jonc.
Guest
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
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