Discussion :

[James3.14]

Bonjour,

Je cherche à utiliser une variable tableau dans la vérification d'un optionbouton afin de vérifier qu'une série de bouton est bien validée.

Voici a peu près mon code :

Code :

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

1
2
3
4
5
6
7
i = 1
do while i < 10
If UserForm1.Tableau(i).Value = True Then
...
EndIf
i = i +1
loop

Le UserForm1.Tableau(i).Value ne peut pas être pris en compte comme objet,
j'ai testé de nombreuses formulations mais rien n'y fait.

Pouvez-vous m'aider svp ?

[Gorfael]

Salut James3 et leforum
c'est tout ? Pas plus d'infos ? Et on doit résoudre le problème ?
C'est pas comme à la TVF, on fait pas de miracle comme MONK .

Comment est déclaré (et rempli) ton tableau ?
Sinon avec un
for each Ctrl in Me.Controls
if Ctrl then
ou un
for X = 1 to 10
if Me.controls("OptionBouton" & X) Then
tu devrais pouvoir résoudre ton problème.

NOTA : pas la peine de camoufler un code, aucun n'est monnayable
Par contre, pour le dépannage, le donner remplace plus efficacement la boule de cristal.
A+

[hellviking]

Salut gorfael,

Je travaille avec James sur ce projet, voici donc notre probleme :

Dans un userform nous avons plusieurs boutons options. Nous souhaitons récupérer les informations de ces boutons dans une macro (pour injecter ces information sur une feuille excel) sans avoir à renommer ces boutons à chaque fois.

L'idée est d'avoir un tableau à une dimension où nous injectons le nom des boutons (un nom de bouton par ligne). Puis nous faisons appelle successivement à chaque ligne du tableau pour vérifier l'état de chaque bouton.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
dim tableau as string
tableau(1) = xxxx
tableau(2) = yyyy
tableau(3) = zzzz
'....
 
i = 1
do while i < 10
If UserForm1.Tableau(i).Value = True Then
'... (action à mener 'efface lignes, fonctionne très bien) 
EndIf
i = i +1
loop

Le problème est que la formulation, "UserForm1.Tableau(i)" ne corresponde pas au bouton ciblé. Naturellement si nous écrivons le nom du bouton dans la macro, le code fonctionne. Il s'agirait donc de transformer une variable en objet.

merci

[ESVBA]

Bonjour james3.14, gorfael, hellviking et le forum,

Comme le fait comprendre gorfael, il ne sert à rien de créer un tableau de valeurs avec des noms car il existe déjà un tableau qui n'est autre que le tableau collection de contrôles. Ils ont un nom et des propriétés.

Dans la propriété "Tag" des boutons d'option utiles mettre une information identifiant la cellule ou le code. Tag peut être un nombre correspondant la cellule, à la colonne, un texte ou une absence de texte. A vous de voir suivant votre besoin.

un code un peu plus développé pour comprendre :

Code :

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

1
2
3
4
5
6
7
8
'Pour tous les contrôles sur la feuille courante
For Each CTRL In Me.Controls
    'Si la propriété Tag contient "utile" alors 
    If CTRL.Tag = "Utile" Then
        'Place la valeur du controle dans la cellule active
        ActiveCell.Value = CTRL.Value
    End If
Next

on pourrait faire un test du genre dans la boucle "For Each"

Code :

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

 If TypeOf Ctrl Is OptionButton Then

il y a une discussion similaire pour le code à http://www.developpez.net/forums/d87...acteres-rouge/


ESVBA

[Gorfael]

Salut hellviking et le forum
as-tu essayé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
dim tableau as string
tableau(1) = xxxx
tableau(2) = yyyy
tableau(3) = zzzz
....
 
i = 1
do while i < 10
   If Me.controls(Tableau(i)) = True Then
             ... (action à mener 'efface lignes, fonctionne très bien) 
   EndIf
   i = i +1
loop

A+