Test de la valeurs des checkbox en boucle

Version imprimable

14/05/2008, 16h36
Godzestla

Test de la valeurs des checkbox en boucle

Bonjour,
j'ai dans une feuilles 12 checkbox, 1 par mois.

Je voudrais pouvoir les passer en revue 1 par une pour pouvoir cacher ou pas certaines colonnes dans un rapport.

Est-ce possible de boucler sur ces 12 élements, de récupérer la valeur ainsi que le nom du controle qui me servira dans mon code.

Merci pour votre aide. 8O
14/05/2008, 16h40
epsylon_9
Salut,
Quels sont ces checkbox?

Ce que je veux dire par là c'est de quelle manière ont ils été insérés dans la feuille Excel.
- Par La boite à outils Contrlôles ?
- Par la boite à Outils Formulaire?
@+
Julien
14/05/2008, 16h45
Godzestla

Salut epsylon_9,

ces contrôle ont étés créé par la boite à outil controles.

Salut et merci,
j'ai bien trouvé ce code mais, il me reste quelques points que je ne maitrise pas (Voir mes questions après le code)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Hi,
 
here is the code for both the Forms and the Control Toolbox (Activex) version of checkboxes:
 
Sub Reset_Checkboxes_Activex()
 
For Each sh In ActiveWorkbook.Worksheets
 
   For Each ckb In sh.OLEObjects
       If ckb.Object.Value = True Then
 
           ' set checkbox to false
           ckb.Object.Value = False
 
       End If
 
   Next ckb
Next sh
End Sub
 
Sub Reset_Checkboxes_Forms()
 
For Each sh In ActiveWorkbook.Worksheets
 
   For Each ckb In sh.Shapes
   If Left(ckb.Name, 5) = "Check" Then
       ckb.Select
       Selection.Value = xlOff
   End If
   Next ckb
Next sh
End Sub

:roll:
1) Dois-je choisir le type Activex ?
2) Comment le code se limite-t'il à ne traiter que les checkbox et pas les autres object dans le code suivant (il me semble qu'il ne fait pas le tri):

Code:

1
2
3
4
5
6
7
8
 
For Each sh In ActiveWorkbook.Worksheets
 
   For Each ckb In sh.OLEObjects
       If ckb.Object.Value = True Then
 
           ' set checkbox to false
           ckb.Object.Value = False

3) Quelle est l'instruction à utiliser pour récupérer le nom de l'objet ?

Code:

1
2
 
ckb.Object.Name

ou aytrechose ?

Merci.

14/05/2008, 17h27
fring

Il existe un tuto sur ce sujet et en français pas loin d'ici ;)
http://excel.developpez.com/faq/?page=OleObject
14/05/2008, 17h31
Godzestla

Nickel.

Merci Fring.:yaisse2: