Microsoft 365 Liste déroulante : changement de couleurs

[VBA_dev_Anne_Marie]

Bonjour,

Pour changer la couleur dans ma liste déroulante j'applique le code :

Private Sub liste_cible_Click()
 Liste_cible.BackColor = RGB(255, 255, 255)
End Sub

Malheureusement, cette fonction marche quand je clique sur la liste avec une souris.
Quand je fais mon choix directement avec le clavier, la couleur ne change pas.
Auriez-vous des idées comment on peut améliorer ce code ?

Merci beaucoup !

 

[fanch55]

Bonjour,
Si votre listbox est sur la feuille, code à mettre dans celui de la feuille :

Private Sub ListBox1_GotFocus()
    ListBox1.BackColor = vbYellow
    ListBox1.ForeColor = vbRed
End Sub

Private Sub ListBox1_LostFocus()
    ListBox1.BackColor = &H80000005
    ListBox1.ForeColor = &H80000008
End Sub

Si votre listbox est sur un userform, code à mettre dans celui du userform :

Private Sub ListBox1_Enter()
    activecontrol.BackColor = vbYellow
    activecontrol.ForeColor = vbRed
End Sub

Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    activecontrol.BackColor = &H80000005
    activecontrol.ForeColor = &H80000008
End Sub

Nota: pour un combobox, pareil ...

 

[VBA_dev_Anne_Marie]

Bonjour,
Si votre listbox est sur la feuille, code à mettre dans celui de la feuille :

Private Sub ListBox1_GotFocus()
    ListBox1.BackColor = vbYellow
    ListBox1.ForeColor = vbRed
End Sub

Private Sub ListBox1_LostFocus()
    ListBox1.BackColor = &H80000005
    ListBox1.ForeColor = &H80000008
End Sub

Si votre listbox est sur un userform, code à mettre dans celui du userform :

Private Sub ListBox1_Enter()
    activecontrol.BackColor = vbYellow
    activecontrol.ForeColor = vbRed
End Sub

Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    activecontrol.BackColor = &H80000005
    activecontrol.ForeColor = &H80000008
End Sub

Nota: pour un combobox, pareil ...

Merci beaucoup ! Petite question : pourquoi je n'arrive pas à choisir une ligne avec une simple "Entrée", il faut toujours cliquer dans le formulaire ?

 

[fanch55]

Est-ce une listbox ou un combobox ?
dans un userform ?

 

[VBA_dev_Anne_Marie]

Est-ce une listbox ou un combobox ?
dans un userform ?

C'est un combobox sans userform.

 

[fanch55]

A voir

 

[VBA_dev_Anne_Marie]

A voir

Merci. En fait, je constate que l'on ne peut pas valider les données juste avec la touche Entrée, n'est-ce pas ?

 

[fanch55]

Vous avez un Cbx dynamique qui valide dès qu'on saisit qq chose dedans .
Ce que vous voulez finalement, c'est un Cbx qui ne valide que si vous faites entrée ou clic ?

 

[VBA_dev_Anne_Marie]

Vous avez un Cbx dynamique qui valide dès qu'on saisit qq chose dedans .
Ce que vous voulez finalement, c'est un Cbx qui ne valide que si vous faites entrée ou clic ?

Oui, c'est ça. En fait, je me demandais si ça existait. C'était juste pour connaître, sinon ce ComboBox me va parfaitement.

Merci beaucoup !
Bonne journée !

 

[fanch55]

Un Combobox avec un Enter ou un clic