[E-07] Checkbox indicée : "CheckBox" & j

Version imprimable

Bonjour
Je voudrais faire une opération sur les checkbox 1,2,3.....n.
C'est pourquoi j'aimerais réussir à faire tourner le code suivant.
Code:

1 2 3 4 5 6 7 8 9 Sub programme() Dim j As Integer j=1 If Evaluate("ActiveSheet.CheckBox" & j).Value = True Then Worksheets("Feuil1").Cells(5, 2).Value = 1 Else Worksheets("Feuil1").Cells(5, 2).Value = 0 End If End Sub
Mon problème est surement du au fait que:
ActiveSheet.CheckBox" & j) est reconnu comme une chaine de caractères
et donc ("ActiveSheet.CheckBox" & j).Value n'a plus de sens.

Avez-vous une idée ou la réponse?.
Merci d'avance pour vos réponses avisées.:P

12/02/2009, 22h49
drakkar_agfa

Bonjour,

Essais ceci:

Code:

Me.Controls("CheckBox" & j).Value

Ça devrait fonctionner!

Merci d'avoir répondu si vite.
Cependant, mon problème n'est pas résolu.
Code:

1 2 3 4 5 6 7 8 9 Sub programme() Dim j As Integer j = 1 If Me.Controls("CheckBox" & j).Value = True Then Worksheets("Feuil1").Cells(1, 1).Value = 1 Else Worksheets("Feuil1").Cells(1, 1).Value = 0 End If End Sub
Ce code me met comme message d'erreur: "Utilisation incorrecte du mot clé Me"

Si ce code marche chez toi c'est peut-etre une histoire de librairie.
De plus, il existe plusieurs types de checkbox sous Excel.
Est-ce que ca peut jouer?

13/02/2009, 09h21
ucfoutu

Bonjour, astorix,

drakkar_agfa t'a répondu en croyant que tu étais sur un userform, qui utilise la collection Controls.
Sur une feuille, la collection est Shapes et Me est ActiveSheet

Remplace donc Me.Controls par ActiveSheet.Shapes dans le code que t'a montré drakkar_agfa
13/02/2009, 14h52
drakkar_agfa

Merci pour la correction ucfoutu, j'avais lu un peu vite!

Bonjour ucfoutu,

je suis moi même bloqué face à des checkbox ("boite à outils controle") sur ma feuille Excel. Je n'arrive pas à récupérer la valeur des checkbox dans cette boucle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public Sub ctrl_pavenum_0()
 
Dim i As Long
Dim val_bool_chk As Boolean
Dim toto As Variant
 
For i = 1 To 8
    toto = Feuil2.Shapes("chk_s" & i).Name ' Fonctionne : donne le nom
 
    If (ActiveSheet.Shapes("chk_s" & i).Value = True) Then ' Ne fonctionne pas : renvoie l'erreur "Propriété ou méthode non gérée par cet objet"
 
    End If
 
    Select Case val_bool_chk
        Case True: val_bool_chk = False
        Case False: val_bool_chk = True
    End Select
 
Next i
 
End Sub

Une petite idée ? :mrgreen:

13/02/2009, 18h39
ucfoutu

Une idée, thomcat ?

Une question, plutôt :

Où se trouve ta checkbox ?
sur la feuille en cours (ActiveSheet) où sur la feuille Feuil2 ?
En répondant, tu te répondras à toi-même (je parie) !
13/02/2009, 18h52
thomcat
La checkbox se trouve sur la feuille (WorkSheet) "Feuil2", également la feuille en cours "ActiveSheet". J'ai bien esseyé les deux, mais sans succès.
Code:

1 2 Feuil2.Shapes("chk_s" & i).Value ' Donne l'erreur ci-dessus ActiveSheet.Shapes("chk_s" & i).Value ' Donne l'erreur ci-dessus
13/02/2009, 19h28
astorix

Saut thomcat
J'ai moi aussi le même problème qui persiste sous 2007.
Travailles-tu sous Excel 2003, 2007, ou autre?

Si quelqu'un peut donner un exemple simple pour que l'on puisse tester, ce serait sympa!
13/02/2009, 20h05
ucfoutu

C'est bizarre, votre truc !...

Ce qui m'interpelle par ailleurs est la nature du message d'erreur, à savoir :

Citation:

"Propriété ou méthode non gérée par cet objet"

C'est comme si Excel ne reconnaissait pas la propriété Value ou qu'elle ne pouvait renvoyer une booléenne !

A essayer, donc :
1) sans mettre la propriété Value du tout, puisqu'elle est celle par défaut
2) idem mais sans mettre = True
3) idem mais en mettant = -1

Voilà qui m'intéresse !

A essayer également (tendrait à faire face à tout, peut-être) :

Code:

If Cbool(Feuil2.Shapes("chk_s" & i)) then
13/02/2009, 21h03
Pierrot93
Bonsoir à tous

si l'objet est sur la feuille, peut être une solution comme ceci :
Code:

1 2 x = Feuil1.Shapes("CheckBox" & i).DrawingObject.Object.Value
renvoie la valeur dans la variable booleenne "x"

bonne soirée
@+

C'est bien à ca que tu pensais, pierrot93?
Code:

1 2 3 4 5 6 7 8 9 Sub programme() Dim i As Integer Dim x As Boolean i = 2 x = Worksheets("Feuil1").Shapes("CheckBox" & i).DrawingObject.Object.Value If x = True Then Worksheets("Feuil1").Cells(1, 1).Value = 1 End If End Sub
L'erreur "L'element portant ce nom est introuvable" apparait.

Bonne soirée

13/02/2009, 21h30
Pierrot93

Re

oui, le code donné fonctionne sous 2003, tu as bien adapté nom de la feuille et nom de l'objet ?
13/02/2009, 21h41
astorix

Le nom de la feuil et correct et le numéro de la checkbox aussi.
J'essayerais à l'occasion sur 2003.
@+ et encore merci.

Bonsoir Pierrot93, je viens d'esseyer ton code, miracle ça marche ! Merci mille fois, voilà qui va alléger mon code ... et remplacer 100 lignes par 10 ;-)

Peux tu m'expliquer pourquoi il faut rajouter .DrawingObject, car cette propriété n'est pas définie dans la liste proposée lorsque je tape mon code ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Sub ctrl_pavenum_1() Dim val_bool_chk As Boolean Dim i As Long i = 1 val_bool_chk = Feuil2.Shapes("chk_s" & i).DrawingObject.Object.Value Select Case val_bool_chk Case True: Feuil2.Shapes("chk_s" & i).DrawingObject.Object.Value = False Case False: Feuil2.Shapes("chk_s" & i).DrawingObject.Object.Value = True End Select End Sub

14/02/2009, 10h32
Pierrot93

Bonjour,

sauf erreur de ma part "DrawingObject" ne serait pas une propriété, mais plutôt un "sous objet" du "shape", enfin me semble t'il...

Je ne peux te dire pourquoi il n'est pas proposé lors de la saisie intuitive. Par contre si tu affectes ton "shape" à une variable, tu vois bien cet objet dans la fenêtre de variable locales.

bonne journée
@+
14/02/2009, 10h32
astorix

Youpi! J'ai trouvé d'ou venait mon problème. :yaisse2:
Excuse-moi Pierrot93 mais ton code marche très bien.
:king: Chapeau pour ta maitrise de ces codes un peu brumeux (en tout cas pour moi).

:cry:Cependant mon problème est que ton code ne marche que pour des checkboxs dont la zone nom (en haut à gauche de l'écran) indique checkbox1.
cependant j'ai des checkboxs dont la zone nom indique controle3, controle5, etc.

J'ai donc plus de 55 checkbox dont la zone nom indique controle"i".
Je rappelle que je suis directement dans la feuil1.
que je n'ai pas insérer moi-même ces checkboxs et ne sait pas d'où elles ont été insérées.
et que ton code ne marche pas avec ces checkboxs mystère:oops:

@+.
14/02/2009, 10h42
astorix

Autant pour moi , ton code marche très bien même avec mes checkbox ayant pour zone de nom "controle 3"

Si quelqu'un sait d'où vient ce "controle 3", je suis preneur.

:salut:

PS: Pierrot93 the :king: