1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub CommandButton1_Click()
Dim Feuil1 As Worksheet
UserForm1.ListBox1.Clear
Dim cellule As Range
Set Feuil1 = ActiveSheet
j = 0
For Each cellule In Feuil1.Range("E3:F30")
On Error Resume Next
UserForm1.ListBox1.ColumnCount = 6
ListBox1.ColumnHeads = True
UserForm1.ListBox1.ColumnWidths = "150;100;100;100;100;100"
UserForm1.ListBox1.AddItem
UserForm1.ListBox1.Column(0, j) = cellule
If cellule.HasFormula Then UserForm1.ListBox1.Column(1, j) = "OK"
If IsNumeric(cellule) = True Then UserForm1.ListBox1.Column(2, j) = "OK"
If cellule <> "" Then UserForm1.ListBox1.Column(3, j) = "OK"
If Not IsError(cellule) Then UserForm1.ListBox1.Column(4, j) = "OK"
If cellule.Interior.ColorIndex = xlColorIndexNone Then UserForm1.ListBox1.Column(5, j) = "OK" Else UserForm1.ListBox1.Column(5, j) = ""
j = j + 1
Next cellule
End Sub |