Céer des CheckBox dynamiquement dans un Userform

Question

Bonjour à tous,

Je sais que vous allez bondir vu ne nombre de question sur ce theme, mais apres y avoir passé beaucoup de temps, je n'y arrive toujours pas...

Dans un UserForm d'Excel, je place un CheckBox que j'appelle CKB. A TagIndex, je mets 0. Et je le rend invisible.

Ensuite je tape mon code:

Private Sub UserForm1_Activate ()

For i = 0 To 5
Load CKB (i)
CKB (i).Caption = "Option " & i
CKB (i).Visible = True
Next

End Sub

Et là, à chaque fois, c'est la meme chose: J'ai une erreur 13 au niveau du Load ("Incompatibilité de type").

Je ne vois pas ce que j'ai oublié et là franchement je craque !!! J'ai l'impression d'y etre presque mais ça veut pas...

J'espere que quelqu'un pourra m'aider.
Merci.

pcpunch · Answer

For i=1 to 5 !!!!!

Car le cbk(0) est deja load!!!!!! donc err!!!!

crenaud76 · Answer

Non ce n'est aps cela le Pb le souci c'est qu'il a mis le TabIndex à 0 (et non le TagIndex comme tu l'as écris, je pense qu'il s'agit d'une faute de frappe) Cette propriété n'est pas la bonne !! Elle indique dans quel ordre les controles sont accédé par appuis succéssif sur la touche TAB !! Pour fair eun groupe de controle c'est la prorpriété Index, pas TabIndex. Ton CKB n'ets alors pas membre d'un groupe de controle et donc CKB(i) ne signifie rien du tout pour VB !
A noter que tu sembles travailler en VBA pour Excel et il me semble que tu ne peux aps définir de groupe de controle en VBA ! Je ne suis pas un spécialiste en la matière mais il me semble avoir déjà renseigner quelqu'un sur le sujet et il s'est avérer que VBA n'offrait pas cette fonctionnalité la, si mes souvenirs sont exact !!

Christophe R.

dks31 · Answer

Merci PCPUNCH

Mais j'avais dejà essayé...

Private Sub UserForm_Activate ()

For i = 1 To 5
Load CKB (i)
CKB (i).Caption = "Option " & i
CKB (i).Visible = True
Next

End Sub

Et le pb est le meme. Il faut declarer quelque chose avant ?
Ou avez vous carrement une autre solution pour que ça marche?

dks31 · Answer

Salut crenaud76,

Effectivement, il s'agit d'une faute de frappe pour TabIndex. Et oui je travaille sous VBA Excel.

En fait, tout ce que j'ai pu trouver sur le sujet parle de mettre l' "Index" à 0. Or je n'ai pas vu de reference "Index" dans les proprietés de CheckBox d'Excel. J'ai supposé qu'il s'agissait de TabIndex mais apparement c'est po ça...

Oui mais...   Il existe une solution ?!

crenaud76 · Answer

Comme je disais, je ne suis pas un spécialiste VBA, mais il semble possible de travailler avec la collection Controls d eal userform :
Un truc du genre UserForm1.Controls.Add .....
Mais je ne peux pas t'en dire +

Christophe R.

JacquesLeBlanc · Answer

Salut

Essaye ceci

Controls(CKB & i).Caption 

Sous VBA un CheckBox n'as pas la propriété "Index"
Seul les pages d'un contrôle MultiPage ou Tabs d'un contrôle TabStrip l'ont.

Bonne prog.
Jacques

JacquesLeBlanc · Answer

Encore moi

Ecrit plutot

Controls("CKB" & i).Caption 

Ca va mieux

Bonne prog.
Jacques

JacquesLeBlanc · Answer

Encore moi(dernière fois)

J'ai essayé ton code: "Load" c'est dans VB, et non dans VBA.

Essaye plutot ca.
Dans l'éditeur VBA Insere un UserForm appelé UserForm1.
Colle ce code. Execute le.

Option Explicit

Private WithEvents CKB1 As MSForms.CheckBox
Private WithEvents CKB2 As MSForms.CheckBox

Private Sub UserForm_Initialize()
Set CKB1 = UserForm1.Controls.Add("Forms.CheckBox.1", "Boutton1", True)
        CKB1.Left = 18
        CKB1.Top = 50
        CKB1.Width = 75
        CKB1.Height = 20
        CKB1.Caption = CKB1.Name
        
Set CKB2 = UserForm1.Controls.Add("Forms.CheckBox.1", "Boutton2", True)
        CKB2.Left = 18
        CKB2.Top = 100
        CKB2.Width = 75
        CKB2.Height = 20
        CKB2.Caption = CKB2.Name
End Sub

Private Sub CKB1_Click()
    CKB1.Enabled = False
End Sub

Private Sub CKB2_Click()
    Unload Me
End Sub

Je sais qu'il y a répétition, surtout si tu crée beaucoup de controles dynamiquement, mais c'est rapide et efficace.
J'utilise Excel2000.
Ca fonctionne bien
Amuse toi bien!

Bonne prog.
Jacques

Céer des CheckBox dynamiquement dans un Userform

8 réponses

Discussions similaires