Inscrire caption de checkbox dans un userform

Résolu
Signaler
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
-
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
-
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

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
240
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
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
1
... bah du coup ça marche ! Merci !