1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Private Sub UserForm_Activate()
UserForm1.Caption = "Sélection d'un article"
'======================================================
Worksheets("Feuil1").Activate
ActiveSheet.Cells.Columns.AutoFit ' Pour une Largeur cohérente des Colonnes de la Feuille!
With UserForm1.ListView1: .View = 3: .Gridlines = True: .FullRowSelect = True: .Sorted = True
With .ColumnHeaders
For i = 1 To 10 '"10" étant un nombre forfaitaire de Colonnes renseignées .... On peut l'adapter!
If ActiveSheet.Cells(1, i).Value <> "" Then
.Add , , ActiveSheet.Cells(1, i).Value, (ActiveSheet.Columns(i).ColumnWidth * 4) + 18
'"4" étant issu des tests (Voire Inches et Points), et "+ 18" un correctif de la même origine.
End If
Next i
End With
For i = 2 To ActiveSheet.Cells(65536, 1).End(xlUp).Row
.ListItems.Add , , ActiveSheet.Cells(i, 1).Value
For j = 1 To .ColumnHeaders.Count - 1
If ActiveSheet.Cells(i, j + 1).Value <> "" Then
.ListItems(.ListItems.Count).ListSubItems.Add , , ActiveSheet.Cells(i, j + 1).Value
Else
.ListItems(.ListItems.Count).ListSubItems.Add , , "?" 'Ceci pour une suite où Wind n'aime pas le vide!
End If
Next j
Next i
End With
End Sub |
Partager