PB avec une frame et select case

Version imprimable

04/12/2007, 20h01
Stargate SG1

PB avec une frame et select case
Bonjour,

J'ai plus d'habitude avec ACCESS qu'avec EXCEL et je rencontre un petit problème avec une frame et select case.

J'ai crée dans un USERFORM une frame (frame6)
Dans cette frame j'ai 5 bouton radio(donc un seul choix possible).

Avec
Code:

1 2 3 4 5 6 7 select case frame6 case 1 case 2 case 3 case 4 case 5 end select
je pensai que comme dans ACCESS ce code fonctionnai mais hélas non et je ne comprends pas pourquoi?

Pouvez vous m'aider?

Merci
04/12/2007, 21h24
ucfoutu

Bonjour,

Quelles espèces de clauses penses-tu évaluer avec

Code:

select case frame6

Frame6 est un contrôle ...

tu peux évaluer des clauses sur ses propriétés... et sur rien d'autre...

Alors ?

Code:

Select case frame6.what ?
04/12/2007, 21h50
Stargate SG1

frame6.value

Dans ACCESS ça marche comme ça pour savoir quelle option a été choisie

Mais dans EXCEL on fait peut être autrement

Merci
04/12/2007, 22h13
ucfoutu

J'ignore ce que pourrait être, sous access (que je n'ai pas) la propriété Value d'un Frame et ai quelques difficultés à "voir" ce que celà pourrait avoir comme lien avec une "option" ....

Ce que je sais, c'est que :
- une telle propriété n'existe pas, sous Excel, pour un cadre.
- en double cliquant sur ton cadre, toutes les propriétés le concernant apparaissent dans la fenêtre des propriétés (dans l'IDE)
- en frappant Frame2. dans ton code, une fenêtre popup s'ouvre ... y figurent tous les évènements et propriétés possibles pour le cadre Frame2

ton "histoire" de valeur d'option me laisse assez perplexe, ... (tu vois pourquoi ?... réfléchis ...)
04/12/2007, 22h26
Stargate SG1

Alors comment fait on avec par exemple 5 valeur d'option pour determiner celle qui a été choisi?
04/12/2007, 22h30
ucfoutu

5 valeurs d'option (je commence à deviner quie tu as dans ton conteneur Frame2 5 optionbuttons dont on ignore le nom ...) ne risquent pas d'avoir le moindre rapport avec une quelconque des propriétés d'un cadre Frame2.

Il va te falloir être beaucoup plus clair..

Bonne nuit.

Bonsoir,

Tu peux procéder ainsi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim UneOption As Long
 
Private Sub CommandButton1_Click()
    Select Case UneOption
        Case 1
        Case 2
        Case 3
        Case 4
        Case 5
    End Select
End Sub
 
'Une procedure par bouton d'option
Private Sub OptionButton1_Click()
    UneOption = 1
End Sub
 
Private Sub OptionButton2_Click()
    UneOption = 2
End Sub

Ou utiliser une boucle sur la collection Controls du frame:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim UneOption As Long
 
Private Sub CommandButton1_Click()
    Dim Ctl As Control
    For Each Ctl In Frame1.Controls
        If TypeOf Ctl Is MSForms.OptionButton Then
            If Ctl.Value = True Then
                UneOption = CLng(Ctl.Tag) 'On renseigne tag au prealable
                Exit For
            End If
        End If
    Next
    Select Case UneOption
        Case 1
        Case 2
        Case 3
        Case 4
        Case 5
    End Select
End Sub

Cordialement,

Tirex28/