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
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 10 "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
J'avais déjà mis la même discussion mais je pense que je n'étais au bon endroit.
Veuillez excuser un sénior débutant !!!!

[Theze]

Bonjour,

Ma question va te paraître bête mais pourquoi utiliser deux UserForm si ils sont en tous points identiques ?

[Menhir]

Quelle est la nature de lbdom dans usf3 et dans Me ?

[HopPopPop]

Bonjour à tous,

Et si tu mettais la ligne 11 avant la ligne 10 ?

[kalocou]

Bonjour,

Ma question va te paraître bête mais pourquoi utiliser deux UserForm si ils sont en tous points identiques ?

merci theze de t'interesser à moi !
mes 2 usf ne sont pas absoluments identiques il s ont simplement certais controles en commun