Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:A16], Target) Is Nothing And Target.Count = 1 Then
Me.ComboBox1.List = Sheets("bd").Range("Liste").Value
Me.ComboBox1.ListIndex = -1 'ajouté
Me.ComboBox1.Height = Target.Height + 3
Me.ComboBox1.Width = Target.Width
Me.ComboBox1.Top = Target.Top
Me.ComboBox1.Left = Target.Left
Me.ComboBox1 = Target
Me.ComboBox1.Visible = True
Me.ComboBox1.ListWidth = 300 'ajouté
Me.ComboBox1.Activate
Me.ComboBox1.Font.Size = 14 'ajouté
'If Val(Application.Version) > 10 Then SendKeys "{esc}"
'Me.ComboBox1.DropDown
Else
Me.ComboBox1.Visible = False
End If
End Sub
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1
Me.ComboBox1.Font.Size = ActiveCell.Font.Size 'ajouté
End Sub