Este fórum está sendo desativado

[JCabral]

Boa tarde

Estou com dificuldade em mudar a Backcolor de uma ListBox em função do item clickado, ou seja gostaria de mudar a ListBox.BackColor conforme mudasse o valor escolhido da listbox.

Será que não é possível mudar a Backcolor de uma listbox quando o valor que determina essa mudança é função do valor da própria listBox?
Deixo exemplo com o código que acho correto mas que não funciona.

Agradeço ajudo
Jorge Cabral

[osvaldomp]

substitua

Código: Selecionar todos

Private Sub ListBox1_Click()

por

Código: Selecionar todos

Private Sub ListBox1_AfterUpdate()

[JCabral]

Osvaldo

Quando seleciono o primeiro item da ListBox ele não coloca a barra azul (item selecionado) mas só no primeiro item, em todos os outros o item clickado fica com a barra azul de selecionado, qual a razão disso acontecer? Tem solução?

Obrigado

[osvaldomp]

... qual a razão disso acontecer? Tem solução?

Disponibilize nova amostra do seu arquivo Excel com o código que não está funcionando corretamente

[JCabral]

Deixo aqui o arquivo com a alteração sugerida, passar

Código: Selecionar todos

Private Sub ListBox1_Click()

para

Código: Selecionar todos

Private Sub ListBox1_AfterUpdate()

O problema só acontece ao selecionar o primeiro item da ListBox, ou seja o item não fica selecionado (azul).

[osvaldomp]

Fiz várias tentativas e pesquisas e não consegui resolver. Me parece um "bug" do VBA.
O primeiro item só é pintado de azul após um segundo clique sobre ele.

[JCabral]

Exatamente, é esse o problema.