C
creation et utilisation checkbox
Guest
Bonjour a tous,
je suis debutant en VBA, un j ai un probleme pour gerer les CheckBox dynamiquement voila :
Dans la Feuil1, j ai une cellule nommée N dont la valeur peut variée, j ai un bouton qui doit créer des lignes dans la feuil2 selon la valeur N, pour chaque ligne créer je dois créer des checkbox, pour cela j ai fé une macro associer au bouton.
Cette Macro créer bien mes lignes et mes checkbox, mais mon soucis est que je n arrive pas a recuperer les noms de ces checkbox pour 'agir' dessus, en effet j aimerais bien pouvoir supprimer ces checkbox et les recreer si mon paramtre N change, de plus, lors de la creation de ces checkbox elle doivent etre cocher, je vous met mon code
Merci de m aider
Sub Calcul_Levels()
Dim Obj As OLEObjects
Dim c As CheckBox
level = Range('N')
i = 2
Sheets('Feuil2').Select
Do
j = i + 1
Cells(i, 2) = level
L = Cells(i, 6).Left
T = Cells(i, 6).Top
W = Cells(i, 6).Width
H = Cells(i, 6).Height
With Worksheets(2)
Set lb = .Shapes.AddFormControl(xlCheckBox, L, T, W, H)
End With
i = i + 1
level = level - 1
Loop Until (level = 0 Or level = '')
End Sub
je suis debutant en VBA, un j ai un probleme pour gerer les CheckBox dynamiquement voila :
Dans la Feuil1, j ai une cellule nommée N dont la valeur peut variée, j ai un bouton qui doit créer des lignes dans la feuil2 selon la valeur N, pour chaque ligne créer je dois créer des checkbox, pour cela j ai fé une macro associer au bouton.
Cette Macro créer bien mes lignes et mes checkbox, mais mon soucis est que je n arrive pas a recuperer les noms de ces checkbox pour 'agir' dessus, en effet j aimerais bien pouvoir supprimer ces checkbox et les recreer si mon paramtre N change, de plus, lors de la creation de ces checkbox elle doivent etre cocher, je vous met mon code
Merci de m aider
Sub Calcul_Levels()
Dim Obj As OLEObjects
Dim c As CheckBox
level = Range('N')
i = 2
Sheets('Feuil2').Select
Do
j = i + 1
Cells(i, 2) = level
L = Cells(i, 6).Left
T = Cells(i, 6).Top
W = Cells(i, 6).Width
H = Cells(i, 6).Height
With Worksheets(2)
Set lb = .Shapes.AddFormControl(xlCheckBox, L, T, W, H)
End With
i = i + 1
level = level - 1
Loop Until (level = 0 Or level = '')
End Sub