Commande sur des OptionButton

Version imprimable

09/08/2012, 16h28
jlb59

Commande sur des OptionButton
Bonjour à tous,

Dans mon prog, je voudrais mettre le choix sur 3 critères.

J'ai fait comme ça et, apparemment, ça marche.
http://qi98.free.fr/temp/optionbutton.jpg

Seulement, par exemple si c'est le 1 qui est coché (de 7 à10 ans), automatiquement, la commande "Lancer le test" est Enable.
Mais je voudrais en plus que les autres OptionButton soient Disabled.
Le problème est que je ne sais pas m'y prendre.

Par ailleurs, je voulais votre avis sur le code ci-dessous.
Est-ce que c'est bon ou pas, et si non, voudriez-vous me dire comment faire, mais pas avec des termes trop techniques ?
Code:

1 2 3 4 5 6 7 Private Sub OptTrancheAge_Click(Index As Integer) For I = 0 To 2 If OptTrancheAge(I).Value Then cmdEnregistrer.Enabled = True End If Next I End Sub
Optionx renommées en OptTrancheAgex
Merci d'avance de votre aide.
09/08/2012, 16h53
DarkVader

Bonjour,
D'après ce que j'ai pu comprendre l'état initial de
- commandEnregistrer : disabled
- optTrancheAge 0 à 2 : enabled - aucun sélectionné
Le but après sélection d'une option :
- commandEnregistrer : enabled
- impossibilité de modifier optTrancheAge 0 à 2 en cours d'action ultérieure
(après avoir activé commandEnregistrer)

C'est bien cela ?
09/08/2012, 17h13
DAUDET78

Jlb59 et sabrimi ? C'est la même personne ?
09/08/2012, 17h54
jlb59

Citation:

Envoyé par DAUDET78

Jlb59 et sabrimi ? C'est la même personne ?

Oui j'avais expliqué pourquoi.
J
Mais pour ne pas m'embrouiller, je vais faire supprimer Sabrimi par les Admins.
09/08/2012, 17h57
jlb59

Citation:

Envoyé par DarkVader

Bonjour,
D'après ce que j'ai pu comprendre l'état initial de
- commandEnregistrer : disabled
- optTrancheAge 0 à 2 : enabled - aucun sélectionné
Le but après sélection d'une option :
- commandEnregistrer : enabled
- impossibilité de modifier optTrancheAge 0 à 2 en cours d'action ultérieure
(après avoir activé commandEnregistrer)

C'est bien cela ?

Oui DarkVader, c'est ça ! :)
Éventuellement, quand un OptionButton est sélectionné, c'est de mettre les autres Disabled.
Il y a certainement d'autres trucs que je voudrais faire, mais je vais commencer par là !

Code:

1
2
3
4
5
Private Sub OptTrancheAge_Click(Index As Integer)
    For I = 0 To 2
        If I <> Index Then cmdEnregistrer.Enabled = False
    Next I
End Sub

Plus court ......

Citation:

Envoyé par DAUDET78

Plus court ......

Nettement oui surtout par rapport à ce que j'avais fait
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Form_Activate() cmdEnregistrer.Enabled = False For I = 0 To 2 OptTrancheAge(I).Value = cmdEnregistrer.Enabled Next End Sub Private Sub OptTrancheAge_Click(Index As Integer) For I = 0 To 2 If OptTrancheAge(I) = True Then cmdEnregistrer.Enabled = True: Exit For End If Next I End Sub
Je vais essayer ta procédure ! En principe c'est le même résultat ?

Après 5mn.

Ben, c'est pas tout à fait comme je l'espérais.

Mon code est plus long mais je fais ce que je voudrais.

Si je mets

Code:

If I <> Index Then cmdEnregistrer.Enabled = True

Toi tu avais mis False, là, ça marche mieux.

09/08/2012, 18h32
DAUDET78

C'est que tu expliques mal ton Cahier des charges !
09/08/2012, 18h37
jlb59

Tu sais, le "Cahier des charges" comme tu dis, c'est un peu le souk, et je ne suis pas un "pro" dans la programmation.
C'est vrai que si j'avais été plus organisé, j'aurais peut-être eu moins de prb, mais là, c'est pas le cas ! ;)
10/08/2012, 07h44
XylonAkau

_ Ia ora na.

Citation:

Oui j'avais expliqué pourquoi.

Citation:

Mon code est plus long mais je fais ce que je voudrais.
Si je mets

Code:

If I <> Index Then cmdEnregistrer.Enabled = True

Toi tu avais mis False, là, ça marche mieux.

Citation:

Tu sais, le "Cahier des charges" comme tu dis, c'est un peu le souk,[...] j'aurais peut-être eu moins de prb, mais là, c'est pas le cas !.

Et c'était ici

Citation:

Citation:

Citation:
Envoyé par l_autodidacte [...] tu mélanges les deux types de variables : par exemple
Calc1 = Calc1 & Int(5 + (Int(i) * 100) / 100) & vbCrLf : Là tu ajoutes une chaîne(String) à un nombre !!!!!!

[...]Mais tu vois une chaine(string) où ça ?

Citation:

J'aurais pu choisir d'autres noms pour ces labels mais comme c'était pas ma préoccupation première, je me suis dis que je verrai plus tard.

Citation:

dans d'autres posts, on me donne des procédures différentes, pour en revenir aux mêmes résultats que les tiens, alors comprends bien que je ne peux faire des modifs différentes à tout bout de champ, ce serait trop fastidieux !

_ On peut se demander à quoi sert de répondre puisque de toute façon, Sabrimi ou jlb59, vous avez toujours fait la seule chose à faire de la seule manière qui convînt, et que nous sommes juste bons à vous embrouiller l'esprit.
_ Bonne chance, l'ami.