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
30
31
32
33
|
Private Sub UserForm_initialize()
Dim I, J As Integer
Application.ScreenUpdating = False
Call Classement 'classement sur la colonne A
Call Transfer 'debut transfer sur manches colonne du milieu
LabelTitreClassement = Sheets("Classement").Range("A1")
With ListViewResultMatch
.View = lvwReport
.Gridlines = True
End With
With ListViewResultMatch.ColumnHeaders
.Add , , "Ordre", 30
.Add , , "Joueur", 123
.Add , , "Points", 54, lvwColumnCenter
.Add , , "Victoires", 54, lvwColumnCenter
.Add , , "Average", 54, lvwColumnCenter
End With
With ListViewResultMatch
For I = 3 To Sheets("Classement").[A1000].End(xlUp).Row
If Sheets("Classement").Cells(I, 1) <> " " Then
.ListItems.Add = Sheets("Classement").Cells(I, 5)
For J = 1 To 4
.ListItems(I - 2).ListSubItems.Add = Sheets("Classement").Cells(I, J)
Next
End If
Next
End With
Application.ScreenUpdating = True
End Sub |
