Récupération du caption des checkbox placées en dynamique

Question

Vous j'ai placé en dynamique des checkboxs sur ma form, ensuite je voudrais que quand on change la valeur de la checkbox il me prenne la valeur de la checkbox et l'ajout à une variable si on la coche ou l'enlève si on la décoche. Ci dessous un nexemple de se que je veux faire. 'Définition des Checkbox en dynamique Public Function FindWord(ByVal sWord As String, vPlage As Variant, Optional wSheet As Variant = "ActiveSheet") As String() Sheets(wSheet).Select ParseRange = Split(CStr(vPlage.Address), ":") Range(ParseRange(0)).Select For Each cell In vPlage If cell.Value = sWord Then Sheets(wSheet).Select Toto = cell.Address cell.Select Aucun = False Exit For Else Aucun = True End If Next End Function Private Sub ListBox1_Change() Sheets("Feuille1").Select Call FindWord(ListBox1.Value, Range("A1:A50"), "Feuille1") If Aucun = False Then chki = 1 chkj = 0 ActiveCell.Offset(0, 1).Select If ActiveCell.Value <> "" Then Do If ActiveCell.Value <> "" Then Set ChkBox = Form1.Carac.UnitOptions.Equip.Controls.Add("Forms.CheckBox.1", , True) With ChkBox .Name = "Option" & chki .Caption = ActiveCell.Value .Left = 28 .Top = 12 + chkj .Height = 18 .AutoSize = True End With chki = chki + 1 chkj = chkj + 18 ActiveCell.Offset(1, 0).Select End If Loop While ActiveCell.Value <> "" End If End Sub 'Ce que je veux faire si la valeur de la checkbox change 'Check définit la checkbox en question If Left$(Check.Name, 5) <> "Check" Then If Check.Value = True Then TotOpt.Value = TotOpt.Value + Check.Caption Else TotOpt.Value = TotOpt.Value - Check.Caption End If End If Le problème que je n'arrive pas à résoudre est de lancer les commandes ci-dessus lors du changement de n'import quelle checkbox créée en dynamique.

LordCoy · Answer

Je désespère personne n'aurais une petite idée pour faire mon truc ...

Récupération du caption des checkbox placées en dynamique

1 réponse

Votre réponse

Discussions similaires