VBA Mettre un mot d'une ListBox dans un label

Salut,

à adapter

Private Sub lsta_Click()
    lbla.Caption = lsta.Value 'lbl pour Label
    frma.Caption = lsta.Value 'frm pour UserForm
End Sub


Private Sub UserForm_Initialize()
    lsta.AddItem "kkk" ' lst pour ListBox
End Sub

lami20j

encore toi !! :-D
Merci je vais tester ca.

j'ai beaucoup de mal :/
je ne comprend pas a quoi correspond lbla et lsta
le nom de ma listbox c'est : nom
et le nom de mon caption dans le second useform c'est: nom2
je n'ai pas compris ou on met ces de partie de code.
si il est préférable que je me pende dit le moi ^^

Re,

je ne comprend pas a quoi correspond lbla et lsta

J'utilise des prefixes pour les objets pour pouvoir les identifier plus tard

lst pour ListBox
lbl pour Label
cbo pour ComboBox

et au prefixe j'ajoute un nom

Donc la ListBox (lst) je lui donne le nom a donc => lsta
http://perso.orange.fr/visual.basic/manuelvb.htm

le nom de ma listbox c'est : nom

En ce cas tu dois écrire

 lbla.Caption = nom.Value

Utilise quand même les prefixes

et le nom de mon caption dans le second useform c'est: nom2

Attention caption c'est une propriété et pas un object

l'objet c'est le label et caption c'est ça propriété (donc sur le label on vois ce que contient la caption)

lblA.Caption = "quelque chose"

Le principe est le suivant

objet.Propriete = valeur ' ici la propriété d'objet contiendra valeur

ou

objet.Propriete = objet2.Propriete2 'ici la propriété de objet contiendra la valeur de la propriété d'objet2

lami20j

je crois que dans le principe j'ai compris.
mais j'ai encore quelque soucis.
voila le code qui est dans mon userform1:

Private Sub nom_Click()
    lbla.Caption = nom.Value 'lbl pour Label
    'frma.Caption = nom.Value 'frm pour UserForm
    Unload UserForm1
    UserForm2.Show
    End Sub

Donc ma listbox s'appelle nom comme je te lavais dit, lorsque l'on clique sur un des noms de la liste, ca ouvre le second userform et la je devrai avoir un truc comme ca:

Private Sub UserForm_Initialize()
    'je sais pas quoi mettre la, mon label sappelle lbla si j'ai bien  compris.
      lbla.Caption=.....
End Sub

Merci de ta patience, sinon pour te facilité la vie, y a pas un site pour gros nul sur le vba lol

Salut

http://perso.orange.fr/jml85/Pages/cours_VBA.htm

lami20j

merci bien pour ton aide :)