Private Sub userform_initialize()
Me.CommandButton1.Enabled = False
Me.CommandButton2.Enabled = False
Me.CommandButton3.Enabled = False
Me.Frame2.Visible = False
Me.Label12.Visible = False
With ListView1
With .ColumnHeaders
.Clear
'.Add , , "Col", 20
.Add , , "N°", 20
.Add , , "Titre du Film", 120
.Add , , "Titre en français", 120
.Add , , "Date de Sortie", 60
.Add , , "Acteurs", 190
.Add , , "Genre", 50
.Add , , "Nationalité", 70
.Add , , "Année", 40
.Add , , "Durée", 60
.Add , , "Critique Presse", 60
.Add , , "Critique Public", 60
.Add , , "Réalisateur", 80
End With
.FullRowSelect = True 'Permet le sélection de toute la ligne
.MultiSelect = True
.View = lvwReport 'Affichage en mode Rapport
End With
ListView1.Gridlines = True 'Affichage d'un quadrillage
appel
fin:
'Nombre de lignes
Lbl_Info.Caption = "Résultat du Filtre : " & ListView1.ListItems.Count - 1 & " Film(s) enregistré" & IIf(ListView1.ListItems.Count = 1, "", "s.")
'Stop
End Sub
Sub appel()
With ListView1
Sheets("Données").Activate
For i = 2 To Range("C65536").End(xlUp).Row
.ListItems.Add , , Cells(i, 1)
For k = 2 To 12 ' Nombre Item dans la Listview
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(i, k), , lvwColumnCenter
Next
'.ListItems(.ListItems.Count).ListSubItems.Add , , i, , lvwColumnCenter
Next
End With
fin:
End Sub
Private Sub listview1_Click()
Dim Nl2 As Long
' Recherche du film et positionnement sur la ligne dans la feuille
Set c = [B:B].Find(TextBox2, , , 1)
Application.GoTo Cells(c.Row, 1), 1
'With Worksheets("Données")
If OptionButton2 Then
Me.Frame2.Visible = True
Me.CommandButton3.Enabled = False
Me.CommandButton2.Enabled = True
Me.CommandButton1.Enabled = False
Me.Frame4.Visible = True 'False
Me.ListView1.MultiSelect = False
End If
If OptionButton3 Then
Me.Frame2.Visible = True
Me.CommandButton3.Enabled = False
Me.CommandButton2.Enabled = False
Me.CommandButton1.Enabled = True
Me.Frame4.Visible = True 'False
Me.ListView1.MultiSelect = False
End If
Dim i As Integer
flag = 1
With ListView1
'Stop
ligne = .SelectedItem.Index + 1
TextBox1 = .SelectedItem
TextBox2 = .SelectedItem.ListSubItems(1)
TextBox3 = .SelectedItem.ListSubItems(2)
TextBox4 = .SelectedItem.ListSubItems(3)
TextBox5 = .SelectedItem.ListSubItems(4)
TextBox6 = .SelectedItem.ListSubItems(5)
TextBox7 = .SelectedItem.ListSubItems(6)
TextBox8 = .SelectedItem.ListSubItems(7)
TextBox9 = .SelectedItem.ListSubItems(8)
TextBox10 = .SelectedItem.ListSubItems(9)
TextBox11 = .SelectedItem.ListSubItems(10)
TextBox12.Value = TextBox2.Text
TextBox13.Value = TextBox6.Text
TextBox14.Value = TextBox4.Text
TextBox15.Value = TextBox5.Text
' Insertion de l'affiche du film
On Error GoTo Erreur 'si erreur aller à fin
Image = TextBox2.Value
Image1.Picture = LoadPicture("J:\Covers\" & Image & ".jpg")
Exit Sub ' ici on sort si pas d'erreur
Erreur: 'ici c'est l'image par défaut qui s'affiche en cas d'erreur
Image1.Picture = LoadPicture("J:\Covers\WarnerBross.jpg")
Err.Clear ' Efface les champs d'erreur
End With
Set c = [B:B].Find(TextBox2, , , 1)
Application.GoTo Cells(1, 3), 1
flag = 0
End Sub