Question ComboBox

Bonjour,

Je souhaite changer le fond de ma ComboBox GotFocus en fonction de si elle contient du texte ou non.

J'utilise le cod suivant:

Private Sub ComboBox3_GotFocus()
ComboBox3.BackColor = RGB(255, 255, 0)
If ComboBox3.Value <> "" Then
ComboBox3.BackColor = RGB(192, 192, 192)

Code qui fonctionne parfaitement sur les ComboBox_Change, mais ne se semble pas être accepté par les ComboBox_GotFocus

Quelqu'un pourrait me confirmer ou m'aider à trouver une solution s'il y a

Merci

Bonjour

Pour moi ce code fonctionne

Ce code est appelé à chaque fois que ta ComboBox est sélectionnée

C'est à dire

Tu cliques dans la ComboBox --> appel du code

Tu modifies l'entrée (si texte tu effaces, si rien tu choisis une entrée)

Tu quittes la ComboBox (en cliquant ailleurs dans la page)

Tu cliques dans la ComboBox --> appel du code

Pourquoi tu ne le laisses pas sur Change ?

Bonjour Banzaï

Ca fonctionne avec ComboBox_Change mais pas ou très mal avec ComboBox_GotFocus...

Comme je suis pas une tête, j'ai contourné le problème en créant un userform qui renseigne une TextBox

Je me permet de poser une question concernant la facon d'alimenter ma TextBox.

Mon code contient énormement de "End If"

Pourrais-tu me dire si je l'ai correctement écris.

Je sais le faire quand il s'agit de renseigner une seule TextBox, mais là j'en renseigne deux..

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Feuil1.TextBox1.Value = "BuBu"
Feuil1.TextBox2.Value = "Pascal..eu"
End If
If OptionButton2 = True Then
Feuil1.TextBox1.Value = "WaWa"
Feuil1.TextBox2.Value = "Jeremy..eu"
End If
If OptionButton3 = True Then
Feuil1.TextBox1.Value = "KiKi"
Feuil1.TextBox2.Value = "Philippe..eu"
End If
If OptionButton4 = True Then
Feuil1.TextBox1.Value = "DoDo"
Feuil1.TextBox2.Value = "Cedric..eu"
End If
If OptionButton5 = True Then
Feuil1.TextBox1.Value = "BiBi"
Feuil1.TextBox2.Value = "JC..eu"
End If
Unload Me

End Sub   

Merci Bcp

Bonjour

Comme ce ne sont que des boutons d'option

Une solution parmi d'autre

Private Sub CommandButton1_Click()
  If OptionButton1 = True Then
    Feuil1.TextBox1.Value = "BuBu"
    Feuil1.TextBox2.Value = "Pascal..eu"
  ElseIf OptionButton2 = True Then
    Feuil1.TextBox1.Value = "WaWa"
    Feuil1.TextBox2.Value = "Jeremy..eu"
  ElseIf OptionButton3 = True Then
    Feuil1.TextBox1.Value = "KiKi"
    Feuil1.TextBox2.Value = "Philippe..eu"
  ElseIf OptionButton4 = True Then
    Feuil1.TextBox1.Value = "DoDo"
    Feuil1.TextBox2.Value = "Cedric..eu"
  ElseIf OptionButton5 = True Then
    Feuil1.TextBox1.Value = "BiBi"
    Feuil1.TextBox2.Value = "JC..eu"
  End If
  Unload Me

End Sub

Mais quel rapport entre ce code et la couleur de ta ComboBox ?

.

J'ai abandonné la ComboBox et je l'ai remplacé par une liste qui est constituée d'optionButton et qui se trouve dans un UserForm.

Le tout allimentant deux TextBox qui elles acceptent parfaitement l'option "Backcolor".

Merci pour l'aide une fois de plus