Boucle sur controles et .tag associé [Résolu]

[pleskyd]

Bonjour !

Je suis un peu bloqué sur une partie de mon code

Contexte :
J'ai un userform avec 70 textbox et 70 checkbox.
Chaque checkbox est associé à 1 textbox grâce au tag.

Résultat souhaité : pour chaque checkbox cochée, je veux récupérer la valeur du textbox associé dans un tableau.

Voilà mon code pour le moment (et qui ne fonctionne pas bien sûr )

Code :

1
2
3
4
5
6
7
i = 1
For j = 1 To 70
       If Controls("CheckBox" & j).Value = True Then
               Tableau(i).infosaisie = userform.Controls("CheckBox" & j).Tag.Text
                i = i + 1
       end if
next j

A la place de .Text, j'ai essayé .Value et même rien du tout mais ca ne fonctionne pas non plus.

Quelqu'un pourrait m'aider svp ?
Merci d'avance.

[Jean-Pierre49]

Bonjour,

Essais sans le .Text


Tu dis

[pleskyd]

Bonjour Jean-Pierre49,

J'ai déjà testé sans le .Text
j'ai déjà aussi testé avec .Value à la place

Rien de tout ca fonctionne. D'autres idées ?

[Jean-Pierre49]

As-tu un message d'érreur

comment est dimensionnée ta variable Tableau()

Essais avec

Code :

1
2
3
4
5
6
7
8
9
Dim Tableau()
Dim i As Byte
For j = 1 To 70
    If UserForm.Controls("CheckBox" & j).Value = True Then
        i = i + 1
        ReDim Preserve Tableau(i)
        Tableau(i) = UserForm.Controls("CheckBox" & j).Tag
    End If
Next j

tu dis

[pleskyd]

As-tu un message d'érreur

Quand je mets :
1/ .Text ou .Value : Objet requis
2/ rien : Objet spécifié introuvable

comment est dimensionnée ta variable Tableau()

Code :

1
2
3
4
5
6
7
8
9
'je crée un type pour les données dans le tableau 
Type ColonneEtInfoSaisie
        libellécolonne As String
        colonne As Integer
        infosaisie As String
 End Type
 
'je dimensionne le tableau
Global Tableau(69) As ColonneEtInfoSaisie

[Jean-Pierre49]

Essais le code que j'ai mis si il marche il devrait nous donner une indication
pour continuer à chercher.

regarde aussi avec

Code :

1
2
Option Explicit
Option Base 1

et

Code :

Global Tableau(70) As ColonneEtInfoSaisie

tu dis

[pleskyd]

Le ReDim ne fonctionne pas parce que mon tableau à une dimension fixe.
Et j'ai besoin que mon tableau commence à partir de 0.

[Jean-Pierre49]

ok, mais

Code :

For j = 1 To 70

me choque donc

tu dis

[pleskyd]

en fait la variable j ne correspond pas au tableau mais au nom des checkbox.
ex : CheckBox1, CheckBox 2, etc ("Checkbox" & j)
c'est la variable i qui indexe mon tableau.

Ca c'est ma vision du code et je me trompe peut être (sûrement).
qu'est-ce qui te choque ?

[Jean-Pierre49]

Tu as raison,

Quand tu as le message d'érreur sur quelle ligne le code est stoppé?

[pleskyd]

En fait j'ai recréé un fichier (ci-joint) pour ne pas être parasité par le reste de mon code.

ca compile mais la valeur récupérée est le nom de la textbox et non pas sa valeur

[Jean-Pierre49]

je n'ai pas 2007 ou 2010 ici

[gFZT82]

Bonjour,

D'après tes explications, j'aurais plutôt vu un code qui ressemble à ça

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
    Dim tableau(1) As String
    Dim i As Integer
    i = 0
    For j = 1 To 2
       If Controls("CheckBox" & j) = True Then
            If Controls("TextBox" & j).Text = "" Then
                tableau(i) = "X"
                i = i + 1
            Else
                tableau(i) = Controls("TextBox" & j).Text
                i = i + 1
            End If
        End If
    Next j
    MsgBox tableau(0), vbOKOnly
    MsgBox tableau(1), vbOKOnly
    Unload UserForm1
End Sub

Cordialement.

[pleskyd]

oui gFZT82, j'ai eu cette réponse aussi sur un autre forum.

en fait je ne sais pas pourquoi je m'obstinais à vouloir utiliser .Tag alors qu'il suffit de nommer les TextBox avec le même numéro que les CheckBox et donc ma boucle fonctionne pour les 2.

Merci à tous pour votre aide et très bon week end !