Discussion :

[kalocou]

Bonjour les forumeuses et les forumeurs
Oui j'aimerais comprendre pourquoi lorsque j'execute le code pas à pas avec F8 tout ce passe comme prévu et lorsque j'enleve le point d'arret plus rien (ou presque) ne va
Je m'explique:
Mon classeur comporte 2 usf en cliquant sur un bouton du 1er on charge le 2eme usf et on remplit certaines listbox de facon identique au 1er.
la derniere listbox (lbsujet) est alimentée par la methode additem
et en fin d'instruction j'indique la selection à afficher lbsujet.listindex=0 pour selectionner le 1er et en principe le seul élément de la liste.
Et c'est là que ca ne marche pas.
En mode "autonome" l'affichage de lbsujet peut comporter plusieurs lignes en fonction du nombre de sujets trouvés et aucun n'est selectionné !
Est ce que quelqu'un serait assez charitable non pas pour résoudre mon pb mais surtout pour m'expliquer ce qui peut le causer ?
Merci

[unparia]

Bonjour
Je "salue" le titre. Je "salue" également un fichier joint que je n'ouvrirai certes pas et ... sors aussitôt de cette "discussion", aussi "charitablement" et "respectueusement" qu'elle a été rédigée.

NB : je suis également un "têtu" et j'aimerais également "comprendre" pourquoi il est si difficile de respecter certaines règles pourtant assez claires.

[kalocou]

Bonjour unparia
Merci pour ta réponse.
En effet je n'avais pas employé le meilleur titre et après avoir relu les règles du forum je comprends mieux l'utilité d'un titre explicatif.
Mais bon ... qui n'a pas un jour enfreint les règles même et surtout involontairement ?

[unparia]

C'est déjà un peu moins mal, Kalocou .
Et le reste ? de quoi s'agit-il et où est ton code (hormis dans une pièce jointe que je n'ouvrirai en aucun cas) ?

[kalocou]

Merci unparia pour ta tolèrance envers un débutant
J'ai souvent lu ici que beaucoup préférait avoir la totalité des fichiers alors j'ai expurgé le mien de tout ce qui n'était pas lié à mon problème et je l'ai mis en pièce jointe.
Mais si tu préfères lire le code, le voici

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Private Sub cb1_Click()
'création du controle
insert_controles
'changement de mode afin d'afficher 2 usf simultanés
Me.Hide
Me.Show 0
usf_verif.Show 0
'invisibilité de certaines options incoherente avec la fonction(élèves absents)
usf_verif.CommandButton1.Visible = False
usf_verif.Label14.Visible = False
usf_verif.obabs.Visible = False
 
'màj de usf_verif
With usf_verif
.OptionButton1.Value = Me.OptionButton1.Value
.OptionButton2.Value = Me.OptionButton2.Value
.OptionButton3.Value = Me.OptionButton3.Value
 
.lbmat = Me.lbmat
.lbdom.List = Me.lbdom.List
.lbdom.ListIndex = Me.lbdom.ListIndex
.lbdis.List = Me.lbdis.List
.lbdis.ListIndex = Me.lbdis.ListIndex
 
End With
 
 
usf_verif.lbsujet.AddItem
usf_verif.lbsujet.List(0, 0) = Me.tbdate.Value
usf_verif.lbsujet.List(0, 1) = Me.tbsujet.Value
usf_verif.lbsujet.List(0, 2) = Sheets("feuil1").Range("l2")
usf_verif.lbsujet.ListIndex = 0
Unload Me
usf_verif.Hide
'mise en mode modal de l'usf
usf_verif.Show 1
End Sub

J'espère que cela te suffira l'imcompréhensible pour moi.
Merci d'avance