Discussion :

[deedolith]

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é.

[Kestion100]

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

[deedolith]

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 :

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
'// 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 :

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

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 :

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
'// 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

[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.

[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 :

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

TextBox As DynamicTextBox

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

Code :

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

Private Sub UserForm_Initialize()

[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....

[deedolith]

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).

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 ?