Public Tablo As Variant, NomTableau
Function showx(Rng As Range)
With UserForm1
.Tablo = Rng.Value
.Show
End With
End Function
Private Sub UserForm_Activate()
Dim X&
With ListView1.ColumnHeaders
.Clear
.Add , , Tablo(1, 1), 50
.Add , , Tablo(1, 2), 80, lvwColumnCenter
.Add , , Tablo(1, 3), 90, lvwColumnCenter
.Add , , Tablo(1, 4), 70, lvwColumnCenter
End With
For x = 2 To UBound(Tablo)
ListView1.ListItems.Add , , Tablo(x, 1)
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Tablo(x, 2)
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Tablo(x, 3)
ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , Tablo(x, 4)
Next x
ListView1.View = lvwReport
ListView1.FullRowSelect = True
End Sub