Compter le nb de TextBox spécifiques d'un USF en VBA

Version imprimable

14/12/2021, 17h06
thomanneca

Compter le nb de TextBox spécifiques d'un USF en VBA

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:

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
14/12/2021, 17h21
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
15/12/2021, 15h50
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 !
15/12/2021, 21h26
thomanneca
Citation:

Envoyé par 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

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:

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.

Citation:

Envoyé par 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 !

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:

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

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

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

1
2
for each TxtB in TxBox1
Next

16/12/2021, 11h46
Philippe Tulliez

1 pièce(s) jointe(s)
Bonjour,

Citation:

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:

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:

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
Pièce jointe 610306

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:

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:

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

bonjour,

Code:

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

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 )

Code
Code:

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

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:

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

22/12/2021, 09h40
thomanneca

Citation:

Envoyé par Philippe Tulliez

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 !

Citation:

Envoyé par Thumb down

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

1 pièce(s) jointe(s)

Bonjour,
à adapter à ta sauce!

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

22/12/2021, 16h35
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+

Citation:

Envoyé par Thumb down

Bonjour,
à adapter à ta sauce!

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

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

24/12/2021, 11h09
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:

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] +[*]
24/12/2021, 11h29
thomanneca

1 pièce(s) jointe(s)

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

Pièce jointe 610716

merci pour ton avis

voila,

Code:

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