Création checkbox avec vba word
Bonjour,
Je me suis inspiré des lignes de code d'Heureux-oli pour écrire cette fonction de création de checkbox :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Sub CréerCaseACocher()
'
'
Selection.InlineShapes.AddOLEControl ClassType:="Forms.HTML:Checkbox.1"
ActiveDocument.HTMLCheckbox1.Checked = True
With ActiveDocument.HTMLCheckbox1
.Checked = True
.Height = 11
.Width = 11
End With
End Sub |
Cela fonctionne très bien pour la création de la 1ère (Checkbox1), mais les suivantes s'affichent non cochées (valeur false).
Pouvez-vous m'indiquer comment récupérer le nom de la checkbox qui est créée dans une variable, afin de changer sa valeur avec .Checked=True.
Cordialement
