Discussion :

[Godzestla]

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.

[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

[Godzestla]

Salut epsylon_9,

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

[Godzestla]

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 :

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

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

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 :

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

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 :

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

1
2
 
ckb.Object.Name

ou aytrechose ?

Merci.

[fring]

Il existe un tuto sur ce sujet et en français pas loin d'ici
http://excel.developpez.com/faq/?page=OleObject

[Godzestla]

Nickel.

Merci Fring.