Discussion :

[jlb59]

Bonjour à tous,

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

J'ai fait comme ça et, apparemment, ça marche.


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 :

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

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.

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

[DAUDET78]

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

[jlb59]

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.

[jlb59]

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à !

[DAUDET78]

Code :

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

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

[jlb59]

Plus court ......

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

Code :

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

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 :

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

If I <> Index Then cmdEnregistrer.Enabled = True

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

[DAUDET78]

C'est que tu expliques mal ton Cahier des charges !

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

[XylonAkau]

_ Ia ora na.

Oui j'avais expliqué pourquoi.

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

Code :

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

If I <> Index Then cmdEnregistrer.Enabled = True

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

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

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.

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.