Nom d'optionboutton (ou d'objet) Variable

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:

---

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 ?

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

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 :mouarf:
Par contre, pour le dépannage, le donner remplace plus efficacement la boule de cristal.
A+

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:

---

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

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:

---

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:

---

If TypeOf Ctrl Is OptionButton Then

---

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


ESVBA

Salut hellviking et le forum
as-tu essayé

Code:

---

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+