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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
| Private Sub CommandButton1_Click()
Dim Ligne As Long
Dim Colonne As String
Ligne = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 'Derniere remplie
Colonne = ActiveCell.SpecialCells(xlCellTypeLastCell).Column 'colonne en nombre
Colonne2 = Chr(ActiveCell.SpecialCells(xlCellTypeLastCell).Column + 64) 'colonne en lettre
Set Plage = [_filterdatabase].Offset(1).Resize(, 1)
Set Plage = Plage.Resize(Plage.Count - 1).SpecialCells(xlCellTypeVisible)
UserForm1.ListView1.ListItems.Clear
With UserForm1.ListView1
'Remplissage de l'entête
With .ColumnHeaders
.Clear
.Add , , "A", 213
.Add , , "B ", 40, lvwColumnRight
.Add , , "C", 50, lvwColumnRight
.Add , , "D", 213
.Add , , "E ", 40, lvwColumnRight
.Add , , "F", 50, lvwColumnRight
.Add , , "G", 213
.Add , , "H ", 40, lvwColumnRight
.Add , , "I", 50, lvwColumnRight
.Add , , "J", 213
.Add , , "K ", 40, lvwColumnRight
.Add , , "L", 50, lvwColumnRight
End With
'Remplissage de la premiere colonne
With .ListItems
For i = 2 To Ligne
If Not Rows(i).Hidden Then
.Add.Text = Sheets(1).Cells(i, 1)
End If
Next i
End With
'Remplissage des autres colonnes
m = 1
For i = 2 To Ligne
If Not Rows(i).Hidden Then
For t = 1 To Colonne
UserForm1.ListView1.ListItems(m).ListSubItems.Add.Text = Sheets(1).Cells(i, t)
Next t
m = m + 1
End If
Next i
End With
End Sub |
