VBA Mettre un mot d'une ListBox dans un label

Fermé
Signaler
Messages postés
12
Date d'inscription
samedi 3 juin 2006
Statut
Membre
Dernière intervention
19 juin 2006
-
Messages postés
12
Date d'inscription
samedi 3 juin 2006
Statut
Membre
Dernière intervention
19 juin 2006
-
Bonjour, c'est encore moi :)
J'ai fait une ListBox avec des noms qui sont prix dans une collone excel, et j'ai créé une commande pour que quand on clique ca affiche un nouveau useform, mais mon soucis si on peut appeller ca comme ca ;-p c'est que j'aimerai savoir si on peut afficher le nom qui a été cliqué dans le listbox dans le nouveau useform en tant que nom de fenetre mais aussi dans un label dans luseform?
si quelqu'un pouvais juste m'indiquer la direction a prendre ca serai super cool.
merci ++

7 réponses

Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 562
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
Messages postés
12
Date d'inscription
samedi 3 juin 2006
Statut
Membre
Dernière intervention
19 juin 2006

encore toi !! :-D
Merci je vais tester ca.
Messages postés
12
Date d'inscription
samedi 3 juin 2006
Statut
Membre
Dernière intervention
19 juin 2006

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 ^^
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 562
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
Messages postés
12
Date d'inscription
samedi 3 juin 2006
Statut
Membre
Dernière intervention
19 juin 2006

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
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 562
Salut

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

lami20j
Messages postés
12
Date d'inscription
samedi 3 juin 2006
Statut
Membre
Dernière intervention
19 juin 2006

merci bien pour ton aide :)