Discussion :

[ericdev67]

Bonjour,

Dans un Userform, j'ai des DTpicker. (21). Ils sont à l'état "False", et dans mon USF, j'ai un "CommandButton" et lorsque je clique dessus, j'ai fait (par exemple)

Code :

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

DTpicker3.visible=True

,
mais il ne s'affiche pas....
Pour info, j'ai un DTPicker2 que j'ai copié/collé et renommé en DTpicker3, donc mêmes propriétés (le DTpicker2 s'affiche bien), mais peut-être que le renommage a posé problème....
Il y a une "mémoire" que j'ai oublié de vider ?
et/ou j'ai zappé quelque chose ?

En vous remerciant pour votre aide,

[ericdev67]

Bonjour,

Afin de résoudre mon problème, je suis passé par un autre Userform qui rend visible, et ça fonctionne, je sais pas pourquoi, mais bon....

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 CommandButton1_Click()
'Affichage des lignes
If DTPicker1.Value > DTPicker2.Value Then
MsgBox "La date de fin est inférieure à la date de début d'action....."
Exit Sub
End If
 
 
Fiche_Action_Enr.Controls("DTPicker" & Nbdt).Visible = True
Fiche_Action_Enr.Controls("DTPicker" & Nbdt + 1).Visible = True
Fiche_Action_Enr.Controls("Label" & Nblabel).Visible = True
Fiche_Action_Enr.Controls("Label" & Nblabel + 1).Visible = True
Fiche_Action_Enr.Controls("Label" & Nblabel + 2).Visible = True
Fiche_Action_Enr.Controls("Textbox" & Nbtex).Visible = True
 
Fiche_Action_Enr.Controls("DTPicker" & Nbdt).Value = UserForm1.DTPicker1.Value
Fiche_Action_Enr.Controls("DTPicker" & Nbdt + 1).Value = UserForm1.DTPicker2.Value
Fiche_Action_Enr.Controls("Textbox" & Nbtex).Value = UserForm1.TextBox1.Value
 
 
 
Unload Me
 
End Sub

Merci,
A+ pour de prochaines aventures....