Private Sub alimcombo2()
Dim data1combo As String
[COLOR="Red"]If ListView1.ListItems.Count = 0 Then
For Each £Ctrl In Me.Controls
If TypeName(£Ctrl) = "ComboBox" Then
£coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
Select Case £coln
Case Is > 99
£Ctrl.Clear
End Select
End If
Next £Ctrl
Exit Sub
End If[/COLOR]
flag = True
For Each £Ctrl In Me.Controls
If TypeName(£Ctrl) = "ComboBox" Then
£coln = Val(Replace(£Ctrl.Name, TypeName(£Ctrl), ""))
Select Case £coln
Case Is > 99
data1combo = £Ctrl.Value
Call remplircombobox(Array("Listview1", £coln - 100, £coln))
£Ctrl.Value = data1combo
End Select
End If
Next £Ctrl
flag = False
End Sub