Bonjour et merci de m'avoir répondu
Mais mes checkbox ne se trouve pas sur une UserForm mais sur une feuille, et je les créé ainsi :
Sub AjoutCheckBox()
Dim c As Range, myRange As Range
calcul_nb_colonnes nb_colonnes, tot_def, valor, code
'calcul d'indices particuliers
Set myRange = Range(Cells(33, 2), Cells(33, (valor - tot_def + 1))) 'je sélectionne là où je veux que mes cases apparaissent
i = 1
For Each c In myRange.Cells
ActiveSheet.CheckBoxes.Add((c.Left + 10), (c.Top - 1.5), c.Width, c.Height).Select
With Selection
.LinkedCell = c.Address
.Characters.Text = ''
.Name = c.Address
.Display3DShading = True
.Value = xlOn
End With
c.Select
With Selection
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, _
Formula1:='=' & c.Address & '=TRUE'
.FormatConditions(1).Font.ColorIndex = 6 'change for other color when ticked
.FormatConditions(1).Interior.ColorIndex = 6 'change for other color when ticked
.Font.ColorIndex = 2 'cell background color = White
End With
i = i + 1
Next
myRange.Select
End Sub
cette macro me permet de créer mes checkbox dynamiquement et j'aimerais savoir s'il est possible de créer mes Sub CheckBox_click() pareillement.
Merci