Discussion :

[dodo28]

Bonjour le forum
j ai posé sur un userform 2 DtPicker. A l'ouverture de l'UF les DT picker sont bien visibles. des optionButtons me permette de masquer ou afficher ces Dtpicker. Mais quand je clique pour les faire reapparaitre, il reste comme masquer il faut que je les cherche a coup de clic de souris sur l'UF pour les faire reapparaitre en partie. ca doit etre un probleme d'affichage. Avez vous une astuce pour eviter ce genre de probleme?
merci pour votre aide

[mercatog]

Code :

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

1
2
Me.DTPicker1.Visible = True
Me.Repaint

[dodo28]

merci beaucoup Mercatog
Ca marche

[ucfoutu]

Bonjour,

En dehors du fait que je comprends toujours vraiment très mal ce qui peut conduire à utiliser plusieurs contrôles DTPicker pour y stocker des données qui devraient l'être (en utilisant toutes le même un seul et unique contrôle DtPicker) dans des contrôles moins gourmands (chacun d'eux) .... (mais c'est là ton affaire, ma foi ....
Ce que tu écris ici :

pour les faire reapparaitre en partie

donne à penser que d'autres traitement viennent gêner, en effet, l'affichage...
Pense à utiliser DoEvents
Pense également (si vraiment nécessaire) à rafraichir l'affichage

[dodo28]

merci pour tes conseils

mon dtpicker1 rentre une date de rentrée et le dtpicker2 rentre une date de sortie sur une feuille excel.

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
Private Sub Co_ValiderDate_Click()
 
        With Sheets("stock modifiable")
 
.Cells(1, 9) = Me.DTP__Date1
.Cells(1, 11) = Me.DTP__Date2
'la rentrée des dates sur la feuille excel modifie les valeurs des cellules selon une sommeprod
If Op_Distri = True Then
 
'ce sont des label
    Me.La_12v = .Cells(2, 3)
    Me.La_cordelette = .Cells(12, 3)
    Me.La_filac = .Cells(11, 3)
    Me.La_iso12 = .Cells(14, 3)
  '................etc
 
ElseIf Op_RentréTempo = True Then
 
    Me.La_12v = .Cells(2, 4)
    Me.La_cordelette = .Cells(12, 4)
    Me.La_filac = .Cells(11, 4)
    Me.La_iso12 = .Cells(14, 4)
    '.............etc
 
End If
        End With
End Sub

et mon code qui rend visible les dtpickers

Code :

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

1
2
3
4
5
6
7
Private Sub Op_Distri_Click()
Me.DTP__Date1.Visible = True
Me.Repaint
Me.DTP__Date2.Visible = True
Me.Repaint
Co_ValiderDate.Visible = True
End Sub

avec la fonction repaint ca marche trés bien.
moi qui penser que cela etait pas trop mal,
j accepte tous bons conseils avec plaisir
merci