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 54 55 56 57 58 59 60 61 62 63 64 65 66 67
|
Private Sub CommandButton1_Click()
Me.Hide
Sheets("Massage").Select
End Sub
Private Sub Massage_Click()
Load Resa_Massage
Resa_Massage.Show
Unload UserForm8
UserForm8.Show
Sheets("Menu").Select
End Sub
Private Sub Retour_Menu_Click()
Sheets("Menu").Select
Unload UserForm8
End Sub
Private Sub TextBox1_Change()
Me.TextBox1 = Sheets("Massage").Range("J2")
End Sub
Private Sub userform_Activate()
Sheets("Massage").Select
Application.DisplayFullScreen = True
TextBox1.Value = Sheets("Massage").Range("J2").Value
With Resa_Massage
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
'Suppression des titres de colonnes
ListView9.ColumnHeaders.Clear
'Alimentation des titres de colonne :
ListView9.ColumnHeaders.Add , , "Mois", ListView9.Width * 0.1, lvwColumnLeft
ListView9.ColumnHeaders.Add , , "Nom", ListView9.Width * 0.17, lvwColumnLeft
ListView9.ColumnHeaders.Add , , "Nº MH", ListView9.Width * 0.06, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Date", ListView9.Width * 0.1, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Type de Massage", ListView9.Width * 0.2, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Réglement", ListView9.Width * 0.12, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Durée", ListView9.Width * 0.1, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Prix", ListView9.Width * 0.06, lvwColumnCenter
ListView9.ColumnHeaders.Add , , "Total", ListView9.Width * 0.09, lvwColumnCenter
'on remplit la listview
With Me.ListView9
.ListItems.Clear
For Each V In Range("a4:a" & Range("a65536").End(xlUp).Row)
x = x + 1
.ListItems.Add , , V.Text
.ListItems(x).ForeColor = V.Font.Color
For j = 1 To 8
.ListItems(x).ListSubItems.Add , , V.Offset(0, j).Text
.ListItems(x).ListSubItems(j).ForeColor = V.Offset(0, j).Font.Color
Next j
Next V
End With
End Sub |
Partager