Bonjour
j'ai ca pour un textbox
je vais voir si on peu adapter cela à un combobox
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If (X < 5 Or X > TextBox1.Width - 5) Or (Y < 5 Or Y > TextBox1.Height - 5) Then
Me.TextBox1.BackColor = RGB(255, 255, 255)
Else: Me.TextBox1.BackColor = RGB(224, 120, 243)
End If
End Sub