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

[bguichardaz]

Toujours pas !!!
Ma procédure est correcte. Ce qui semble poser problème c'est bien la synthaxe de la ligne :

Code :

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

1
2
 
CTRL.Caption = i

Est ce que le faîte que les contrôles soient sur un multipage pose problème ?
Quelle différence entre

Code :

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

CTRL.Object.Caption = i

et

Code :

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

CTRL.Caption=i

Bon sinon je vais finir par une listbox à choix multiple sinon...

[laetitia]

re, je viens de tester ca Marche???
aussi bien TypeName que TypeOf

le multipage ne pose pas de pb...

le code je le met dans userform puis appuie sur un bouton dans l'user comment tu procedes??

Code :

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

1
2
3
Private Sub CommandButton1_Click()
'code
End Sub

[bguichardaz]

Ok merci. J'ai compris !

En fait moi j'exécute directement la procédure dans VBE (F5) avec le module qui contient la procédure sous les yeux. En suite je dblclick sur ma userform et là je vois que le caption reste le même.

mais si je lance la même procédure en lui demandant en plus de m'afficher la userform(.show), là la propriété caption est bien changée dans l'userform qui s'affiche !

Conclusion la propriété caption n'est pas mis à jour dans l'affichage VBE lorsque cette dernière est modifiée via une procédure, mais caption est mise à jour si on demande l'affichage de l'userform (.show).

bye