Discussion :

[Stargate SG1]

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 :

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

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

[ucfoutu]

Bonjour,

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

Code :

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

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 :

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

Select case frame6.what ?

[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

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

[Stargate SG1]

Alors comment fait on avec par exemple 5 valeur d'option pour determiner celle qui a été choisi?

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

[tirex28]

Bonsoir,

Tu peux procéder ainsi:

Code :

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

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 :

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

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/