Discussion :

[duthooma]

Bonjour,

J'ai un problème, surement très simple mais je ne m'en sors pas !

Je voudrais créer des checkbox dynamiquement dans ma feuille excel (je ne connais pas à l'avance le nombre de checkbox que je dois créer), puis utiliser le résultat de ces checkbox.

Pour cela, j'arrive a créer une checkbox grâce au code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub test()
 
 
Range("C3").Select
ActiveSheet.CheckBoxes.Add(ActiveCell.Left, ActiveCell.Top + 6.75, ActiveCell.Width, ActiveCell.Height).Select
 
With Selection
.Value = xlOn
.Characters.Text = ""
.Width = 11.25
.Height = 6.75
End With
 
end sub

Cependant, je n'arrive pas a récupérer la référence de celle ci, pour pouvoir l'utiliser plus loin dans mon programme.

En gros, je voudrais faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set referenceCheckBox1 = ActiveSheet.CheckBoxes.Add(ActiveCell.Left, ActiveCell.Top + 6.75, ActiveCell.Width, ActiveCell.Height).Select

pour ensuite pouvoir faire reference CheckBox1.Value = TRUE (par exemple).

Si quelqu'un a la solution, je lui serais vraiment reconnaissant !

Merci & Bye
Maxence

[supersnail]

1°)

2°)Ce serait pas plûtot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
set referenceCheckBox1 = ActiveSheet.CheckBoxes.Add(ActiveCell.Left, ActiveCell.Top + 6.75, ActiveCell.Width, ActiveCell.Height)

Autre chose...
Tu n'y a pas accès via

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveSheet.CheckBoxes(n)

[Gorfael]

Salut duthooma et le forum
Une solution possible, c'est nommer la CheckBoxes (par exemple avec l'adresse de la cellule sous le coin gauche-haut de la CheckBoxes).
ensuite tu y fais référence par activesheet.shapes("A5") par exemple.
A+
Attention : nommer la CheckBoxes(.Name) pas légender (.Caption)