Créer une liste de cse à cocher avec pour noms les valeurs de cellules

[jf27]

Salut à tous,

J'aimerai lors de l'activation d'un bouton, générer un USF avec des cases à cocher ayant pour noms le contenu de cellules d'une ligne.

Je n'arrive pas à affecter le contenu de la cellule au nom de la check box avec le code suivant. Comment faire
Merci @+

Sub Result_Analysis()
Dim ctr As Control
Dim colonne As Integer
'Display category List
'Open Userform
'Create Label and tick Box
'Count how many to create
UserFormResultAnalysis.Show
Sheets("Analysis").Activate
colonne = 2
For Each ctr In UserFormResultAnalysis.Controls
ctr.Value = Cells(3, colonne).Value
colonne = colonne + 1
Next ctr

'Display criteria list

'get tick value and copy in selected category row and selected criteria row


End Sub

 

[Pierrot93]

Re : Créer une liste de cse à cocher avec pour noms les valeurs de cellules

Bonjour jf

sans plus de détails... Si j'ai bien compris... regarde le code ci-dessous modifie le "caption" d'une "checkbox" nommée "CheckBox1" :

CheckBox1.Caption = Range("A1").Value

bon après midi
@+

 

[jf27]

Re : Créer une liste de cse à cocher avec pour noms les valeurs de cellules

salut

merci de ta réponse, mais ca ne va pas !
Je souhaite boucler sur tous les ctrl et changer comme tu l'indique le caption.
Sauf, qu'apparemment je ne sais pas changer le caption d'un ctrl et je ne sais pas boucler sur tous les checbox.

L'équivalent de each ctr existe t'il pour each text box
ou l'équivalent de checbox.Caption existe t'il pour ctr.caption

 

[Pierrot93]

Re : Créer une liste de cse à cocher avec pour noms les valeurs de cellules

Re,

pour une boucle, peut être comme ceci :

Dim Ctrl As Control, c As Integer
c = 2
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox Then Ctrl.Caption = Cells(3, c)
    c = c + 1
Next Ctrl

ce code doit être exécuter dans le module de l'usf concerné (Me.Controls)

@+

 

[jf27]

Re : Créer une liste de cse à cocher avec pour noms les valeurs de cellules

Re,

pour une boucle, peut être comme ceci :

Dim Ctrl As Control, c As Integer
c = 2
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.CheckBox Then Ctrl.Caption = Cells(3, c)
    c = c + 1
Next Ctrl

ce code doit être exécuter dans le module de l'usf concerné (Me.Controls)

@+

C gagné !
C bien ce que j'avais en tête mais il me manquait le " Is MSForms.CheckBox "
C'est mon pb, je vois la structure, mais je dois toujours trouver comment traduire tout ça en VBA...!

Merci, à toi je vais pouvoir continuer
@+