Discussion :

[bguichardaz]

Bonjour,

J'ai un UserForm qui contient un Multipage, qui contient des checkboxs. Mon objectif : modifier la propriété caption de ces checkboxs.
Mon code tourne normalement lorsque je l'exécute mais la propriété caption reste toujour la même !? Pourquoi ?

Mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test ()
i = 4
 
For Each CTRL In UF_Questionnaire.MultiPage1.Pages(Page1).Controls  
If TypeOf CTRL Is MSForms.CheckBox Then
            CTRL.Caption = "i"
            i = i + 1
End If
Next CTRL
End Sub

Merci !

[mercatog]

Code :

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

CTRL.Caption = cstr(i)

[bguichardaz]

Merci. Mais ça ne règle pas le problème. Précision : Lorsque je demande à mon code de m'afficher la propriété caption et de l'afficher dans un msgbox : pas de problème. Donc c'est vraiment le fait de modifier la propriété qui bug. Une synthaxe que je ne connais pas peut être. Merci de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
    For Each CTRL In UF_Questionnaire.MultiPage1.Pages(Page1).Controls
        If Not TypeOf CTRL Is MSForms.OptionButton Then
        If TypeOf CTRL Is MSForms.CheckBox Then
'            MsgBox (CTRL.Caption)
            CTRL.Object.Caption = "i"
            i = i + 1
        End If
        End If
    Next CTRL

[Maiden002]

Tu as mi

Code :

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

.Object

avant le

Code :

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

.Caption

[bguichardaz]

Merci mais ce n'est toujours pas ça. Que ce soit avec ou sans le .object la procedure s'execute sans message d'erreur mais la propriété n'est pas modifié !?

[laetitia]

bonjour bguichardaz le fil essai comme cela
attention au numero de page la premiere =0 & non 1

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim i As Byte, j As Control
i = 4
For Each j In UF_Questionnaire.MultiPage1.Pages(0).Controls
If TypeName(j) = "CheckBox" Then
 j.Caption = i
 i = i + 1
 End If: Next
End Sub

avec TypeOf

Code :

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

1
2
3
4
5
6
7
Dim i As Byte, j As Control
i = 4
For Each j In UF_Questionnaire.MultiPage1.Pages(0).Controls
If TypeOf j Is MSForms.CheckBox Then
j.Caption = i
 i = i + 1
 End If: Next

attention balise tes codes