Ajout dynamique CheckBox et gestion Click

Question

Bonjour bonjour !

Alors pour résoudre mon prblème, j'explique dabord le contexte : 
Je réalise uen application sous Visual Basic 6.3 (avec Excel 2003).

Mon WorkBook possède 2 feuilles ("feuille1" et "feuille2").

Ma feuille ("feuille2") contient du texte sur une colonne : 
 _________________________
|    A   |    B   | ...
| texte1 |        |
| texte2 |        |
| texte3 |        |
|  ...   |        |
|________|________|

Dans mon code, je créé pour chaque texte présent dans la colonne A, une checkBox : 

    
    While Feuil2.Cells(i, 1) <> ""
        Dim tmpVehicule As OLEObject

        Set tmpVehicule = Feuil1.OLEObjects.Add("Forms.CheckBox.1")

        With tmpVehicule
            .Name = Feuil2.Cells(i, 2).Value
            .Object.Caption = Feuil2.Cells(i, 2).Value
            .Object.Enabled = True
            .Height = 18.75
            .Left = 178.5
            .Top = 200.25
            .Width = 46.5
            .Object.BackColor = RGB(255, 202, 159)
            .Object.ForeColor = RGB(0, 0, 0)
            .Object.Value = False
            .AutoLoad = True
            .Object.BackStyle = 1
        End With
        leftCo = leftCo + 53.25
        i = i + 1
    Wend



J'en viens à mon problème : 
je souhaite pouvoir donner une action spécifique à chaque click sur une CheckBox, et je ne vois pas comment faire !

car pour les checkBox présentent dès l'ouverture de la feuille, pas de problèmes, j'utilise une sub du type "maCheckBox_Click()", mais la c'est pas possible étant donné que je ne connais pas par avance le nom de ma checkBox !

Quelqu'un a une idée ? parce que la j'ai épuisé mes ressources.. :/

je précise que je ne suis pas débutant en programmation, mais VB est une première pour moi (et je n'ai pas le choix, je dois réaliser mon appli en VB!)

Merci d'avance!

dam660 · Answer

PS la ligne : 


leftCo = leftCo + 53.25


n'a pas d'utilité pour mon problème (erreur de ma part, j'aurai du l'enlever avant de post désolé!)

merci!

dam660 · Answer

problème résolu ! 
je ne sais pas comment cloturer le sujet, je laisse le soin au modérateur merci !

Ajout dynamique CheckBox et gestion Click

2 réponses

Votre réponse

Discussions similaires