inscrire caption de checkbox dans un userformRésolu

Question

Bonsoir

A l'aide d'une oucle je souhaite modifier le texte (caption) de case à cocher (Checkbox). Les cases à cocher se trouve dans un userform. Les données sources se trouvent sur une feulle excel.

Voici mon code

Private Sub UserForm_Initialize()

Set f1 = Sheets("essai")

'''' fonctionne
'For j = 6 To 8
'UserForm1.Controls("TextBox" & j - 5).Value = f1.Cells(9, j).Value
'Next j

Set f1 = Sheets("essai")
For i = 6 To 8
UserForm1.Controls("Checkbox" & i - 5).Caption = f1.Cells(9, i).Value
Next i

End Sub

Merci d'avance pour votre aide

ucfoutu · Accepted Answer

Bonjour,
je ne vois rien qui "clocherait" dans ce code, si ce n'est l'absence du "typage" de f1, du genre :
Dim f1 as worksheet
A condition, bien évidemment que les checkboxes CheckBox1, checkbox2 et checkbox3 exçistent et soient directement sur ton userform. 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

titeuf136 · Answer

... bah du coup ça marche ! Merci !

Inscrire caption de checkbox dans un userform

2 réponses

Votre réponse

Discussions similaires