Discussion :

[stephadm]

Bonsoir au forum,

Ma question est toute simple,

peut-on simplifier ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If OptButtonCong = True And OptButtonH = True Then
CopieHorizontal
End If
If OptButtonCong = True And OptButtonV = True Then
CopieHorizontal2
End If
If OptButtonCons = True And OptButtonH = True Then
CopieVertical
End If
If OptButtonCons = True And OptButtonV = True Then
CopieVertical2
End If

Merci

Stephanie

[mercatog]

Si tes OptionButtons sont indépendants alors

Code :

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

1
2
3
4
5
6
7
If OptButtonH Then
    If OpButtonCong Then CopieHorizontal
    If OpButtonCons Then CopieVertical
ElseIf OptButtonV Then
    If OpButtonCong Then CopieHorizontal2
    If OpButtonCons Then CopieVertical2
End If

[stephadm]

Bonsoir Mercatog et au forum,

En faites, ils sont placés dans 2 Frames
- Frame1 : OptButtonCong et OptButtonCons
- Frame2 : OptButtonH et OptButtonV

Stephanie

[mercatog]

Pour plus de clarté

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If OptButtonH Then
    If OpButtonCong Then
        CopieHorizontal
    Else
        CopieVertical
    End If
Else
    If OpButtonCong Then
        CopieHorizontal2
    Else
        CopieVertical2
    End If
End If

Ou bien

Code :

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

1
2
3
4
5
6
Select Case True
    Case OptButtonH And OpButtonCong: CopieHorizontal
    Case OptButtonH And OpButtonCons: CopieVertical
    Case OptButtonV And OpButtonCong: CopieHorizontal2
    Case OptButtonV And OpButtonCons: CopieVertical2
End Select

[stephadm]

Bonsoir Mercatog et merci