Discussion :

[badege3378]

Bonjour,
Après des recherches sur Internet infructueuses, je me dirige pour la première fois vers le forum.
Dans un userform, j'ai besoin de créer une quarantaine de sub textbox_Enter afin d'appeler un module.
Je souhaitais savoir s'il est possible et si oui par quel moyen d'éviter l'écriture de tous ces sub.

Explications plus détaillées :
J'appelle un formulaire pour enregistrer les différents arrêts maladie (initial et prolongation) d'un salarié.
Sur ce formulaire, une ligne (composé de plusieurs checkbox et textbox) par arrêt.
Sur les 2 premiers textbox, j'appelle un autre formulaire qui contient le calendrier d'où mes :

Code :

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

1
2
3
sub textbox1_Enter
Call BdaCalendrier2.show
end sub

J'ai créé 19 lignes et j'appelle le calendrier sur 2 textbox par ligne (un pour la date de début et un pour la date de fin).

Question : est-ce que je peux éviter l'écriture de ces 38 subs ?

Est-ce que quelqu'un pourrait m'aider ?
Merci par avance pour vos réponses.

Nadège

[edelweisseric]

Bonsoir à tous
Bonsoir badege3378

J'ai un doute sur la compréhension de ton problème, mais si j'ai bon, je me dirigerai vers les modules de classe. Cela reste à vérifier.

Eric

[Didier Gonard]

bonjour,

Question : est-ce que je peux éviter l'écriture de ces 38 subs ?

la question ne se pose pas , il faut les éviter, rien qu'une notion de maintenance....

comme le suggère edelweisseric, oriente-toi vers les modules de classe, il y a des exemples et des tutos sur DVP...
vois ce lien entre-autres : http://www.developpez.net/forums/d96...urs-controles/

cordialement,

Didier

[badege3378]

Bonjour,

Je viens effectivement de m'orienter vers les modules de classe suite à vos recommandations.

J'ai inséré les code suivants suite à un ex. trouvé sur developpez.net

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Dim Obj As Control
Dim Cl As Classe1
 
Set Collect = New Collection
 
For Each Obj In Me.Controls
If TypeOf Obj Is MSForms.TextBox Then
Set Cl = New Classe1
Set Cl.objTxt = Obj
Collect.Add Cl
End If
Next Obj

J'ai créé un module avec juste les infos suivantes

Code :

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

1
2
Option Explicit
Public Collect As Collection

et en dernier mon module de classe Classe1

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Public WithEvents objTxt As MSForms.TextBox
 
Private Sub objTxt_Change()
    objTxt = objTxt.Name
 
 
End Sub

Le code fonctionne, c'est-à-dire qu'il m'affiche le nom du textbox dans le textbox concerné sauf que ce n'est pas ce que je souhaite faire.
Je souhaite éviter d'écrire le code ci-dessous :

Code :

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

1
2
3
4
Private Sub TextBox10_Enter() 'Calendrier Début Arrêt initial'
LeControl = TextBox10.Name
Call Calendrier
End Sub

J'ai bien trouvé un truc pour ne prendre en compte que certains textbox mais je n'arrive pas à l'appliquer.

J'espère que vous pourrez m'aider et merci par avance.

Nadège

[edelweisseric]

Bonjour à tous
Bonjour badege3378

Ce que je te propose.
Pour les TextBox qui appellent, tu mets les TextBox.Tag = "tbox", ce qui te permets d'en avoir d'autres.
Dans l'UserForm :

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
Option Explicit
Dim CtrlGrptext() As New ClLabel
 
Private Sub UserForm_Initialize()
Dim ctrl As Control, Index As Integer
    For Each ctrl In Me.Controls
        If ctrl.Tag = "tbox" Then
            Index = Index + 1
                  ReDim Preserve CtrlGrptext(1 To Index)
            With CtrlGrptext(Index)
                Set .GroupText = ctrl
            End With
        End If
    Next ctrl
End Sub

dans un module de classe nommé : "ClLabel"

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Public WithEvents GroupText As MSForms.TextBox
 
Private Sub GroupText_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "bonjour"   ' à remplacer par ce que tu veux faire
End Sub

Si j'ai bien compris
Eric

[badege3378]

Bonjour Eric,

Je viens de tester ta proposition au moins pour avoir le message Bonjour mais rien ne se passe.
Je n'ai pas le message Bonjour.
Le code ne s'arrête pas dans le module de classe avec un point d'arrêt. Est-ce normal ?
Quand l'userform est affiché à l'écran et que je cherche à obtenir le message : rien.
Peux-tu encore m'aider ?

Merci par avance pour tes réponses ou celles de quelqu'un d'autre.

Nadège