XL 2013 Modifier le code Multipage

[maval]

Bonjour

J'ai sur un Usf un multipage pour retrouver "Etat civil, la Biographie, la filmographie et récompenses des acteurs".
J'ai un code qui fonctionne très bien pour "Etat civil et la filmographie "mais pas pour la Biographie et les récompenses, toutes les données se trouve sur le classeur, après avoir passe des heures a chercher je n'ai rien trouver.

Mon code est celui-ci:

Private Sub UserForm_Initialize()
Me.CheckBox1.Caption = "Visible"
Me.Frame1.Visible = False
Me.MultiPage1.Visible = False


  Dim LigF As Long
  Dim Rep, NomFic, sheetsUse As String
  Dim i, j As Integer
  Dim tableau() As String

  If choose Then
  sheetsUse = "BdD Noms"
  Rep = "J:\Réalisateur\"
  Else
  sheetsUse = "BdD Acteurs"
  Rep = "J:\acteur\"

  End If


  ' Trouver la ligne correspondante au réalisateur
  ' Avec la feuille contenant les noms
  With Sheets(sheetsUse)
    ' Dans la colonne
    With .Columns("B:B")
      ' En cas d'erreur : nom non trouvée, n continue
      On Error Resume Next
      ' Trouver la ligne contenant le nom
      LigF = 1  ' initialiser
      LigF = .Find(What:=NomRéalisateur, LookIn:=xlValues, LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False).Row
      ' Suivi des erreurs normal
      On Error GoTo 0
    End With
    ' Si pas de ligne trouvée
    If LigF = 1 Then Exit Sub
    LigF = LigF
    ' sinon
    Me.Label5.Caption = NomRéalisateur
    Me.TextBox3.Value = .Range("A" & LigF).Value
    Me.TextBox4.Value = .Range("B" & LigF).Value
    Me.TextBox5.Value = .Range("C" & LigF).Value
    Me.TextBox6.Value = .Range("D" & LigF).Value
    Me.TextBox7.Value = .Range("E" & LigF).Value
    Me.TextBox8.Value = .Range("F" & LigF).Value
    If .Range("G" & LigF).Value <> "" Then
    Me.TextBox9.Value = .Range("G" & LigF).Value
    
    Else
    Me.TextBox9.Value = "Non décédé"
    End If
  End With

NomFic = Label5.Caption

Image1.Visible = True
If Dir(Rep & NomFic & ".jpg") <> "" Then
    Image1.Picture = LoadPicture(Rep & NomFic & ".jpg")
Else
    Image1.Picture = LoadPicture: End If

Dim ObjAnnee, ObjFilm As Control
Dim Cl As Classe1
Dim f, g As Integer
g = 1
Set Collect = New Collection
LigF = LigF

With Sheets("Filmographie")
For i = 2 To 100
If .Cells(LigF, i) <> "" Then
    tableau = Split(.Cells(LigF, i), ",")
        For j = 0 To UBound(tableau)
        Set ObjAnnee = Me.MultiPage1.Pages(2).Controls.Add("forms.TextBox.1") 'Textbox gauche
        With ObjAnnee
            .Name = "TextAnnee" & g
            .Left = 12
            .Top = 1 + (g * 1) * 25
            .Width = 60
            .Height = 18
            .Text = Sheets("Filmographie").Cells(1, i)
            .SpecialEffect = 0
            .BackColor = &H8000000F
            '.ForeColor = &HFFFFFF
        End With

        Set Cl = New Classe1
        Set Cl.TextBox = ObjAnnee
        Collect.Add Cl

        Set ObjFilm = Me.MultiPage1.Pages(2).Controls.Add("forms.TextBox.1") ' Textbox droite
        With ObjFilm
            .Name = "TextFilm" & g
            .Left = 90
            .Top = 1 + (g * 1) * 25
            .Width = 160
            .Height = 18
            .Text = tableau(j)
            .SpecialEffect = 0
            .BackColor = &H8000000F
            '.ForeColor = &HFFFFFF
        End With

        Set Cl = New Classe1
        Set Cl.TextBox = ObjFilm
        Collect.Add Cl
        g = g + 1
    Next
End If
Next

If g > 10 Then
MultiPage1.Pages(2).ScrollHeight = 27 * g
End If
End With

End Sub

Ma recherche et de trouver le code pour faire fonctionner "la filmographie et récompenses".

Je vous remercie d'avance

 

[maval]

Re : Modifier le code Multipage

Bonjour

Personne peut m"aider?

 

[CPk]

Re : Modifier le code Multipage

Bonjour
1. J'ai ouvert le fichier mais je ne sais pas comment faire fonctionner les userform ni lequel est en question.
2. Il y a plusieurs bases de données, est-ce possible de n'en faire qu'une seule afin de centraliser les informations au même endroit?
3. C'est au dela de mes compétences de trouver la cause à la problématique suivante "ca ne marche pas".

Bonne journée

 

[maval]

Re : Modifier le code Multipage

Bonjour CPK

Je te remercie et te souhaite une bonne journée

 

[CPk]

Re : Modifier le code Multipage

Désolé d'être légèrement tatillon.

 

[ChTi160]

Re : Modifier le code Multipage

Bonjour Max
Bonjour le Fil,Le Forum
j'ai comme beaucoup regarde ton message et effectivement pas facile de comprendre ce que tu veux
tu dis :

J'ai un code qui fonctionne très bien pour "Etat civil et la filmographie "mais pas pour la filmographie et les récompenses, toutes les données se trouve sur le classeur, après avoir passe des heures a chercher je n'ai rien trouver

Pourrais tu détailler , ce que tu as et ce que tu veux .
par l'exemple si besoin .
Bonne Journée
Amicalement
JeanMarie

 

[ChTi160]

Re : Modifier le code Multipage

Re Max
Le fil,Le Forum

N'ayant pas de Réponse , je me suis hasardé , à faire ceci , ça ne répond surement pas a la demande , qui n'en était pas une Lol
Traitement des feuilles du Multipage ,Incorporation de l'image d'accueil dans le Multipage.
il faudrait connaitre ce que tu veux faire lors de la sélection des différentes feuilles.
pourquoi l'indication ?

Fiches des Acteurs & Actrices

Comment ce fait et d’où , la sélection de l'acteur ?
à quoi sert le label "Nom"
Bon j’arrête la pour l'instant Lol

Le Fichier : Regarde la pièce jointe Etat civil acteurs Chti160-1.xlsm

Bonne fin de Journée
Amicalement
Jean Marie

 

[maval]

Re : Modifier le code Multipage

Bonsoir Chti160

je m'excuse de ne pas avoir répondu avant. Sur le fichier que j'ai mis" Post#1" tu te rend sur la page "BdD Films" tu click sur un nom d'un film en colonne "B" l'UsF_Films apparaît, dela tu click sur une image d'un acteur, UserForm4 s'ouvre tu te rend dans 'L'état civile du multipage ta as les renseignements de l'acteur si tu te rend sur Filmographie tu à tous les films avec leurs année qu'il a tourné cela fonctionne très bien. J'aimerais ajouter a ce même Usf le code pour avoir la filmographie et les récompenses de l'acteur en question.
En prenant les données sur le même classeur
Pas évidant a expliquer

je te souhaite une bonne soirée et je te remercie encore