DTPicker

[leonarddecanzio]

J’ai utilisé un contrôle AcriveX contenu dan la barre « boîte à outils contrôles » dans autres contrôles en insérant « Microsoft Date and Time Picker Control ».

Il est possible de choisir dans les propriétés de ce contrôle, dans la catégorie divers, pour visible la valeur « False ».

Après la désactivation du mode création on ne voit plus effectivement le contrôle.
Or si cette possibilité de le rendre invisible existe, c’est certainement qu’à un moment on doit pouvoir le rendre de nouveau visible, sinon il n’aurait pas lieu d’exister. Je souhaiterais le rendre de nouveau visible non pas en activant le mode création et retourner dans les propriétés mais en cliquant sur un autre contrôle (une case à cocher).

En résume, je voudrais que quand je mets la coche dans le CheckBox, le DTPicker devient visible et quand j’enlève la coche dans le CheckBox, le DTPicker devient de nouveau invisible.

Si quelqu’un a une solution, je suis preneur.

 

[Pierrot93]

Re : DTPicker

Bonsoir Leonard

pour des controles présents dans un userform :

Private Sub CheckBox1_Click()
DTPicker1.Visible = CheckBox1.Value
End Sub

bonne soirée
@+

 

[Pierrot93]

Re : DTPicker

Re

a noter, fonctionne aussi sur des controles placés directement sur la feuille, même code à placer dans le module de la feuille concernée...

@+

 

[Guest]

Re : DTPicker

Bonjour,

Private Sub CheckBox1_Click()
With DTPicker1
    .Visible = CheckBox1.Value
    .Refresh
End With
End Sub

A bientôt