XL 2013 Remplir lesLabels

[maval]

Bonjour,

J'ai sur une feuille la description de film. Dans la colonne "E" il se trouve les noms d'acteur de la façon suivante
"Jean-Paul Belmondo, Alain Delon, Vanessa Paradis" j'aimerai que sur mon Userform suite au choix de ma combobox les noms d'acteur se trouvent dans les labels correspondant.
Ci joint mon fichier avec exemple

Je vous remercie d'avance

 

[mapomme]

Re : Remplir lesLabels

Bonsoir maval,

Une proposition :

Private Sub TextBox5_Change()
Dim t, i&
  t = Split(TextBox5 & ",,", ",")
  For i = 0 To 2: Me.Controls("Label" & 426 + i) = Trim(t(i)): Next i
End Sub

 

[gosselien]

Re : Remplir lesLabels

Bonjour le forum, maval,

ceci devrait aller (pour 3 acteurs)
Private Sub Combobox1_Click()
Dim lign As Long
If ComboBox1.Value <> "" Then
lign = ComboBox1.ListIndex + 2
TextBox2.Value = Range("B" & lign).Value
TextBox5.Value = Range("E" & lign).Value
TextBox12.Value = Range("L" & lign).Value
noms = Range("E" & lign).Value
aa = Split(noms, ",")
Lb1 = aa(0): Lb2 = aa(1): Lb3 = aa(2) ' ( LB1-LB2-LB3 étant le nom donné aux 3 labels du bas)
End If
End Sub

oupssss, <> de mapomme que je salue

 

[tototiti2008]

Re : Remplir lesLabels

Bonjour maval, Bonjour tapomme ,

nettement moins optimisé mais je vide les label, moi
des fois qu'il y ait qu'un acteur... hum

Private Sub Combobox1_Click()

Dim lign As Long, Act


    If ComboBox1.Value <> "" Then
        
        lign = ComboBox1.ListIndex + 2
        TextBox2.Value = Range("B" & lign).Value
        TextBox5.Value = Range("E" & lign).Value
        TextBox12.Value = Range("L" & lign).Value
        Label429.Caption = Range("L" & lign).Value
        Act = Split(Range("E" & lign).Value, ",")
        Label426.Caption = Trim(Act(0))
        If UBound(Act) > 0 Then Label427.Caption = Trim(Act(1)) Else Label427.Caption = ""
        If UBound(Act) > 1 Then Label428.Caption = Trim(Act(2)) Else Label428.Caption = ""
    End If
    
End Sub

Bing Bonjour gosselien

 

[mapomme]

Re : Remplir lesLabels

Bonjour gosselien , tototiti2008 ,

Bonjour maval, Bonjour tapomme ,
nettement moins optimisé mais je vide les label, moi
des fois qu'il y ait qu'un acteur... hum

Parce que je ne les vide pas, moi ?

Un joyeux salut à tous les deux

 

[tototiti2008]

Re : Remplir lesLabels

Re,

Parce que je ne les vide pas, moi ?

Arf, pas vu les 2 virgules

 

[maval]

Re : Remplir lesLabels

Bonsoir, gosselien , tototiti2008 ,Mapomme,

Je vous remercie beaucoup cela est nickel, si je peut user de votre gentillesse j'aimerai remplir les images 1, 2, et 3 sur l'userform en fonction des noms sur les labels en sachant que le chemin des photos est "J:\Réalisateur\"

Je vous remercie d'avance