Récupération de TextBox dynamique

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous !! Je tiens à préciser que je suis débutant en la matière !

voici l'idée: je souhaite faire un outil qui répertorie des compteurs d'eau. Chaque compteurs pouvant posséder des sous compteurs, je travail donc avec des formes dynamique !!

voici mon problème: Lorsque je génère des textbox en dynamique (TB_N1), je souhaite récupérer le nombre entré par l'utilisateur dans chacune des textBox et les mettre dans un tableau (TableauCompteur1). Sachant que j'ai déjà fais mes recherches, et j'ai trouvé un code permettant de récupérer le contenu de textBox dynamiques mais suite à un appuie sur un bouton, sauf qu'ici je souhaite le faire " en live".
Voici mon code dans le userForm, sans la partie " control des TextBox" cela compile, mais avec non!

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
 
Dim TB As Control
Dim LBL As MSForms.Label
Dim FRM As MSForms.Frame
Dim TableauCompteur1(0 To 50, 0 To 50) As Integer
 
Dim CB As MSForms.CheckBox
 
Dim PosX As Long
Dim PosY As Long
 PosX = 5
 PosY = 40
 
 
Dim i As Integer
 
 
  ' Creation du cadre affichant les compteurs principaux
    Set FRM = Me.Controls.Add("forms.frame.1")
    With FRM
        .Top = PosY
        .Left = 0
        .Height = 100
        .Width = 450
        .Caption = "Niveau 1-Entrez le nombre de sous compteurs de niveau 2 pour chaque compteurs de niveau 1"
        .Visible = True
   End With
 
 
 
For i = 1 To TB_COMPTEURS_PRINCIPAUX.Value
 
    ' Placement dynamique des noms de compteurs de niveau 1
        Set LBL = FRM.Controls.Add("forms.label.1", "LBL_N1_" & i, Visible = True)
        With LBL
            .Top = 10
            .Left = PosX - 50 + i * 50
            .Caption = "Compteur " & i
        End With
 
    ' Placement dynamique de la saisie du nombre de sous compteurs du niveau 1
        Set TB = FRM.Controls.Add("forms.TextBox.1", "TB_N1_" & i, True)
        With TB
            .Name = "TB_N1_" & i
            .Object.Value = ""
            .Left = PosX - 50 + i * 50
            .Top = 20
            .Width = 20
            .Height = 20
            .FontBold = True
            .Enabled = True
        End With
        Next i
  End If
 
 
    ' Control du type textbox
 
   For Each Ctrl In Me.Controls
           CtrlName = Ctrl.Name
           If InStr(CtrlName, "TB_N1_") = 1 Then
              'recuperation du numero du Textbox
              CtrlIndex = Val(Mid(CtrlName, 17))
 
              'transfert des entrées dans feuille 3 pour vérifier 
              Worksheets("Feuil3").Cells(1, CtrlIndex).Value = Ctrl.Text
             ' ReleveValeur = Ctrl.Text
             TableauCompteur1(1, CtrlIndex) = Ctrl.Text
 
            End If
    Next

merci d'avance !!!!!!!!!!!!!!!!

Bonjour,

Une piste.
Tu ajoute un module de classe qui doit se nommer Classe1 (nom par défaut que tu pourra adapter une fois que tu aura compris le fonctionnement) et tu colle le code ci-dessous :

Code:

1
2
3
4
5
6
7
8
9
 
Public WithEvents GroupeTxt As MSForms.TextBox
 
Private Sub GroupeTxt_Change()
 
    'inscrit les valeurs entrée en colonne A et à la ligne correspondante de la feuille "Feuil1"
    Worksheets("Feuil1").Range("A" & GroupeTxt.Tag).Value = GroupeTxt.Text
 
End Sub

Pour le test, tu mets en commentaire tout le code "Initialize" de ta Form et tu le remplace par celui-ci :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Dim Txt() As New Classe1
 
Private Sub UserForm_Initialize()
 
    Dim Fe As Worksheet
    Dim Tbox As MSForms.TextBox
    Dim Frm As MSForms.Frame
    Dim Lbl As MSForms.Label
    Dim I As Integer
    Dim Haut As Long
    Dim PosX As Long
    Dim PosY As Long
 
    PosX = 5
    PosY = 40
 
    Set Frm = Me.Controls.Add("forms.frame.1")
 
    With Frm
 
        .Top = PosY
        .Left = 0
        .Height = 60
        .Width = 450
        .Caption = "Niveau 1-Entrez le nombre de sous compteurs de niveau 2 pour chaque compteurs de niveau 1"
 
   End With
 
    For I = 1 To 10
 
        ' Placement dynamique des noms de compteurs de niveau 1
        Set Lbl = Frm.Controls.Add("forms.label.1", "LBL_N1_" & I, Visible = True)
 
        With Lbl
 
            .Top = 10
            .Left = PosX - 50 + I * 50
            .Caption = "Compteur " & I
 
        End With
 
        ' Placement dynamique de la saisie du nombre de sous compteurs du niveau 1
        Set Tbox = Frm.Controls.Add("forms.TextBox.1", "TB_N1_" & I, True)
 
        With Tbox
 
            .Tag = I '<--- stocke le numéro de ligne où sera inscrit la valeur entrée
            .Left = PosX - 50 + I * 50
            .Top = 20
            .Width = 20
            .Height = 20
            .FontBold = True
 
        End With
 
        'stocke le TextBox dans le tableau
        ReDim Preserve Txt(1 To I)
        Set Txt(I).GroupeTxt = Tbox
 
    Next I
 
End Sub

Quand tu va entrer une valeur dans un des TextBox, tu verra sur la feuille "Feuil1" (elle doit être la feuille active) en colonne A la valeur qui sera reportée en "live"
Si tu as d'autres questions, reviens.

Hervé.

Merci beaucoup Theze pour ta réponse !!!! Etant donné mon niveau, j'ai compris le principe de ton code (enfin je crois ).
J'ai essayé de bidouiller un peu car au final, je souhaite stocker ces valeurs dans un tableau (j'entends par là un tableau comme on pourrait avoir en langage C du type Char tab[i]). La visualisation en "live" grâce au code que tu m'a donné est simplement pour vérifier ce qui est dans mon fameux tableau.

Mon tableau s'appel "TableauCompteur1" et j'ai essayé de le remplir directement de la Classe1 que tu m'as demandé de créer comme suit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim j as integer j=0 Dim TableauCompteur1(0 To 50, 0 To 50) As Integer Public WithEvents GroupeTxt As MSForms.TextBox Private Sub GroupeTxt_Change() 'inscrit les valeurs entrée en colonne A et à la ligne correspondante de la feuille "Feuil1" Worksheets("Feuil1").Range("A" & GroupeTxt.Tag).Value = GroupeTxt.Text ' Ma tentative de remplissage TableauCompteur1(1, & GroupeTxt.Tag)=GroupeTxt.Text End Sub
De plus, je souhaiterai avoir acces à ce tableau dans mon userForm et je ne suis pas assez à l'aise avec ce langage pour établir aussi facilement ce "lien" ( entre une classe et le userForm)

22/06/2015, 19h06
Philippe Tulliez

Bonjour,
Pour en savoir plus sur les modules de classes quelques liens dans la FAQ

Bonjour,

Dans le module de classe :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public WithEvents GroupeTxt As MSForms.TextBox Private Sub GroupeTxt_Change() 'Ma tentative de remplissage TableauCompteur1(1, GroupeTxt.Tag) = GroupeTxt.Text 'la valeur est récupérée du tableau donc bien présente dans ce dernier ! Worksheets("Feuil1").Range("A" & GroupeTxt.Tag).Value = TableauCompteur1(1, GroupeTxt.Tag) End Sub
dans un module standard la déclaration publique des variables pour une portée au niveau projet :
Code:

1 2 3 Public j As Integer Public TableauCompteur1(0 To 50, 0 To 50) As Integer
C'est dans la création des TextBox et de la valeur affectée à la propriété Tag de ces derniers qu'il faudra apporter un soin tout particulier pour attribuer et récupérer les valeurs stockées dans le tableau. C'est pour l'exemple que j'ai utilisé la propriété Tag mais il y a bien d'autres façons de faire ça.

Hervé.

Super je touche du doigt ce que je souhaite faire!!!! Merci beaucoup pour vos réponses !! Mais ( eh oui malheureusement il y en a un! ) pour que cela soit parfait, il faut que je parvienne à gerer " l'ordre" dans lequel s'execute mon code. Dans le code suivant, comme vous pouvez le voir, pour tester si je peux bien récupérer mes valeurs dans mon tableau (ce que je parviens à faire depuis le UserForm grâce à mon tableau déclaré en tant que Public dans un module classique ;)) je voudrais afficher le nombre de "HELLO" correspondant à la place de mon tableau TableauCompteur1(1,1) ( pourquoi pas me direz-vous), mais après que l'utilisateur aie rempli le tableau, or dans la configuration actuelle, il m'affiche le bon nombre de "hello" mais de la saisie précédente. C'est pour cela que je dis que je dois gérer "l'ordre" dans lequel s'execute mon code". J'ai donc regarder sur le net et j'en ai ressorti le " GoTo", cependant cette solution paraît faire débat.

J'ai procédé comme s'en suit

Dans le 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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 Dim Txt() As New Classe1 Private Sub UserForm_Initialize() Dim Fe As Worksheet Dim Tbox As MSForms.TextBox Dim Frm As MSForms.Frame Dim Lbl As MSForms.Label Dim I As Integer Dim Haut As Long Dim PosX As Long Dim PosY As Long PosX = 5 PosY = 40 Set Frm = Me.Controls.Add("forms.frame.1") With Frm .Top = PosY .Left = 0 .Height = 60 .Width = 450 .Caption = "Niveau 1-Entrez le nombre de sous compteurs de niveau 2 pour chaque compteurs de niveau 1" End With For I = 1 To 10 ' Placement dynamique des noms de compteurs de niveau 1 Set Lbl = Frm.Controls.Add("forms.label.1", "LBL_N1_" & I, Visible = True) With Lbl .Top = 10 .Left = PosX - 50 + I * 50 .Caption = "Compteur " & I End With ' Placement dynamique de la saisie du nombre de sous compteurs du niveau 1 Set Tbox = Frm.Controls.Add("forms.TextBox.1", "TB_N1_" & I, True) With Tbox .Tag = I '<--- stocke le numéro de ligne où sera inscrit la valeur entrée .Left = PosX - 50 + I * 50 .Top = 20 .Width = 20 .Height = 20 .FontBold = True End With 'stocke le TextBox dans le tableau ReDim Preserve Txt(1 To I) Set Txt(I).GroupeTxt = Tbox Next I Valeur = TableauCompteur1(1, 1) For k = 1 To Valeur MsgBox " HELOOOOOO" Next k End Sub
Une fois ce dernier problème résolu, je serai définitivement comblé !!!!

Il est vrai que je pourrai choisir la solution de "facilité" en ordonnant mon code en plaçant un bouton sur lequel cliquer lorsque je désire déclencher l'affichage de mes Hello, mais cela ne conviendrait pas avec l'IHM que je souhaite proposer

23/06/2015, 16h19
Theze
J'ai un peut de peine à suivre, si tu mets ce code dans "Initialize" du formulaire :
Code:

1 2 3 4 5 Valeur = TableauCompteur1(1, 1) For k = 1 To Valeur MsgBox " HELOOOOOO" Next k
tu n'aura aucun résultat affiché la 1ère fois car ton tableau n'est pas initialisé et tu as forcément, ce qui est normal, le résultat du précédent lancement !
Ton tableau doit-il vraiment être de 51 x 51 ? "TableauCompteur1(0 To 50, 0 To 50)"
Ce tableau ne devrait-il pas être plutôt dimensionné dynamiquement ?

Hervé.
23/06/2015, 16h33
pinhut

En fait je voudrais que les choses se passent dans cet ordre précis :

1- Placement du Frm, du Lbl et des TxtBx
2-L'utilisateur rempli les TxtBox avec les chiffres de son choix
3- Hello s'affiche un nombre de fois déterminé par une des cases remplies par l'utilisateur

Or dans l'état actuel des choses, le programme fait

1- Placement du Frm, du Lbl et des TxtBx
2-Hello s'affiche un nombre de fois déterminé par l'ancienne entrée ( pour un peu qu'il y en ai déjà une)
3-L'utilisateur rempli les TxtBox avec les chiffres de son choix

En me mettant en mode pas à pas je comprends pourquoi c'est cet ordre d'execution là: l'intégralité du sub et compilé, mon message Hello étant dedans, c'est "normal"
Mais je voudrais trouver une parade!!!

Et oui je suis tout à fait d'accord avec toi pour cette histoire de tableau et les dimensions, mais étant donné que je suis en plein construction de mon programme, je chercherai à l'optimiser à la fin ! A moins que tu ne me dise que cela peut d'ores et déjà me causer des problèmes ( ?? )
23/06/2015, 17h31
Theze
Pour le test, à mettre dans le module de classe :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub GroupeTxt_Change() Dim I As Integer For I = 1 To GroupeTxt.Text MsgBox "Hello " & I Next I End Sub
malheureusement, l'évènement "Exit" n'est pas supporté dans le module de classe et sur l'évènement "Change" le code va être déclenché au premier chiffre entré mais tu peux déjà voir le résultat !

Hervé.
24/06/2015, 09h48
pinhut

Merci je vais essayer de me débrouiller avec ça! après avoir potasser ces histoires de classes, il me reste quelques doute. Je ne comprends pas ce que fait cette ligne

1- Set Txt(j).GroupeTxt = Tbox. Sachant que Txt() est un objet de ma classe1, à quoi correspondrait par exemple
Txt(1).GroupeTxt = Tbox (appart le fait que GroupeTxt prendrait la valeur de la première box)
Cette ligne est elle pour "réserver" de la place dans mon tableau ? Car en regardant pas à pas, il ne se passe rien de visuel quand cette ligne est executée (pas de remplissage de tableau)
24/06/2015, 21h17
Theze
Bonjour,
Code:

1 2 Dim Txt() As New Classe1
on déclare un tableau Txt() d'objets (ici, des TextBox) qui est une instance de la classe "Classe1" (on peut lui donner le nom qu'on veut). La classe permet d'affecter des propriétés, méthodes, procédures (évènementielles ou autres), fonctions, etc... à un ou plusieurs objets faisant référence à la classe, en gros, on affecte tout cet ensemble à, généralement, plusieurs objets, ici, dans un tableau. Dans mon exemple, j'initialise la variable tableau au même moment de son affectation avec "New".
Code:

1 2 Set Txt(I).GroupeTxt = Tbox
Le mot clé "Set" affecte l'objet en cours au tableau d'objets et dans ce cas, il va pouvoir utiliser tout l'ensemble de la classe.
Code:

1 2 ReDim Preserve Txt(1 To I)
cette ligne de code permet d'augmenter la dimension ("ReDim") du tableau ("Preserve" évite la suppression des valeurs déjà existantes dans le tableau) afin d'y insérer le nouvel objet.
Tu ne peux pas utiliser ce tableau autrement que ce pour quoi il a été défini c'est à dire stocker des TextBox afin qu'ils puissent utiliser les objets de la classe.

Citation:

Car en regardant pas à pas, il ne se passe rien de visuel quand cette ligne est executée (pas de remplissage de tableau)

Le tableau est bien rempli, et une fois l'initialisation du formulaire ("Initialize") terminée, le tableau en mémoire contient tous les TextBox qui lui on été affectés et sitôt qu'on utilise un des TextBox, les objets que contient la classe sont appelés.
Ceci permets, comme c'est le cas dans mon exemple, d'avoir une seule procédure évènementielle pour tous les TextBox au lieu de devoir les écrire toutes dans le module du formulaire. Si tu as 50 TextBox par exemple, tu devras écrire 50 procédures évenementielles et les TextBox devront être posés sur la Form en mode création et non dynamiquement.

Hervé.

Superbe réponse je pense mieux comprendre !!! Allez, je vous embête une dernière fois (enfin je l'espère), en essayant d'expliquer à "ma façon" les autres lignes avec lesquelles je ne suis pas à l'aise

1- Pourquoi est-on obligé de mettre

Code:

Set Txt(I).GroupeTxt=Tbox

et pas seulement

Code:

Set Txt(I)=Tbox

Moi ce que je comprends, ayant de rapides notions de Java, c'est qu'en mettant le ".GroupeTxt" attaché à Txt(I) c'est que j'essaye
-d'accéder- à la case I de mon tableau Txt contenant ce "GroupeTxt".

Je ne sais pas si c'est très clair, mais le fait de mettre un ".QuelqueChose" m'embrouille.
En langage C, on aurait créer une structure "Identité" avec un champs" Prenom" dedans, et pour y affecter une valeur Identité.Prenom=

Donc pour moi le "." sert d'accès, est-ce la même idée ici encore ? Il y a-t-il dans chacune des cases de mon tableau un "GroupeTxt" ?

2- Si je souhaite conditionner le remplissage de mon tableau, par exemple en fonction du nom. Si la TcheckBox s'appelle TB1 je met sa valeur dans la première ligne ( du tableau TableauCompteur1) , si la TcheckBox s'appelle TB2 je met sa valeur dans la deuxieme ligne (du tableau TableauCompteur1) je devrai procéder ainsi ?
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 38 39 40 41 42 43 44 45 46 47 48 49 ' Ma Classe1 est désormais Gestion_Tableau_Compteur Dim Txt() As New Gestion_Tableau_Compteur Dim Frm As MSForms.Frame Dim Tbox As MSForms.TextBox Dim ColTextBox As New Collection Dim obEvents As Gestion_Tableau_Compteur Dim CTL As MSForms.Control Dim Ctrl As Control, CtrlName As String, CtrlIndex As Integer 'Placement du cadre Set Frm = Me.Controls.Add("forms.frame.1") With Frm .Name = "Frame_N2" .Left = 150 .Top = 10 .Height = 150 .Width = 500 .Caption = "Hello World" End With For j = 1 To 2 'Placement des zones de textes Set Tbox = Frm.Controls.Add("forms.textbox.1", "TB"& j, True) With Tbox .Tag = j .Top = 20 .Left = .Width = 20 .Height = 20 .FontBold = True End With 'Stock le TextBox dans le tableau ReDim Preserve Txt(j) Set Txt(j).GroupeTxt = Tbox ' Evenement des textBox For Each CTL In Me.Controls If TypeOf CTL Is MSForms.TextBox Then Set obEvents = New clsControlsEvents Set obEvents.TBx = CTL Set obEvents.USF = Me ColCheckBox.Add obEvents End If Next CTL
Dans ma classe Gestion_Tableau_Compteur
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public WithEvents GroupeTxt As MSForms.TextBox Private Sub GroupeTxt_Change() If TBx.Name = "TB1" Then TableauCompteur1(1, GroupeTxt.Tag) = GroupeTxt.Text End If If TBx.Name = "TB2" Then TableauCompteur1(2, GroupeTxt.Tag) = GroupeTxt.Text End If End Sub
Voila merci!!! en espérant pour vous que ce soit mon dernier message, dîtes moi si je pose trop de questions, mais je veux vraiment comprendre les choses, d'autant plus que c'est plutôt agréable dans la mesure ou on à toujours des réponses de qualité sur ce forum!!

Milles excuses, à la ligne 53 dans mon userForm j'ai

Code:

Set obEvents = New clsControlsEvents

Mais je voulais écrire

Code:

Set obEvents = New Gestion_Tableau_Compteur

Bonjour,

Pourquoi est-on obligé de mettre "Set Txt(I).GroupeTxt=Tbox" ?
et bien, colle ces 3 lignes de code dans ton module de classe et retourne dans le code de ta Form et entre le point (.) après "Set Txt(I)" et tu verras pourquoi tu es obligé de préciser la propriété !

Code:

1
2
3
4
 
Public WithEvents GroupeTxt As MSForms.TextBox
Public WithEvents GroupeLbl As MSForms.Label
Public WithEvents GroupeOpt As MSForms.OptionButton

Txt est un tableau d'objets et le "(I)" signifie que c'est l'objet en position ordinale "I" à qui on va affecter la classe.

Je ne sais pas trop la finalité de ton projet et je ne connais pas les langages C et Java mais si tu veux utiliser des "propriétés" pour chaque objet de ton tableau, tu peux créer un type utilisateur. Un petit exemple à tester dans un classeur neuf :
à mettre dans un module standard :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Type Compteur
 
    Principal As Boolean
    Reference As String
    Volume As Double
    NBSousCompteur As Integer
 
End Type
 
Public TableauCompteur1() As Compteur
 
Public Sub QuelTxt(Txt As MSForms.TextBox)
 
 
    MsgBox "Le TextBox validé est '" & Txt.Name & "' dont la valeur est '" & Txt.Text & "' et ses propriétés sont :" & vbCrLf & _
           "Référence : " & TableauCompteur1(Txt.Tag, 1).Reference & vbCrLf & _
           "Principal : " & TableauCompteur1(Txt.Tag, 1).Principal & vbCrLf & _
           "Volume : " & TableauCompteur1(Txt.Tag, 1).Volume & vbCrLf & _
           "Nombre de sous compteurs : " & TableauCompteur1(Txt.Tag, 1).NBSousCompteur
 
End Sub

à mettre dans le module de classe nommé Classe1 :

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
 
Public WithEvents GroupeTxt As MSForms.TextBox
Public WithEvents GroupeLbl As MSForms.Label '<-- sert juste à démontrer la nécessité de préciser la "propriété"
Public WithEvents GroupeOpt As MSForms.OptionButton '<-- idem...
 
 
Private Sub GroupeTxt_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
    Select Case KeyCode
 
        Case 96 To 105 'des chiffres donc ne rien faire...
 
        Case 13
 
            'ici le code devant être exécuté si appuis sur la touche "Entrée"...
            Call QuelTxt(GroupeTxt)
 
        Case Else
 
            KeyCode = 0
 
    End Select
 
End Sub
 
 
Private Sub GroupeTxt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    'valeurs des propriétés dans la feuille active sur click de la souris...
    Range("A1").Value = "Principal : " & TableauCompteur1(GroupeTxt.Tag, 1).Principal
    Range("A2").Value = "Reference : " & TableauCompteur1(GroupeTxt.Tag, 1).Reference
    Range("A3").Value = "Volume : " & TableauCompteur1(GroupeTxt.Tag, 1).Volume
    Range("A4").Value = "NBSousCompteur : " & TableauCompteur1(GroupeTxt.Tag, 1).NBSousCompteur
 
    Range("A5").Value = "Valeur entrée par l'utilisateur : " & GroupeTxt.Text
 
End Sub

à mettre dans le module de la Form :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
Dim Txt() As New Classe1
 
Private Sub UserForm_Initialize()
 
    Dim Fe As Worksheet
    Dim Tbox As MSForms.TextBox
    Dim Frm As MSForms.Frame
    Dim Lbl As MSForms.Label
    Dim I As Integer
    Dim Haut As Long
    Dim PosX As Long
    Dim PosY As Long
 
    Dim NB_TBox As Integer
 
    PosX = 5
    PosY = 40
 
    'il y aura 10 TextBox
    NB_TBox = 10
 
    'initialise le tableau, la 1 ère dimension est le nombre de TextBox
    'et cette dernière est non redimensionnable. Ici, la première "ligne"
    'du tableau va contenir les TextBox "Racine" donc les compteurs principaux
    ReDim TableauCompteur1(1 To NB_TBox, 1 To 1)
 
    Set Frm = Me.Controls.Add("forms.frame.1")
 
    With Frm
 
        .Top = PosY
        .Left = 0
        .Height = 60
        .Width = 600
        .Caption = "Niveau 1-Entrez le nombre de sous compteurs de niveau 2 pour chaque compteurs de niveau 1"
 
   End With
 
    For I = 1 To NB_TBox
 
        ' Placement dynamique des noms de compteurs de niveau 1
        Set Lbl = Frm.Controls.Add("forms.label.1", "LBL_N1_" & I, Visible = True)
 
        With Lbl
 
            .Top = 10
            .Left = PosX - 50 + I * 50
            .Caption = "Compteur " & I
 
        End With
 
        ' Placement dynamique de la saisie du nombre de sous compteurs du niveau 1
        Set Tbox = Frm.Controls.Add("forms.TextBox.1", "TB_N1_" & I, True)
 
        With Tbox
 
            .Tag = I '<--- stocke le numéro de ligne où sera inscrit la valeur entrée
            .Left = PosX - 50 + I * 50
            .Top = 20
            .Width = 20
            .Height = 20
            .FontBold = True
 
        End With
 
        'stocke le TextBox dans le tableau
        ReDim Preserve Txt(1 To I)
        Set Txt(I).GroupeTxt = Tbox
 
        'affecte des valeurs bidon pour le test...
        TableauCompteur1(I, 1).Principal = True
        TableauCompteur1(I, 1).Reference = Tbox.Name
        TableauCompteur1(I, 1).Volume = 1000 * I
        TableauCompteur1(I, 1).NBSousCompteur = I
 
    Next I
 
End Sub

tu entre une valeur numérique dans un des TextBox puis tu tape sur la touche "Entrée"

Hervé.

tu peux même incorporer un type dans un autre type (attention, ce que je te poste est vraiment un exemple bidon mais ça permet de voir les possibilités offertes) :
dans le module standard :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Type AdresseCompteur
 
    NomImmeuble As String
    AdresseImmeuble As String
    CPImmeuble As String * 5
    VilleImmeuble As String
 
End Type
 
Public Type Compteur
 
    Coordonnees As AdresseCompteur
    Principal As Boolean
    Reference As String
    Volume As Double
    NBSousCompteur As Integer
 
End Type

donc, pour récupérer les valeurs :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Sub QuelTxt(Txt As MSForms.TextBox)
 
 
    MsgBox "Le TextBox validé est '" & Txt.Name & "' dont la valeur est '" & Txt.Text & "' et ses propriétés sont :" & vbCrLf & _
           "Référence : " & TableauCompteur1(Txt.Tag, 1).Reference & vbCrLf & _
           "Principal : " & TableauCompteur1(Txt.Tag, 1).Principal & vbCrLf & _
           "Volume : " & TableauCompteur1(Txt.Tag, 1).Volume & vbCrLf & _
           "Nombre de sous compteurs : " & TableauCompteur1(Txt.Tag, 1).NBSousCompteur
 
    MsgBox "Nom de l'immeuble : " & TableauCompteur1(Txt.Tag, 1).Coordonnees.NomImmeuble & vbCrLf & _
           "Adresse de l'immeuble : " & TableauCompteur1(Txt.Tag, 1).Coordonnees.AdresseImmeuble & vbCrLf & _
           "Code postal de l'immeuble : " & TableauCompteur1(Txt.Tag, 1).Coordonnees.CPImmeuble & vbCrLf & _
           "Ville de l'immeuble : " & TableauCompteur1(Txt.Tag, 1).Coordonnees.VilleImmeuble
 
End Sub

dans le module de la Form :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
'affecte des valeurs bidon pour le test...
With TableauCompteur1(I, 1)
 
    .Principal = True
    .Reference = Tbox.Name
    .Volume = 1000 * I
    .NBSousCompteur = I
 
    With .Coordonnees
 
        .AdresseImmeuble = I & ",Rue neuve"
        .NomImmeuble = "Immeuble Azalées " & I
        .CPImmeuble = "68000"
        .VilleImmeuble = "Colmar"
    End With 'Coordonnees
 
End With 'TableauCompteur1(I, 1)

Hervé.

25/06/2015, 12h11
Theze

Citation:

dîtes moi si je pose trop de questions, mais je veux vraiment comprendre les choses

tu ne pose pas trop de questions, je viens sur ce forum, comme tous les autres, pour aider dans la mesure de mes capacités et je répondrai autant que je peux pour t'aider !
Peut être devrais-tu préciser un peu plus ce que tu cherche à faire ?
D'après ce que j'en déduis, tu veux créer autant de TextBox que tu aura de compteurs principaux et selon le nombre entrée dans ces derniers, créer autant de sous-compteurs. Avec les types utilisateurs, tu peux créer par exemple une "propriété" ID unique (faire le contrôle de la valeur unique au moment de la saisie avec un dictionnaire par exemple) afin de pouvoir faire des recherches de façon plus aisé.

Hervé.
25/06/2015, 16h06
pinhut

Whouah merci beaucoup! Et bien écoute Theze je vais regarder ça en détail demain, même si j'en ai très envie je ne peux malheureusement pas aujourd'hui !!!

Et oui je me demandais si je posais trop de questions car ça en devient surprennant d'avoir des personnes aimables et désireuses d'aider les autres !

Je vais potasser cela de mon côté et si j'ai encore des interrogations, j'expliciterai mon projet en image !!

A demain donc haha ;)
26/06/2015, 10h10
pinhut

3 pièce(s) jointe(s)

Hello !!

Alors j'ai regardé le premier code et je ne soupçonnais même pas que l'on pouvait procéder ainsi !!
Ducoup pour mon idée finale j'ai l'impression qu'il y a plein de façons de procéder ! Alors avec votre recul de développeur, et parmi les différentes façon de procédées que vous m'avez exposées , si vous aviez un conseil pour réaliser le projet suivant:

Le but final (et oui car il y en bien un) c'est d'arriver à représenter une architecture de comptage de compteurs d'eau. Une première description textuelle avant une description plus imagée:

Dans un immeuble, il y a la présence de nombreux compteurs d'eau. Avec un papier "architecture de comptage", il est possible de décrire comment sont organisés ses compteurs.

Ce que je souhaite faire, à terme, c'est de pouvoir les répertorier dans un grand tableau excel. J'ai pensé procéder ainsi:

L'utilisateur entre le nombre de compteurs principaux du bâtiment. Imaginons qu'il y en ai que 2, il y aura alors l'apparition de deux cases " Compteurs 1" et "Compteurs 2" permettant d'entrer, si il y en a, le nombre de sous compteurs associés et "ainsi de suite" j'ai envie de dire.
J'aurai pu choisir la facilité en définissant un grand nombre de compteurs un peu partout sur mon Usf et simplement les rendre visible ou non selon les entrées, mais je ne trouve pas cela très formateur, d'autant plus que je pars du principe qu'un immeuble peut posséder jusqu'a 100 compteurs principaux, d'ou la nécessité de faire du dynamique.

Allez, on se fait une petite illustration de comment je visualise les choses dans mon esprit:

Pièce jointe 181603 Pièce jointe 181604 Pièce jointe 181605

C'est pour cela que je tente désepéremment de récupérer des valeurs dans des TB dynamiques, pour les utiliser par la suite dans des boucles pour afficher les sous compteurs !!

A la fin je souhaite avoir une feuille excel avec toute l'architecture "déja faîte", comme ça il n'y aurait plus qu'à rentrer le consommation d'eau etc.

Je dois avouer que je suis un peu perdu désormais..faire un énorme tableau avec une ligne par niveau de compteurs ? Créer des types pour chaque compteurs et ensuite un tableau pour tous les sous compteurs associés ?

Je parle sans cesse de tableau, car pour moi c'est la façon la plus simple de procéder. Car en stockant chacune des valeurs entrées par l'utilisateur, je peux dans un deuxième temps, aller piocher ses valeurs pour les mettres dans des boucles et proposer un affichage correct.

Voila voila vous savez tout !
27/06/2015, 21h06
Theze

1 pièce(s) jointe(s)

Bonjour,

A la vue de ce que tu souhaite faire, j'oserai dire que tu t'es trompé d'outils. Je partirai plutôt sur un contrôle TreeView afin de mieux gérer les "parents/enfants". J'ai concu un petit classeur exemple afin que tu puisse voir le résultat obtenu avec ce type d'outils. Sitôt la Form lancée, tu clique sur le 1er élément ce qui déverrouille le premier TextBox pour la saisie du nombre de compteurs principaux, tu entre ta valeur et tu confirme par la touche "Entrée' puis tu sélectionne un élément nouvellement créé et dans le second TextBox tu entre la valeur concernant les sous-compteurs concernant ce compteur principal puis validation par 'Entrée' et si tu souhaite ajouter des Sous-sous-compteurs, tu agit de la même manière.

Hervé.
29/06/2015, 09h22
pinhut

Bonjour !!

Merci pour ta réponse, une nouvelle fois ! Ce que tu as fais m'a l'air super et paraît être la bonne solution pour mon application finale. Cependant lorsque je tente de lancer l'initialisation depuis la feuille en cliquant sur le bouton "Afficher le formulaire" J'ai cette erreur qui s'affiche :" Membre de méthode et de données introuvable", et la ligne qui est surlignée est

Code:

Set Me.TreeView1.ImageList = Me.ListeImg

En regardant sur le net, j'ai l'impression que cette erreur est propre à chacun. J'ai essayer de contourner cette difficulté en lancant l'initialisation d'un autre module mais rien n'y fais !! Si jamais une idée vous vient !

En tout cas encore un grand merci, le travail qui tu as fais m'a l'air (à mes yeux du moins) assez conséquent!!!!
29/06/2015, 10h05
Theze

1 pièce(s) jointe(s)

Bonjour,

Je te reposte un fichier sans le contrôle "ImageList" !

Hervé.

Voir 40 message(s) de cette discussion en une page