EXCEL VBA - Comment éviter si possible de créer sub textbox_Enter pour une quarantaine de Textbox

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:

---

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

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

bonjour,

Citation:

---

Envoyé par badege3378

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

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:

---

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:

---

1 2	Option Explicit Public Collect As Collection

---

et en dernier mon module de classe Classe1

Code:

---

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:

---

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

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:

---

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:

---

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

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

Rebonjour Eric,

A force d'obstination et de recherches d'ex. sur les forums, j'y suis enfin arrivée et je pense que je m'endormirai moins bête ce soir ayant compris un petit peu le fonctionnement des modules de classe.
Voici les extraits de mes codes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Initialize() Dim Nb As Integer, Ctrl As Control   Nb = 0 'Récupère tous les textbox du formulaire qui appartiennent à la nouvelle classe de boutons créée (définit tous les txtbox concernés 10-11-21-22 ...) For Each Ctrl In Me.Controls If Ctrl.Tag = "tbox" Then Nb = Nb + 1 ReDim Preserve Boutons(1 To Nb) Set Boutons(Nb).groupebouton = Ctrl End If Next Ctrl

---

Code:

---

1 2	avec bien sûr en en-tête de mon formulaire Dim Boutons() As New CalendTxt

---

J'ai créé un calendrier dans un autre formulaire intitulé Form1.

Premier module de classe intitulé CalendTxt

Code:

---

1 2 3 4

Public WithEvents groupebouton As MSForms.TextBox Private Sub groupebouton_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Set CClasse = New Classe1 End Sub

---

2ème module de classe intitulé Classe1

Code:

---

1 2 3 4 5 6 7

Option Explicit Private Feuil As Form1   Private Sub Class_Initialize() Set Feuil = New Form1 Feuil.Show End Sub

---

Il est peut-être possible de mieux faire mais en tout cas c'est exactement ce que je souhaitais soit un seul code pour tous mes textbox concernés.

Merci beaucoup pour ton aide :D

Nadège

bonjour a tous

si tu avais fait un peu de recherche sur les contributions tu aurais trouvé mon fichier effet mouse sur les boutons

je me suis inspiré de ce fichier pour t'en faire un qui pourrais t'intéresser

il te suffit de faire un copier coller

tout d'abord dans le code du userform tu va mettre

Code:

---

1 2 3 4

Private Sub UserForm_Activate() classification_form Me End Sub

---

comme tu peut le voir rien de compliqué
ensuite dans un module standard tu va mettre ceci:
cette macro va intégrer les commandbuttons , les textboxs et meme l'userform

Code:

---

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 28 29 30

Option Explicit Public bouton() As New classe_userform 'pour instancier la classe "Mesboutons"pour les bouton Public texto() As New classe_userform 'pour instancier la classe "Mesboutons" pour les textboxs Public monform() As New classe_userform 'pour instancier la classe "Mesboutons" pour le userform Dim ctrl As Object Public usf Sub classification_form(maform) Dim e As Long, a As Long For Each ctrl In maform.Controls On Error Resume Next ' on integre les commandbutton dans la classe If TypeName(ctrl) = "CommandButton" Then e = e + 1 'on incremente la variable 'on memorise la collection des boutons ReDim Preserve bouton(1 To e) Set bouton(e).GroupeBouton = ctrl   ' on integre les textboxs dans la classe ElseIf TypeName(ctrl) = "TextBox" Then a = a + 1 'on incremente la variable 'on memorise la collection des boutons ReDim Preserve texto(1 To a) Set texto(a).Groupetexto = ctrl End If Next 'on va intégrer le userform dans la classe, la classe gère ra aussi ces évènements ReDim Preserve monform(1) Set monform(1).formica = maform End Sub

---

et maintenant dans un module classe nommé"classe_userform"
tu va metre ceci:

Code:

---

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 28 29 30 31 32 33 34 35 36

'nom de la classe "classe_userform" 'cette classe regroupe le userform,les commandbuttons,TextBox Public WithEvents formica As UserForm Public WithEvents GroupeBouton As MSForms.CommandButton Public WithEvents Groupetexto As MSForms.TextBox ' on a tagué les bouton avant bien sur Private Sub GroupeBouton_Click() If GroupeBouton.Tag = "cliquable" Then 'si le tag correspond a ce que tu veux faire ceci:::: MsgBox "ce bouton est cliquable" Else 'si le tag ne correspond pas a ce que tu veux faire cela:::: MsgBox "ce bouton n'est pas cliquable" End If End Sub   Private Sub formica_Click() MsgBox " coucou c'est moi le userform" End Sub   Private Sub formica_Layout() usf.Caption = usf.Left End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Set formica = Nothing End Sub   Private Sub Groupetexto_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case "13" 'si c'est la touche entré MsgBox "vous avez appuyé sur la touche " & KeyCode & vbCrLf & "cela correspond a la touche Entré" Case Else 'si c'est une toute autre touche MsgBox "vous avez appuyé sur la touche " & KeyCode & vbCrLf & "cela correspond a la lettre " & Chr(KeyCode) End Select End Sub

---

resultat la classe gère le userform,les boutons et les textboxs
regarde particulièrement comment je peut gérer la fonction d'une touche en fonction de son integer (return integer) ,keycode ou keyascii) le tout dans un select case
exactement ce dont tu a besoins

Voila c'é bo la vie
au plaisir

Merci pour ton aide, je vais tester tout ça.