Discussion :

[kalocou]

Bon jour le forum et bonne année à tous !

Je poursuis dans ma quête du st graal vba et .....
je trébuche !
Voila j'ai un userform(Me) qui avant de se fermer en lance un autre(usf3) qui a à peu pres les memes controles que le 1er
donc je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub cb1_Click()
 
Load usf3
usf3.OptionButton1.Value = Me.OptionButton1.Value
usf3.OptionButton2.Value = Me.OptionButton2.Value
usf3.OptionButton3.Value = Me.OptionButton3.Value
 
usf3.lbmat.Value = Me.lbmat.Value
 
usf3.lbdom.Value = Me.lbdom.Value
usf3.lbdom.List = Me.lbdom.List
usf3.lbdis.List = Me.lbdis.List
 
usf3.lbdis.Value = Me.lbdis.Value
usf3.lbsujet.AddItem
usf3.lbsujet.List(0, 0) = Me.tbdate.Value
usf3.lbsujet.List(0, 1) = Me.tbsujet.Value
usf3.lbsujet.List(0, 2) = Sheets(1).Range("l2")
 
Unload Me
usf3.Show
End Sub

j'ai une erreur en ligne 12 "impossible de definir la propriété value ...
j'ai essayé avec .list et .text et .listindex c'est pareil

pourtant lorsque usf3 s'ouvre en fin de ma sub il affiche les bonnes entrées sauf que je ne peux pas les récupérer pour les afficher dans une feuille.
Voilà mon souci du jour.
Je suis sur les forums depuis hier et à part m'égarer je n'ai rien trouver qui me renseigne.
Une indication serait bienvenue.
Merci d'avance

[Jean-Philippe André]

Salut,

on utilise le .Value si la liste est monoselectionnable =]
ta liste est-elle multiselection ?

[kalocou]

salut jean phi et merci pour ta réponse.
Oui ma liste est monoselection.
Depuis j'ai modifié mon code
dans mon 1er usf je passe maintenant le focus au controle suivant pendant l'evenement beforeupdate
j'ai gagné une ligne !
l'erreur se produit maintenant sur lbdis
et lorsque usf3 s'ouvre le choix a l'interieur de lbdis n'est pas "en surbrillance"(surligné en bleu) comme dans les controles precedents.
D'où vient ce comportement ?
Merci pour ton aide

[kalocou]

je continue a progresser !
mais tres tres doucement
j'ai changé mon code pour voir les transformations du 2eme usf en direct

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub cb1_Click()
 
insert_controles
Load usf3
usf3.OptionButton1.Value = Me.OptionButton1.Value
usf3.OptionButton2.Value = Me.OptionButton2.Value
usf3.OptionButton3.Value = Me.OptionButton3.Value
 
usf3.lbmat.Value = Me.lbmat.Value
usf3.Show
 
usf3.lbdom.List = Me.lbdom.List
usf3.lbdom.Value = Me.lbdom.Value
usf3.lbdis.List = Me.lbdis.List
usf3.lbdis.Value = Me.lbdis.Value
 
usf3.lbsujet.AddItem
usf3.lbsujet.List(0, 0) = Me.tbdate.Value
usf3.lbsujet.List(0, 1) = Me.tbsujet.Value
usf3.lbsujet.List(0, 2) = Sheets(1).Range("l2")
 
Unload Me
usf3.Show

le controle usf3.lbdis selectionne le meme item que me.lbdis il est bleuté mais a la ligne 16 j'ai toujours usf3.lbdis.value =""