XL 2013 Remplir lesLabels

maval · 20 Août 2015

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 · 20 Août 2015

Re : Remplir lesLabels

Bonsoir maval,

Une proposition :

VB:

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 · 20 Août 2015

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 · 20 Août 2015

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

Code:

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 · 20 Août 2015

Re : Remplir lesLabels

Bonjour gosselien , tototiti2008 ,

tototiti2008 à dit:
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 · 20 Août 2015

Re : Remplir lesLabels

Re,

Parce que je ne les vide pas, moi ?

Arf, pas vu les 2 virgules

maval · 20 Août 2015

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

XL 2013 Remplir lesLabels

maval

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

gosselien

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

maval

XLDnaute Barbatruc

Discussions similaires