Private Sub MODIFBOXNOMCC_Change()
Dim ChoixModifCC As String, Fait As Boolean
ChoixModifCC = UCase(MODIFBOXNOMCC.Value)
If Len(MODIFBOXNOMCC) = 1 Then
MODIFBOXNOMCC.Clear
End If
For li = 3 To [A600].End(xlUp).Row
If Left(Cells(li, 1), 1) = ChoixModifCC Then
MODIFBOXNOMCC.AddItem Cells(li, 1)
End If
Next
[B]If MODIFBOXNOMCC.ListCount = 0 Then
If MODIFBOXNOMCC <> "" Then
MsgBox "Pas de nom commençant par " & ChoixModifCC, vbCritical, "attention"
MODIFBOXNOMCC = ""
End If
Else[/B]
MODIFBOXNOMCC.DropDown
Fait = Not Fait 'pour empêcher un rappel de cette procédure
If Not Fait Then
MODIFBOXNOMCC = ChoixModifCC
MODIFBOXNOMCC.DropDown
Fait = Not Fait
End If
[B]End If[/B]
End Sub