Private Sub CmdB_Quitter_Click()
Unload Me
End Sub
Private Sub OptB_Accueil_Click()
MultiPage1.Pages(0).Visible = True: MultiPage1.Pages(1).Visible = False: MultiPage1.Pages(2).Visible = False: MultiPage1.Pages(3).Visible = False: MultiPage1.Pages(4).Visible = False
End Sub
Private Sub OptB_Etat_Civil_Click()
MultiPage1.Pages(1).Visible = True: MultiPage1.Pages(0).Visible = False: MultiPage1.Pages(2).Visible = False: MultiPage1.Pages(3).Visible = False: MultiPage1.Pages(4).Visible = False
End Sub
Private Sub OptB_Biographie_Click()
MultiPage1.Pages(2).Visible = True: MultiPage1.Pages(0).Visible = False: MultiPage1.Pages(1).Visible = False: MultiPage1.Pages(3).Visible = False: MultiPage1.Pages(4).Visible = False
End Sub
Private Sub OptB_Filmographie_Click()
MultiPage1.Pages(3).Visible = True: MultiPage1.Pages(0).Visible = False: MultiPage1.Pages(1).Visible = False: MultiPage1.Pages(2).Visible = False: MultiPage1.Pages(4).Visible = False
End Sub
Private Sub OptB_Récompenses_Click()
MultiPage1.Pages(4).Visible = True: MultiPage1.Pages(0).Visible = False: MultiPage1.Pages(1).Visible = False: MultiPage1.Pages(2).Visible = False: MultiPage1.Pages(3).Visible = False
End Sub
'Stop
Private Sub CommandButton3_Click()
With Feuil9
lig = Application.Match(Label5, Feuil9.[B1:B65000], 0)
For k = 1 To 6
.Cells(lig, k) = MultiPage1.Pages(1).Controls("TextBox" & k) 'Métier
Next
.Range("G" & lig) = IIf(TextBox7 = "Non décédé", "", TextBox7)
.Range("H" & lig) = Label14
.Range("B" & lig) = TextBox8
End With
lig = Application.Match(Label5, Feuil12.[A1:A65000], 0)
Feuil12.Cells(lig, 2) = TextBox9
End Sub
Private Sub CommandButton4_Click()
ListBox1.List(ListBox1.ListIndex, 1) = TextBox10
lig = Application.Match(Label5, Feuil14.[A1:A65000], 0)
Feuil14.Cells(lig, ListBox1.ListIndex + 2) = TextBox10
End Sub
Private Sub CommandButton5_Click()
ListBox2.List(ListBox2.ListIndex, 1) = TextBox11
ListBox2.List(ListBox2.ListIndex, 2) = TextBox12
lig = Application.Match(Label5, Feuil13.[A1:A65000], 0)
Feuil13.Cells(lig, ListBox2.ListIndex * 2 + 2) = TextBox11
Feuil13.Cells(lig, ListBox2.ListIndex * 2 + 3) = TextBox12
End Sub
Private Sub ListBox1_Click()
TextBox10 = ListBox1.List(ListBox1.ListIndex, 1)
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
col = ListBox1.ListIndex + 2
lig = Application.Match(Label5, Feuil14.[A1:A65000], 0)
If IsNumeric(lig) Then TextBox10 = Feuil14.Cells(lig, col)
ListBox1.Selected(ListBox1.ListIndex) = Not ListBox1.Selected(ListBox1.ListIndex)
End Sub
Private Sub ListBox2_Click()
TextBox11 = ListBox2.List(ListBox2.ListIndex, 1)
TextBox12 = ListBox2.List(ListBox2.ListIndex, 2)
End Sub
'Active les feuilles par Obption Bouton
Private Sub MultiPage1_Change()
Select Case MultiPage1.Value
Case 0: Feuil1.Activate 'Accueil
Case 1: Feuil9.Activate 'BdD Acteurs
Case 2: Feuil12.Activate
Case 3: Feuil14.Activate
Case 4: Feuil13.Activate 'Récompenses
End Select
End Sub
'Quitter et retourner page d'accueil
Private Sub CommandButton1_Click()
Unload Me
Sheets("Accueil").Activate
End Sub
Private Sub UserForm_Activate()
' Nom de l'acteur sur la barre des titre
UsF_Stars.Caption = " Fiche de L'Acteur de..." & " " & Label5.Caption
' Stop
End Sub
Private Sub UserForm_Initialize()
' Activer la page d'accueil
MultiPage1.Pages(0).Visible = True:
Me.MultiPage1.Value = 0 ' Activer la page d'accueil
'Stop
Dim Rep, NomFic, sheetsUse As String
Dim i, j As Integer
Dim tableau() As String
Me.MultiPage1.Value = 0
If choose Then
sheetsUse = "BdD Noms"
Rep = "J:\Réalisateur\"
Else
sheetsUse = "BdD Acteurs"
Rep = "J:\acteur\"
End If
With Feuil9
' Dans la colonne
' Trouver la ligne correspondante au réalisateur
' Avec la feuille contenant les noms
lig = Application.Match(NomRéalisateur, Feuil9.[B1:B65000], 0)
' Si pas de ligne trouvée
If Not IsNumeric(lig) Then GoTo suite1
Me.Label5.Caption = NomRéalisateur
For k = 1 To 6
MultiPage1.Pages(1).Controls("TextBox" & k) = .Cells(lig, k) 'Métier
Next
If .Range("G" & lig).Value <> "" Then
MultiPage1.Pages(1).TextBox7.Value = .Range("G" & lig).Value 'Décédé le
MultiPage1.Pages(1).Label14.Caption = .Range("h" & lig).Value 'Décédé à l'âge
Else
MultiPage1.Pages(1).TextBox7.Value = "Non décédé"
End If
MultiPage1.Pages(1).TextBox8.Value = .Range("B" & lig).Value 'Nom usuel
MultiPage1.Pages(1).TextBox2.Value = .Range("i" & lig).Value 'Nom usuel
End With
NomFic = Label5.Caption
suite1:
With Feuil12 'biog
'ici remplissage biographie
lig = ""
lig = Application.Match(Label5, .[A1:A65000], 0)
If Not IsNumeric(lig) Then GoTo suite2
MultiPage1.Pages(2).TextBox9 = .Cells(lig, 2)
MultiPage1.Pages(2).TextBox9.SelStart = 0
End With
suite2:
With Feuil14
lig = Application.Match(NomRéalisateur, .[A1:A65000], 0)
If Not IsNumeric(lig) Then GoTo suite3
For k = 2 To 68
ListBox1.AddItem .Cells(1, k)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(lig, k)
Next
End With
suite3:
With Feuil13
lig = Application.Match(NomRéalisateur, .[A1:A65000], 0)
If Not IsNumeric(lig) Then GoTo suite4
i = -1
For k = 2 To 134 Step 2
ListBox2.AddItem .Cells(1, k): i = i + 1
ListBox2.List(i, 1) = .Cells(lig, k)
ListBox2.List(i, 2) = .Cells(lig, k + 1)
Next
End With
suite4:
Image1.Visible = True
If Dir(Rep & NomFic & ".jpg") <> "" Then
Image1.Picture = LoadPicture(Rep & NomFic & ".jpg")
Else
Image1.Picture = LoadPicture: End If
End Sub