Discussion :

[thomanneca]

Bonjour,

J'ai dans un Userform plusieurs TextBox nommés suivant une logique comme celle-ci :
TextBox1_i
TextBox2_i
TextBox3_i
etc.
Je souhaiterais par exemple compter le nombre de TextBox1_i indépendamment des autres.

J'utilise la fonction

Code :

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

me.controls.count

mais il me renvoie sans surprise le nombre d'objets de mon UserForm.

Est-il possible de différencier les types de TextBox dans ce type de recherche ?

Par ailleurs, l'objectif sera in fine de connaître l'identité de l'ensemble de mes TextBox pour ensuite pouvoir y traiter les données.

L'idée sera par exemple de faire la somme des valeurs reprises dans mes "TextBox1_i".

Merci d'avance pour votre aide qui me sera précieuse.

Bàv

[Philippe Tulliez]

Bonjour,
Pour connaître le nombre de TextBox contenu dans un UserForm, il suffit de parcourir à l'aide d'une boucle l'ensemble des contrôles et la fonction TypeName permet de savoir le type de contrôle et ainsi les énumérer.
Si tous les TextBox sont préfixés d'une façon explicite, il y a la possibilité de boucler uniquement sur ces contrôles

A lire le chapitre I-B. Boucler sur les contrôles contenus dans la Forme du tutoriel Utiliser les contrôles dans un UserForm, en VBA Excel

[thomanneca]

Bonjour,
Pour connaître le nombre de TextBox contenu dans un UserForm, il suffit de parcourir à l'aide d'une boucle l'ensemble des contrôles et la fonction TypeName permet de savoir le type de contrôle et ainsi les énumérer.
Si tous les TextBox sont préfixés d'une façon explicite, il y a la possibilité de boucler uniquement sur ces contrôles

A lire le chapitre I-B. Boucler sur les contrôles contenus dans la Forme du tutoriel Utiliser les contrôles dans un UserForm, en VBA Excel

Bonsoir Philippe,

Merci pour ce lien, je l'avais trouvé mais je ne parviens pas à caler la logique dans mon code.
Pour exemple, voici ce que j'ai mis, qui ne me renvoie pas les noms des TexBox :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim Ctrl As Control
 
For Each Ctrl In controls
        If TypeName(Ctrl) = "TextBox1_" & i Then MsgBox Ctrl.Object.Name
Next Ctrl
 
End Sub

Merci pour ton aide.

[Thumb down]

Bonjour,
Si tu ajoutes des contrôles dynamiquement je peux comprendre si non tu es capable de connaître le nombre sans avoir recours à VBA !

[thomanneca]

Bonjour,
Si tu ajoutes des contrôles dynamiquement je peux comprendre si non tu es capable de connaître le nombre sans avoir recours à VBA !

Bsr,

Oui mes controls sont ajoutés dynamiquement.
Ci-après, voici comment je les ajoute.
Le problème est que je ne parviens pas à retrouver leur nom, et donc par la suite, je ne pourrai pas les cibler pour y rechercher leur valeur...

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
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
Public Sub AjoutT_Click()
 
Dim TxBox1 As Control
Dim TxBox2 As Control
Dim TxBox3 As Control
 
Dim Ctrl As Control
 
Dim i As Byte
 
i = Me.controls.Count - 7
 
Set TxBox1 = UserForm1.controls.Add("Forms.Textbox.1", "T" & i, True)
    With TxBox1
        .Name = "TextBox1_" & i
        .Top = (7 * i) + 29
        .Left = 370
        .Width = 30
    End With
 
'MsgBox "textbox1_" & i
 
Set TxBox2 = UserForm1.controls.Add("Forms.Textbox.1", "R" & i, True)
    With TxBox2
        .Name = "TextBox2_" & i
        .Top = (7 * i) + 29
        .Left = 404
        .Width = 55
    End With
 
'MsgBox "textbox2_" & i
 
Set TxBox3 = UserForm1.controls.Add("Forms.Textbox.1", "P" & i, True)
    With TxBox3
        .Name = "TextBox3_" & i
        .Top = (7 * i) + 29
        .Left = 463
        .Width = 45
        If TxBox3.Top > 305 Then
            UserForm1.Height = TxBox3.Top + TxBox3.Height + 65
        End If
    End With
 
'MsgBox "textbox3_" & i
 
UserForm1.FondText.Top = TxBox1.Top + 25
UserForm1.FondR.Top = TxBox1.Top + 25
UserForm1.FondP.Top = TxBox1.Top + 25
 
 
End Sub

[Thumb down]

voila maintenant tu as un tableau de control et son nombre!

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
21
22
23
24
Dim TxBox1() As Control, TxBox1Nb As Integer
Dim TxBox2() As Control, TxBox2Nb As Integer
Dim TxBox3() As Control, TxBox3Nb As Integer
 
Public Sub AjoutT_Click()
 Dim Ctrl As Control
Dim i As Byte
 
i = Me.Controls.Count - 7
ReDim Preserve TxBox1(TxBox1Nb)
Set TxBox1(TxBox1Nb) = UserForm1.Controls.Add("Forms.Textbox.1", "T" & i, True)
    With TxBox1(TxBox1Nb)
        .Name = "TextBox1_" & i
        .Top = (7 * i) + 29
        .Left = 370
        .Width = 30
    End With
 
'
UserForm1.FondText.Top = TxBox1(TxBox1Nb).Top + 25
UserForm1.FondR.Top = TxBox1(TxBox1Nb).Top + 25
UserForm1.FondP.Top = TxBox1(TxBox1Nb).Top + 25
TxBox1Nb = TxBox1Nb + 1
End Sub

Tu as deux options TxBox1Nb ou ubound(TxBox1) pour connaitre le nombre de contrôles !

Tu pourras même faire un

Code :

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

1
2
for each TxtB in TxBox1
Next

[Philippe Tulliez]

Bonjour,

Pour exemple, voici ce que j'ai mis, qui ne me renvoie pas les noms des TexBox

TypeName est une fonction VBA qui renvoie le type d'une variable et pas son nom donc il faut écrire

Code :

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

If TypeName(Ctrl) = "TextBox" Then MsgBox Ctrl.Object.Value

Voici un exemple simple qui j'espère vous éclairera sur ce que renvoie TypeName
Ce code affiche dans la fenêtre d'exécution (Ctrl+G), le nom et le (TypeName) de tous les contrôles du UserForm nommé mUsf_ImprovedDataValidation

Code

Code :

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

1
2
3
4
5
6
Sub ReadControl()
  Dim ctrl As Control
  For Each ctrl In mUsf_ImprovedDataValidation.Controls
     Debug.Print ctrl.Name & " (" & TypeName(ctrl) & ")"
  Next
End Sub

Résultat dans la fenêtre d'exécution

cmdOK (CommandButton)
cmdCancel (CommandButton)
lstSelection (ListBox)
chkDeleteRow (CheckBox)
lblSelectedRowEmpty (Label)
frmLookUpArea (Frame)
cboFindLabel (ComboBox)
txtFindValue (TextBox)
Label1 (Label)
TextBox1 (TextBox)
Label2 (Label)
TextBox2 (TextBox)

Illustration du UserForm

[thomanneca]

Bonsoir,

Merci à tous les deux pour votre aide, j'ai fait un mixte et cela semble bien fonctionner.
A présent, j'éprouve encore des difficultés pour exploiter mes objets.
Je connais à présent le nom de mes textbox mais comment y faire référence ?

Ici, j'ajoute des TextBox1, TextBox2 et TextBox3 :

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
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
Dim TxBox1() As Control, TxBox1Nb As Integer
Dim TxBox2() As Control, TxBox2Nb As Integer
Dim TxBox3() As Control, TxBox3Nb As Integer
 
Public Sub AjoutT_Click()
 
Dim ctrl As Control
Dim i As Byte
Dim j As Byte
 
ReDim Preserve TxBox1(TxBox1Nb)
i = TxBox1Nb
Set TxBox1(TxBox1Nb) = UserForm1.Controls.Add("Forms.Textbox.1", "T" & i, True)
    With TxBox1(TxBox1Nb)
        .Name = "TextBox1_" & i
        .Top = (7 * i) + 29
        .Left = 370
        .Width = 30
    End With
 
ReDim Preserve TxBox2(TxBox2Nb)
Set TxBox2(TxBox2Nb) = UserForm1.Controls.Add("Forms.Textbox.1", "P" & i, True)
    With TxBox2(TxBox2Nb)
        .Name = "TextBox2_" & i
        .Top = (7 * i) + 29
        .Left = 404
        .Width = 55
    End With
 
ReDim Preserve TxBox3(TxBox3Nb)
Set TxBox3(TxBox3Nb) = UserForm1.Controls.Add("Forms.Textbox.1", "R" & i, True)
    With TxBox3(TxBox3Nb)
        .Name = "TextBox3_" & i
        .Top = (7 * i) + 29
        .Left = 463
        .Width = 45
        'If TxBox3.Top > 305 Then
        '    UserForm1.Height = TxBox3.Top + TxBox3.Height + 65
        'End If
    End With
 
UserForm1.FondText.Top = TxBox1(TxBox1Nb).Top + 25
UserForm1.FondR.Top = TxBox1(TxBox1Nb).Top + 25
UserForm1.FondP.Top = TxBox1(TxBox1Nb).Top + 25
TxBox1Nb = TxBox1Nb + 1
TxBox2Nb = TxBox2Nb + 1
TxBox3Nb = TxBox3Nb + 1
 
End Sub

Ensuite, et c'est ici que je cale :

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
Sub CommandButton2_Click()
 
Dim ctrl As Control
Dim i As Long
 
For Each ctrl In UserForm1.Controls
   Debug.Print ctrl.Name & " (" & TypeName(ctrl) & ")"
Next
 
i = 1
 
'ci-après j'aimerais récupérer le contenu de mon TextBox :
If TypeName(ctrl) = "TextBox1_" & i Then MsgBox ctrl.Object.Value
 
'ou alors pousser une valeur dans mon TextBox :
If TypeName(ctrl) = "TextBox2_" & i Then ctrl.Object.Value = "123"
 
End Sub

Merci encore pour votre aide précieuse et belle soirée

[Thumb down]

bonjour,

Code :

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

1
2
3
4
5
6
Sub CommandButton2_Click() 
Dim ctrl As Control 
For Each ctrl In TxBox1
   Debug.Print ctrl
Next
End Sub

[Philippe Tulliez]

Bonjour,
Avez-vous bien regardé le code que j'ai publié ainsi que la liste renvoyée dans le chapitre "Résultat dans la fenêtre d'exécution" et surtout ce que renvoie TypeName, ce qui se trouve entre parenthèse ?

Qu'un TextBox se nomme TextBox1, TextBox2, txtName ou encore Toto, la fonction TypeName renverra toujours TextBox

[EDIT]

Au lieu de TypeName, vous pouvez utiliser également la fonction TypeOf

Voici l'exemple d'une procédure affichant le nom des contrôles TextBox du Userform nommé mUsf_ImprovedDataValidation (Le même que celui du fil #7)

Code

Code :

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

1
2
3
4
5
6
7
8
Sub ReadControl()
  Dim ctrl As Control
  For Each ctrl In mUsf_ImprovedDataValidation.Controls
     If TypeOf ctrl Is MSForms.TextBox Then
        Debug.Print ctrl.Name
     End If
  Next
End Sub

Résultat dans la fenêtre d'exécution

txtFindValue
TextBox1
TextBox2

[Thumb down]

bonjour,
dans la mesure ou tu as défini des tableaux de contrôles tu n'as plus à rechercher leurs type ni leur nom!

Code :

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

1
2
3
4
5
6
7
Sub CommandButton2_Click()
Dim i As Long
For i = 0 To UBound(TxBox1)
   Debug.Print TxBox1(i).Name & " =  " & TxBox1(i).text, TxBox2(i).Name & " = " & TxBox2(i).text, TxBox3(i).Name & " =  " & TxBox3(i).text
Next
 
End Sub

[thomanneca]

Merci Philippe,

J'avais bien lu et suivi tes conseils mais je pense que je m'étais mal exprimé.
J'ai bien réussi à retrouver le nom de mes objets mais l'idée n'était pas de les avoir tous mais bien ceux de certains types pour pouvoir in fine les gérer indépendamment les uns des autres, ou pouvoir les classer.
En l'occurrence, ce que je voulais, c'était de pouvoir ne sélectionner que les TexBox dont la structure du nom était par exemple "TxBox1_" & i.

Avec ta méthode, sauf erreur, il me sortait les noms de tous.

Voir ma réponse à Thumb down ci-après ;-)

Encore un grand merci pour ton aide !

Merci Thumb numb pour le coup de pouce, c'est ce qu'il me fallait.

A présent, je vais devoir essayer de maîtriser un peu mieux ces tableaux car un peu plus abstraits actuellement.

Pour que l'objet de ma demande soit un peu plus concret, l'idée est à présent de remplir certaines de mes textbox (par exemple les TxBox1) avec les données issues d'un range.
Je vais donc devoir créer mes TexBox de manière dynamique par rapport au nombre de mes cellules contenues dans mon range.

Je vais m'y atteler et au besoin j'ouvrirai un autre sujet.

Merci à tous les 2 ;-)

[Thumb down]

Bonjour,
à adapter à ta sauce!

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
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 TxBox1() As Control, TxBox2() As Control, TxBox3() As Control, Nb As Integer
 
Public Sub AjoutT(r As Range)
ReDim Preserve TxBox1(Nb)
Set TxBox1(Nb) = Me.Controls.Add("Forms.Textbox.1", r(1).Address, True)
    With TxBox1(Nb)
       ' .Name = "TextBox1_" & i
        .Text = r(1).Value
        .Top = (.Height * Nb) + 29
        .Left = 370
        .Width = 30
    End With
 
ReDim Preserve TxBox2(Nb)
Set TxBox2(Nb) = Me.Controls.Add("Forms.Textbox.1", r(2).Address, True)
    With TxBox2(Nb)
   Debug.Print .Name
       .Text = r(2).Value
        .Top = (.Height * Nb) + 29
        .Left = 404
        .Width = 55
    End With
 
ReDim Preserve TxBox3(Nb)
Set TxBox3(Nb) = Me.Controls.Add("Forms.Textbox.1", r(3).Address, True)
    With TxBox3(Nb)
       ' .Name = "TextBox3_" & i
       .Text = r(3).Value
        .Top = (.Height * Nb) + 29
        .Left = 463
        .Width = 45
        'If TxBox3.Top > 305 Then
           Me.Height = .Top + .Height + 65
           Me.Width = .Left + .Width + 65
        'End If
    End With
 
'me.FondText.Top = TxBox1(TxBox1Nb).Top + 25
'me.FondR.Top = TxBox1(TxBox1Nb).Top + 25
'me.FondP.Top = TxBox1(TxBox1Nb).Top + 25
Nb = Nb + 1
 
End Sub
 
 
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To UBound(TxBox1)
    With Sheets("Data")
        .Range(TxBox1(i).Name) = TxBox1(i).Text
        .Range(TxBox2(i).Name) = TxBox2(i).Text
        .Range(TxBox3(i).Name) = TxBox3(i).Text
    End With
Next
End Sub
 
 
 
 
Private Sub UserForm_Initialize()
Dim r As Range
Set r = Sheets("Data").Range("A1").CurrentRegion
For i = 1 To r.Rows.Count
    AjoutT r.Range(r(i, 1), r(i, 3))
Next
End Sub

[thomanneca]

C'est exactement ça qu'il me faut, un grand merci une nouvelle fois ;-)

Cette fois je peux marquer ce fil comme résolu.

A+

[thomanneca]

Bonjour,
à adapter à ta sauce!

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
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 TxBox1() As Control, TxBox2() As Control, TxBox3() As Control, Nb As Integer
 
Public Sub AjoutT(r As Range)
ReDim Preserve TxBox1(Nb)
Set TxBox1(Nb) = Me.Controls.Add("Forms.Textbox.1", r(1).Address, True)
    With TxBox1(Nb)
       ' .Name = "TextBox1_" & i
        .Text = r(1).Value
        .Top = (.Height * Nb) + 29
        .Left = 370
        .Width = 30
    End With
 
ReDim Preserve TxBox2(Nb)
Set TxBox2(Nb) = Me.Controls.Add("Forms.Textbox.1", r(2).Address, True)
    With TxBox2(Nb)
   Debug.Print .Name
       .Text = r(2).Value
        .Top = (.Height * Nb) + 29
        .Left = 404
        .Width = 55
    End With
 
ReDim Preserve TxBox3(Nb)
Set TxBox3(Nb) = Me.Controls.Add("Forms.Textbox.1", r(3).Address, True)
    With TxBox3(Nb)
       ' .Name = "TextBox3_" & i
       .Text = r(3).Value
        .Top = (.Height * Nb) + 29
        .Left = 463
        .Width = 45
        'If TxBox3.Top > 305 Then
           Me.Height = .Top + .Height + 65
           Me.Width = .Left + .Width + 65
        'End If
    End With
 
'me.FondText.Top = TxBox1(TxBox1Nb).Top + 25
'me.FondR.Top = TxBox1(TxBox1Nb).Top + 25
'me.FondP.Top = TxBox1(TxBox1Nb).Top + 25
Nb = Nb + 1
 
End Sub
 
 
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To UBound(TxBox1)
    With Sheets("Data")
        .Range(TxBox1(i).Name) = TxBox1(i).Text
        .Range(TxBox2(i).Name) = TxBox2(i).Text
        .Range(TxBox3(i).Name) = TxBox3(i).Text
    End With
Next
End Sub
 
 
 
 
Private Sub UserForm_Initialize()
Dim r As Range
Set r = Sheets("Data").Range("A1").CurrentRegion
For i = 1 To r.Rows.Count
    AjoutT r.Range(r(i, 1), r(i, 3))
Next
End Sub

Bonjour Thumb Down,

Encore besoin de ton inspiration svp.
Ton code marche à merveille mais j'ai du mal à le déchiffrer.
En l'occurrence, dans mon cas, j'essaie de l'adapter pour pouvoir cible un Range ou tout au moins la première cellule.


J'ai beau le retourner dans tous les sens, je n'obtiens pas ce que je souhaite.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
Dim r As Range
Dim i As Integer
 
Set r = Sheets("Graph").Range("B3").CurrentRegion
For i = 1 To r.Rows.Count
    AjoutTamis r.Range(r(i, 1), r(i, 3))
Next
End Sub

Pour l'exemple, comment ferais-tu pour exploiter les données reprises dans un range dont la première cellule serait "B3" et non "A1" comme dans ton exemple.
J'ai bien compris que la fonction CurrentRegion n'était dans ce cas pas appropriée mais même en fixant un range comme ("B3:B15"), cela ne tourne pas comme je l'entends.

Merci pour ton retour ;-)

[Thumb down]

Bonjour,
Currentregion prend toutes les cellules contiguës ?

Ça veut dire que si tu as dès valeur en colonne A,B,C,D la plage sera de A à D donc range(i,1) correspond à la colonne A!

Je te suggère !

Code :

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

AjoutTamis r.Range(r(i, "B"), r(i, "D"))

Tu peux également définir un plage B1: D20 par exemple et là mon code fonctionne en l'état.

Pour bien comprendre ce que fait currentregion positionnés toi en B3 et appuyés simultanément sur [CTRL] +[*]

[thomanneca]

le problème est qu'il compte le nombre de ligne sur la colonne A.
Donc si je n'ai que 6 cellules remplies sur la colonne A, il enregistre 6 dans r.rows.count alors que si j'en ai 25 dans la colonne "V" par exemple, il ne le saura pas..

ci-joint ton fichier avec un tableau en couleur que je souhaiterais exploiter, ce sera plus simple avec du concret me semble-t-il..

Forms.Textbox.1.xlsm

merci pour ton avis

[Thumb down]

voila,

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
Dim r As Range
Set r = Sheets("Data").UsedRange
For i = 1 To r.Rows.Count
    AjoutT r.Range(r(i, "B"), r(i, "D"))
Next
End Sub