Discussion :

[Marty57070]

Bonjour à tous,

Petit souci technique, j'essaye d'initialiser mon userform à partir d'une condition sur plusieurs OptionButton d'une feuille :

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
21
22
23
24
Public Sub UserForm_Initialize()

Worksheets("BuildingClient Connected List").Activate

Dim Lig As Long
Dim n As Long

Lig = 3 'première ligne à vérifier
Do While Not IsEmpty(Range("A" & Lig))
    Lig = Lig + 1
    n = n + 1
Loop

For i = 0 To n

    If Worksheets("BuildingClient Connected List").("OptionButton"&i).Value = True Then
    
        UsfBuildingDetail.TextBoxAdress1.Value = "Bonjour!"
        
    End If
    
Next i
    
End Sub

Avec un seul bouton comme ci-dessous pas de soucis mais avec la boucle ça m'affiche un message d'erreur (j'ai aussi essayé Controls("OptionButton"&i)=True...

Code :

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

If Worksheets("BuildingClient Connected List").OptionButton0.Value = True Then

Si quelqu'un a une idée ce serait top!

Merci.

[Theze]

Bonjour,

Je suppose que les boutons d'option sont des contrôles ActiveX donc des objets OLE, "OleObject". Les contrôles "OLEObject" n'ont pas de propriété "Value" donc il n'est pas possible de récupérer directement la valeur du bouton, par contre, ils possèdent une propriété "Object" qui elle, à une propriété "Value" et là, il est possible de connaître l'état du bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test()
 
    Dim Ctrl As OLEObject
 
    'contrôle ActiveX
    For Each Ctrl In ActiveSheet.OLEObjects
 
        MsgBox Ctrl.Name
        MsgBox Ctrl.Object.Value
 
    Next Ctrl
 
End Su

ton code devrait être un peu du genre :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Public Sub UserForm_Initialize()
 
    Dim Lig As Long
    Dim n As Long
 
    Worksheets("BuildingClient Connected List").Activate
 
    Lig = 3 'première ligne à vérifier
 
    Do While Not IsEmpty(Range("A" & Lig))
 
        Lig = Lig + 1
        n = n + 1
 
    Loop
 
    For Each Ctrl In Worksheets("BuildingClient Connected List").OLEObjects
 
        Select Case Ctrl.Name
 
            Case "OptionButton1"
 
                If Ctrl.Object.Value = True Then
 
                    'code...
 
                End If
 
            Case "OptionButton2"
 
                If Ctrl.Object.Value = True Then
 
                    'code...
 
                End If
 
        End Select
 
    Next Ctrl
 
End Sub

Hervé.