Bonsoir à tous,
Suite à l'ajoute du "ComboBox1 = UCase(ComboBox1)" le message combobox s'affiche deux fois
Quelqu'un a-t-il une idée de l'affichage 2 x et la solution pour y remédier ?
Merci d'avance
Suite à l'ajoute du "ComboBox1 = UCase(ComboBox1)" le message combobox s'affiche deux fois
Quelqu'un a-t-il une idée de l'affichage 2 x et la solution pour y remédier ?
Merci d'avance
VB:
Private Sub ComboBox1_Change()
With Sheets("CLIENT")
a = Application.Transpose(.Range("A2:A" & .[A65000].End(xlUp).Row).Value2)
End With
With ComboBox1
Range("C5").Value = .Text
ComboBox1 = UCase(ComboBox1)
If Len(.Text) = 0 Then
.List = a
.ListRows = Application.Min(10, .ListCount)
Else
fl = Filter(a, .Text, 2, 0)
Select Case UBound(fl)
Case -1: MsgBox "Il n'existe aucun client de ce nom !!!", vbInformation, "Information Recherche Client"
Case Else
.List = fl
.ListRows = Application.Min(10, .ListCount)
If UBound(fl) <> 0 Then .DropDown
End Select
End If
End With
End Sub