Discussion :

[MichaSarah]

Re-bonjour à tous,
J'ai essayé de trouver une réponse à ma question dans les forum mais sans succès.
Dans un formaire de saisie j'ai des TextBox où je documente des dates. Je voulais essayer d'améliorer la saisie en y ajoutant un calendrier . Mon Formulaire comporte 13 champs de dates et je n'ai pas trouver la solution pour n'utiliser qu'un seul calendrier pour tous les TextBox.
Ce que je souhaite faire est en doublecliquant sur le TextBox le calendrier s'affiche puis en double-cliquant sur la date elle s'inscrit dans le TextBox.


J'ai utilisé le code suivant pour afficher la date choisie dans le TextBox

Code :

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

1
2
3
4
 
Private Sub Calendar_DblClick()
TxtDate.Value = Calendar.Value
End Sub

J'ai ensuite superposé autant de calendrier que de TextBox que j'appelle selon le champs sélectinné.
A t-on la possibilité de codifier pour n'avoir à utiliser qu'un seul calendrier ?

Encore merci
Salutations
MichaSarah

[SilkyRoad]

bonjour,

Un exemple qui utilise un module de classe pour gérer les doubles clic dans les TxtBox et insère la date du Calendar1

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
'--------------------------------------
'à placer dans le module objet du UserForm nommé UserForm1
Option Explicit
 
 
Private Sub UserForm_Initialize()
    Dim Obj As Control
    Dim Cl As Classe1
 
    Set Collect = New Collection
 
    'boucle sur les objets du Usrform
    For Each Obj In Me.Controls
        'verifie s'il s'agit d'un TextBox
        If TypeOf Obj Is MSForms.TextBox Then
            Set Cl = New Classe1
            Set Cl.obtTxt = Obj
            Collect.Add Cl
        End If
    Next Obj
 
End Sub

Code :

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

1
2
3
4
5
6
'--------------------------------------
'dans un module standard
Option Explicit
 
Public Collect As Collection
'--------------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
'--------------------------------------
'dans un module de classe nommé "Classe1"
Option Explicit
 
Public WithEvents obtTxt As MSForms.TextBox
 
'exemple pour gérer l'evenement double clic de l'objet TextBox
Private Sub obtTxt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    obtTxt = UserForm1.Calendar1
End Sub

bon week end
michel

[MichaSarah]

Bonjour SilkyRoad,
Merci pour ton aide c'est ce dont j'avais besoin.

MichaSarah

[chermoun]

Boujours,
Je travail sur une ptt application, je suis pas trot doué dans VBA excel, il s'agit d'un outille pour enregistrer les poches de sang sortie du centre transfusion. je veu utiliser un seul calendrier sur plusieurs texbox et je n'arrive plus, prière de venir à mon aide, je veux aussi ajouter l'heure de livraison sur mon application. vous trouverez ci-joint mon excel.

[NEC14]

Bonjour chermoun et bienvenu,

Il serait préférable d'ouvrir ta propre discussion, celle-ci étant résolue il y a peu de chance que quelqu'un y réponde.
Merci et bon courage
René

[chermoun]

Merci pour directif