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 68 69 70 71 72 73 74 75
| Code Visual Basic :
Private Sub CommandButton1_Click()
Me.Hide
Sheets("Menu").Select
End Sub
Private Sub Barbecue_Click()
Load Barbecues
Barbecues.Show
Unload UserForm1
UserForm1.Show
Sheets("Menu").Select
End Sub
Private Sub Retour_Menu_Click()
Sheets("Menu").Select
Range("P5").Select
Application.DisplayFormulaBar = False
Unload UserForm1
End Sub
Private Sub TextBox1_Change()
Me.TextBox1 = Sheets("Barbecue").Range("I2")
End Sub
Private Sub userform_activate()
Sheets("Barbecue").Select
Application.DisplayFullScreen = True
TextBox1.Value = Sheets("Barbecue").Range("I2").Value
With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
'Suppression des titres de colonnes
ListView1.ColumnHeaders.Clear
'Alimentation des titres de colonne :
ListView1.ColumnHeaders.Add , , "Mois", ListView1.Width * 0.1, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Nom", ListView1.Width * 0.22, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Nº MobilHome", ListView1.Width * 0.15, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Duree", ListView1.Width * 0.1, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Reglement", ListView1.Width * 0.12, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Prix Location", ListView1.Width * 0.13, lvwColumnLeft
ListView1.ColumnHeaders.Add , , "Total", ListView1.Width * 0.08, lvwColumnRight
ListView1.ColumnHeaders.Add , , "Caution", ListView1.Width * 0.1, lvwColumnCenter
'on remplit la listview
With Me.ListView1
.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