Créer un textbox et un code textbox clic par userform initialize

Version imprimable

29/10/2022, 21h59
Kestion100

Créer un textbox et un code textbox clic par userform initialize

Bonjour,
Je souhaiterais créer un certain nombre de textbox (qui variera selon les cas) dans un userform.
Je pense utiliser une boucle dans userform initialize mais je souhaiterais aussi déclencher des actions lors des utilisations des textbox et je pensais utiliser textbox clic.
Est il possible donc de créer ces n textbox pas userform initialize en incluant une sorte de textbox n clic?

Je vous remercie du coup de main

Ouais heu .....
1) Prévoir un nombre maximum de contrôles, c'est l'opposé du principe dynamique, et ça gaspille des ressources
2) Ecrire du code qui écrit du code, c'est marrant mais c'est super casse-gueule.
Dans les 2 cas, la maintenance est absolument dégueulasse.

On a de meilleurs outils: Les classes.
L'idée consiste à encapsuler ton contrôle dynamique et ses gestionnaires d'évènements dans une classe, que tu instancieras à la demande.
Il nous faut d'abord une classe:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'// Class DynamicTextBox
'// Classe encapsulant un textbox
Option Explicit
 
Private Form As UserForm    '// reference vers le formulaire parent
 
Private WithEvents TextBox As MSForms.TextBox   '// instance du textbox
                                                '// On oublie pas le mot clef WithEvents pour pouvoir ecrire les gestionnaires d'evennement
 
    '// pseudo-constructeur (pour nous faciliter la vie)
Public Sub Create(ByRef Form As UserForm, ByVal Name As String, ByVal Top As Long)
        '// creation et positionnement du textbox
    Set TextBox = Form.Controls.Add("Forms.TextBox.1", Name, True)
    TextBox.Top = Top
End Sub
 
    '// gestionnaires d'evennements du textbox
Private Sub TextBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    MsgBox "You clicked on " & TextBox.Name
End Sub

Puis, dans un module standard, une fonction utilitaire chargée d'instancier la classe:

Code:

1
2
3
4
5
6
7
8
9
10
'// Module Factory
Option Explicit
 
    '// Fonction qui encapsule l'instanciation de la classe DynamicBox
Public Function Create_TextBox(ByRef Form As UserForm, ByVal Name As String, ByVal Top As Long) As DynamicTextBox
    Dim TextBox As DynamicTextBox
    Set TextBox = New DynamicTextBox
    TextBox.Create Form, Name, Top
    Set Create_TextBox = TextBox
End Function

Enfin, un peu de code dans le formulaire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'// UserForm UserForm1
Option Explicit
 
Private Textboxes As Collection '// collection pour ranger les textbox
 
Private Sub UserForm_Initialize()
    Set Textboxes = New Collection
 
        '// Ajoute 3 textbox dynamiques et les range dans une collection
    Dim i As Integer
    For i = 0 To 2
        Dim TextBox As DynamicTextBox
        Set TextBox = Factory.Create_TextBox(Me, "MyTextBox" & i, i * 20)
        Textboxes.Add TextBox
    Next
End Sub

31/10/2022, 22h34
Kestion100

deedolith, Je crois avoir compris le mécanisme et l'intérêt de ton codemais loupe une marche.
J'ai copié tes codes dans un module de classe, un module standard et dans le userform mais rien ne se passe, je ne vois pas trop comment le déclencher.

PS: petite précision pour l'ordre et le nom des textebox, j'en ai déjà une dans un frame.
31/10/2022, 22h47
Kestion100

Quand de lance à partir d'un module standard userform8.show (c'est le numéro de mon userform), j'obtiens une erreur sur

Code:

TextBox As DynamicTextBox

Erreur de compilation type défini parr l'utilisateur non défini dans

Code:

Private Sub UserForm_Initialize()
31/10/2022, 23h46
Kestion100

Valtrase, ton code a provoqué un plantage complet du fichier "erreur irrémédiable" de mémoire, je n'ai aucune envie de reproduire la chose pour retrouver le nom exact de l'erreur....
01/11/2022, 00h55
deedolith

Citation:

Envoyé par Kestion100

PS: petite précision pour l'ordre et le nom des textebox, j'en ai déjà une dans un frame.

Le nom des contrôles dynamique n'a que peu d'importance, la seule exigeance est qu'il soit unique. Calcul le comme tu en as envie (mon code n'a pour but que démonstration).

Citation:

Envoyé par Kestion100

Quand de lance à partir d'un module standard userform8.show (c'est le numéro de mon userform), j'obtiens une erreur sur TextBox As DynamicTextBox:
Erreur de compilation type défini par l'utilisateur non défini

As-tu nommé tes modules correctement ?
Sinon, peux-tu uploader ton fichier ?
01/11/2022, 08h13
Kestion100

En effet, je n'avais pas précisé userform8_initialize
Avec cette correction, absolument rien ne se passe quand j'ouvre le userform
01/11/2022, 08h19
Kestion100

On est bien d'accord que je copie la partie de ton code classe dans un module de classe, module standard dans un module standard et la fin dans le userform? Et je lance par un userform.show dans un module standard?

Autre chose, comment intégrer le code que je souhaite inscrire dans mes textbox_click à partir de ton code?
01/11/2022, 12h08
deedolith

1 pièce(s) jointe(s)

Citation:

Envoyé par Kestion100

On est bien d'accord que je copie la partie de ton code classe dans un module de classe, module standard dans un module standard et la fin dans le userform? Et je lance par un userform.show dans un module standard?

Oui, et tes modules doivent être nommés correctement.
La classe s'appelle DynamicTextBox.
Le module s'appelle Factory.

Ci joint un fichier exemple:
Pièce jointe 628165

Citation:

Envoyé par Kestion100

Autre chose, comment intégrer le code que je souhaite inscrire dans mes textbox_click à partir de ton code?

Les textbox n'ont pas d'evennement Click, il va te faloir passer par l'evennement MouseDown.
01/11/2022, 12h11
deedolith

Citation:

Envoyé par Kestion100

En effet, je n'avais pas précisé userform8_initialize

Non, c'est UserForm_Initialize, quelque soit le nom le nom du formulaire.
01/11/2022, 13h22
Kestion100

Ok, donc j'ai mal nommé les codes, j'ai copier coller tes codes c'est tout.

Donc je ré essaye avec les bons noms et ça devrait corriger le userform \\ userform8
01/11/2022, 13h23
Kestion100

C'est toujours sub.....()
Pour les classes?
01/11/2022, 14h05
deedolith

Non, ca depend si tu veux retourner une valeur ou non.
01/11/2022, 15h49
Kestion100

Alors là il faut que tu m'aides un peu plus.
Dans notre cas, quel formalisme utiliser? On attend des valeurs dans certains cas et pas dans d'autre me semble t il?
01/11/2022, 16h38
deedolith

Pour faire simple, en VB, il existe 2 type de fonctions:
- Celles qui renvoient une valeur, par exemple:
Function MaFunction() As Long

- Celles qui ne renvoient pas de valeur (aussi appelées procédures), par exemple:
Sub MaProcedure()

Les classes sont codées entre autre, avec des fonction, des procédures.
Une classe représente un objet concret (par exemple: une voiture) ou abstrait (par exemple: un trajet), et définit un certain nombre de services qui s'y rapportent.
Je t'invite à consulter un bon tutoriel sur ce sujet, tellement il est vaste, et les fonctionnalités que les classes apportent sont puissantes.
01/11/2022, 17h13
Kestion100

J'y vois déjà plus clair pour le cas présent
01/11/2022, 18h03
Kestion100

J'ai changé le nom du module de classe dans propriété..........
Je dois aussi changer le nom du module classique de la même façon je suppose???

Interrogation, habituellement, je lance mes initialize depuis des sub dans des modules classiques, je crois comprendre que la tu l'inscrits dans le code "général" du userform (en double cliquant n'important dans le userform). Tu passe sensuite par un show dans un sub de module classique????
01/11/2022, 18h10
Kestion100

Ca y est, c'est bon, j'ai pu créer les 3 textbox. Il restait un initialize userform8...

Maintenant, je vois que ton code mouse down n'a pas d'effet, je dois donc encore le tavailler.
C'est là que j'intégrerai le code que je veux développer pour gérer les action aux remplissages?????
01/11/2022, 19h17
deedolith

Citation:

Envoyé par Kestion100

C'est là que j'intégrerai le code que je veux développer pour gérer les action aux remplissages?????

Précisément.
01/11/2022, 19h37
Kestion100

Alors ok, je comprends.

En revanche, pour mon projet, petite complexité, je souhaiterais inscrire le textbox dans un frame, j'ai essayé de dédoubler ton code entre frame et textbox et bien-sûr, d'utiliser le add du texbox dans le frame mais ça a bloqué sur le module create du textbox.

Je n'ai pas la possibilité immédiate de copier coller le nouveau code

Voilà les codes:
CLASSE:

Code:

DFRAME

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
'// DynamicTextBox
 
 
'// Classe encapsulant un textbox
Option Explicit
 
Private Form As UserForm    '// reference vers le formulaire parent
 
Private WithEvents Frame As MSForms.Frame
   '// instance du textbox
                                                '// On oublie pas le mot clef WithEvents pour pouvoir ecrire les gestionnaires d'evennement
 
    '// pseudo-constructeur (pour nous faciliter la vie)
Public Sub FrCreate(ByRef Form As UserForm, ByVal FrName As String, FrTop As Long, ByVal FrWidth As Long, ByVal frHeight As Long)
        '// creation et positionnement du textbox
    Set Frame = Form.Controls.Add("Forms.Frame.1", FrName, True)
 
    Frame.Top = FrTop
    Frame.Width = FrWidth
    Frame.Height = frHeight
 
 
 
End Sub
 
    '// gestionnaires d'evennements du textbox
'Private Sub TextBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'    MsgBox "You clicked on " & TextBox.Name
'End Sub

Code:

DynamicTextBox

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
'// DynamicTextBox
Public CADRE As String
 
 
'// Classe encapsulant un textbox
'Option Explicit
 
Private Form As UserForm    '// reference vers le formulaire parent
 
Private WithEvents TextBox As MSForms.TextBox   '// instance du textbox
                                                '// On oublie pas le mot clef WithEvents pour pouvoir ecrire les gestionnaires d'evennement
 
    '// pseudo-constructeur (pour nous faciliter la vie)
Public Sub TxCreate(ByRef Form As UserForm, ByVal FrName As String, ByVal TxName As String, TxTop As Long, ByVal TxWidth As Long, ByVal TxHeight As Long)
        '// creation et positionnement du textbox
 
 
MsgBox CADRE
    Set TextBox = Form.Controls(CADRE).Controls.Add("Forms.TextBox.1", TxName, True)
 
 
    TextBox.Top = TxTop
    TextBox.Width = TxWidth
    TextBox.Height = TxHeight
 
End Sub
 
    '// gestionnaires d'evennements du textbox
Private Sub TextBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    MsgBox "You clicked on " & TextBox.Name
End Sub

Modules cassiques

Code:

Factory

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
'// Module Factory
'Option Explicit
Public CADRE As String
 
 
Public Function FrCreate_Frame(ByRef Form As UserForm, ByVal FrName As String, ByVal FrTop As Long, ByVal FrWidth As Long, ByVal frHeight As Long) As DFrame
    Dim Frame As DFrame
    Set Frame = New DFrame
    FrName = CADRE
    Frame.FrCreate Form, FrName, FrTop, FrWidth, frHeight
 
    Set FrCreate_Frame = Frame
 
End Function
 
    '// Fonction qui encapsule l'instanciation de la classe DynamicBox
Public Function TxCreate_TextBox(ByRef Form As UserForm, ByVal FrName As String, ByVal TxName As String, ByVal TxTop As Long, ByVal TxWidth As Long, ByVal TxHeight As Long) As DynamicTextBox
 
    MsgBox CADRE
 
 
    Dim TextBox As DynamicTextBox
 
    Set TextBox = New DynamicTextBox
 
    TextBox.TxCreate Form, FrName, TxName, TxTop, TxWidth, TxHeight
 
    Set TxCreate_TextBox = TextBox
End Function

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
31
32
33
34
35
36
37
'// UserForm UserForm1
'Option Explicit
Public CADRE As String
Private Textboxes As Collection '// collection pour ranger les textbox
Private Frams As Collection '// collection pour ranger les textbox
 
 
Public Sub UserForm_Initialize()
 
Userform8.Show 0
 
    Set Textboxes = New Collection
    Set Frams = New Collection
 
        '// Ajoute 3 textbox dynamiques et les range dans une collection
    Dim i As Integer
    For i = 0 To 2
        Dim TextBox As DynamicTextBox, Frame As DFrame
 
        CADRE = "MyFrame" & i + 3
        Set Frame = Factory.FrCreate_Frame(Me, CADRE, i * 20, 80, 80)
        Frams.Add Frame
'     Next i
MsgBox CADRE
'     For j = 0 To 2
        'Form.Controls(CADRE).Controls.Add
        Set TextBox = Factory.TxCreate_TextBox(Me, CADRE, "MyTextBox" & i, i * 20, 20, 20)
        Textboxes.Add TextBox
    Next i
End Sub
 
 
 
 
Private Sub UserForm_Click()
 
End Sub

Donc le problème que j'ai:
J'ai déjà deux frame dans mon userform, j'essaie de différencier en passant par

Code:

CADRE = "MyFrame" & i + 3

pour aller chercher le troisième cadre:

Code:

Set TextBox = Form.Controls(CADRE).Controls.Add("Forms.TextBox.1", TxName, True)

mais la valeur de

Code:

CADRE

ne suit pas les passages de code et dans

Code:

Set TextBox = Form.Controls(CADRE).Controls.Add("Forms.TextBox.1", TxName, True)

Code:

CADRE

= "" et la textobox s'intègre dansmon frame n°1......pas dans le frame n°3

C'est OK avec:

Code:

1
2
3
        CADRE = "MyFrame" & i + 3
 
        ThisWorkbook.Names.Add "CADRE", RefersTo:=CADRE, Visible:=False

Avec quelques modifications, on peut l'adapter avec n'importe quel conteneur susceptible d'accueillir des contrôles dynamique (formulaire, frame, multipage ect ..).

Le probleme est que les conteneurs ne sont pas de même type, ni du même type de base, on est donc obligé d'utiliser un type générique (Object) qui offre beaucoup moins de garanties.
Pour pallier à cela, on va utiliser une assertion:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'// Class DynamicTextBox
'// Classe encapsulant un textbox
Option Explicit
 
Private WithEvents mTextBox As MSForms.TextBox   '// instance du textbox
                                                 '// On oublie pas le mot clef WithEvents pour pouvoir ecrire les gestionnaires d'evennement
 
    '// pseudo-constructeur (pour nous faciliter la vie)
Public Sub Create(ByRef Container As Object, ByVal Name As String, ByVal Top As Long)
        '// creation et positionnement du textbox
    Set mTextBox = Container.Controls.Add("Forms.TextBox.1", Name, True)
    mTextBox.Top = Top
End Sub
 
    '// gestionnaires d'evennements du textbox
Private Sub mTextBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    MsgBox "You clicked on " & mTextBox.Name
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
'// Module Factory
Option Explicit
 
    '// Fonction qui encapsule l'instanciation de la classe DynamicBox
Public Function Create_TextBox(ByRef Container As Object, ByVal Name As String, ByVal Top As Long) As DynamicTextBox
    Debug.Assert TypeOf Container Is UserForm Or TypeOf Container Is Control    '// Assertion pour garantir le type de Container
 
    Dim TextBox As DynamicTextBox
    Set TextBox = New DynamicTextBox
    TextBox.Create Container, Name, Top
    Set Create_TextBox = TextBox
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'// UserForm UserForm1
Option Explicit
 
Private Textboxes As Collection '// collection pour ranger les textbox
 
Private Sub UserForm_Initialize()
    Set Textboxes = New Collection
 
        '// Ajoute 3 textbox dynamiques et les range dans une collection
    Dim i As Integer
    For i = 0 To 2
        Dim TextBox As DynamicTextBox
        Set TextBox = Factory.Create_TextBox(Frame1, "MyTextBox" & i, i * 20)
        Textboxes.Add TextBox
    Next
End Sub

01/11/2022, 22h08
deedolith

@Kestion100:
Ton code est peut être fonctionnel, mais il est très moche.
Indexer les contrôles par leur nom plutôt que de passer par des références, c'est source d'erreur, qui ne seront pas détectées à la compilation, et aucun garde-fou ne t'en protègeras.

Tu peux penser que dans un petit projet ce n'est pas grave, mais dans un projet plus conséquent, c'est une source de bug très difficile à détecter qui te fera passer des nuits blanches.
Autant prendre les bonnes habitudes tous de suite: Privilégie les références.

A propos, abandonne la notification hongroise, d'une part les types de donnée ne sont utiles que pour le compilateur, d'autre part ça diminue la lisibilité. (FrCreate ça veut dire quoi ? France Create ?)
Un bon code source doit avant tout être lisible, produire le comportement escompté n'arrive qu'en seconde position.
Bref, la notation hongroise, c'est de la M**** en branche qui n'apporte rien de bon.

Tu n'as pas intégré le concept de formulaire, c'est une classe, et tu confond également la portée des variables
D'un côté CADRE est une variable membre du formulaire, qui n'existe que lorsque le formulaire est instancié, et d'autre part tu as une variable globale CADRE qui n'a rien à voir avec le formulaire
Les variables globales, c'est le mal, n'en utilise que quand tu as une raison valable (ici, tu n'en as pas).
01/11/2022, 22h30
Kestion100

Je serais peut être voir certainement ok avec toi mais il faut que tu éclaire ma lanterne: notation hongroise?
01/11/2022, 22h43
deedolith

Citation:

Envoyé par Kestion100

Je serais peut être voir certainement ok avec toi mais il faut que tu éclaire ma lanterne: notation hongroise?

Google est ton ami: https://fr.wikipedia.org/wiki/Notation_hongroise
Cette notation avait du sens lorsque notre seul outil de développement était un simple éditeur texte, mais depuis l'avènement des interfaces graphiques (il y a au moins 30 ans) les environnements de développement (IDE) offrent suffisamment de fonctionnalités pour rendre cette pratique obsolète.
Oublie cette pratique issue du crétacé.
02/11/2022, 12h00
Kestion100

Dernière précision, la finalité serait de modifier la valeur d'une autre textbox fixe par la somme de tous ces textbox dynamiques à chaque modification de la valeur de l'un de ces textbox dynamiques.

Je comprends parfaitement ton discours. N'ayant pas du tout une formation ni même un emploi d'informaticien, j'apprends sur le tas notamment grace aux explications fournies dans ce forum qui devrait être remboursé par la sécu. Mais mes possibilités de mobilisations de temps ne me permet pas d'un prime abord de développer un code ex anté mais je chercher toujours des solutions poir moderniser, systématiser, automatiser, accélérer les tâches des services dans lesquels je travaille grace à cette boîte à outils sans fond qu'est Excel, aussi grace au VBA.

Merci pour ton aide orienté explications et non seulement solution!!!!
02/11/2022, 16h28
deedolith

Je pense qu'il faudra que tu investisses un minimum de temps personnel sur l'apprentissage des bonnes pratiques et du langage.

Avoir recours aux forums, c'est bien mais:
1) C'est chronophage.
2) Les solutions proposées ne sont pas toujours pédagogiques, précise (ça dépend des informations que tu donnes au départ) ou maintenable (ça dépend du niveau des intervenants).
07/11/2022, 14h34
Kestion100

En tout cas, je suis dépatouillé de mon blocage pour l'instant. MERCI