Discussion :

[rouls]

Bonjour,

Je me tourne vers vous car je n'arrive pas à créer un contrôle (de type OptionButton) en dynamique car j'ai une erreur lorsque je détermine l'Index :
"La propriété Index ne peut être définie au moment de l’exécution".
Le message est bien explicite, seulement je ne sais pas correctement contourner ce souci.
J'ai aussi cette problématique sur la création d'un contrôle de type "listbox" lorsque je souhaite modifier la propriété "multiselect".
Concernant les autres types de contrôle je n'ai pas de souci.

Pour info je crée ces contrôles de la sorte :

Code :

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

1
2
Dim ListBox As Control
Set ListBox = Controls.Add("VB.listbox", "" & "Champ" & iIndice)

Auriez-vous une solution à ce problème ? Car je n'ai pas trop le choix quant à la création en mode "live".

Merci d'avance.

[DarkVader]

Le premier control de la série à indexer (index:0) doit être ajouté manuellement.

[rouls]

Le premier control de la série à indexer (index:0) doit être ajouté manuellement.

C'est bien ce que je fais jusqu'à présent en faisant :

Code :

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

1
2
3
4
For i = 0 To UBound(tParametres.ListeChamps(iIndice).Champ.Values.Value)    ' nombre total de boutons radio à créer
Set OptionButton = Me.Controls.Add("VB.OptionButton", "" & "Champ" & iIndice)  'on crée un bouton radio pour chaque valeur trouvée
    OptionButton.Index = i   ' incrémentation de l'index pour indiquer qu'ils appartiennent au même groupe
Next

Le 1er index est donc créé à 0.
A moins que je me trompe ?

[SfJ5Rpw8]

Le premier control de la série à indexer (index:0) doit être ajouté manuellement.

pas par le code

[rouls]

Ok merci pour l'info ; je vais essayer de trouver autre chose alors

[l_autodidacte]

et si tu regardes ce post tu auras certes une idée du comment faire tout en adaptant pour ton cas

[rouls]

et si tu regardes ce post tu auras certes une idée du comment faire tout en adaptant pour ton cas

Merci l_autodidacte pour le lien, j'ai pu m'en inspirer.

La solution (dans mon cas) a été de créer graphiquement le 1er controle avec comme index = 0 puis lors de la création de faire un "Load" de ce contrôle, en prenant soin de ne pas le charger si je suis sur le 1er bouton radio.
Voici le code si ça peut aider quelqu'un par la suite :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For i = 0 To UBound(tParametres.ListeChamps(iIndice).Champ.Values.Value)
	If i <> 0 Then Load optBoutonRadio(i)
	With optBoutonRadio(i)
		.Caption = tParametres.ListeChamps(iIndice).Champ.Values.Value(i).Valeur
		.Enabled = True 
		.Value = tParametres.ListeChamps(iIndice).Champ.Values.Value(i).Selected
		.Visible = True
		.Top = tParametres.ListeChamps(iIndice).Champ.Top + iTop
		.Left = tParametres.ListeChamps(iIndice).Champ.Left
		.Width = tParametres.ListeChamps(iIndice).Champ.Width
		iTop = iTop + 350
	End With
Next

A bientôt.