Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'evite bug si multiselection
If Target.Column = 1 Then
With UserForm1
With .ComboBox1
.AddItem Target 'ajout la valeur à la combobox
.ListIndex = .ListCount - 1 'sélectionne la nouvelle entré
End With
.Show
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'evite bug si multiselection
If Target.Column = 1 Then
With UserForm1
.ComboBox1.Value = Target 'sélectionne la nouvelle entré
.Show
End With
End If
End Sub