Discussion :

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

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

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 :

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

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 :

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

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 :

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

1
2
Option Explicit
Option Base 1

et

Code :

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

Global Tableau(70) As ColonneEtInfoSaisie

tu dis