Impossible de communiquer avec les checkbox ?

Bonjour à tous,

Je dispose d'un tableau assez volumineux possédant 3 checkbox par ligne. Ce sont des checkbox du type "contrôle de formulaire".
Par défaut, Excel les nomme "Case à cocher 1"; "Case à cocher 57"...
Je les ai renommées "casacocher1" etc pour éviter les espaces.

J'essaye simplement de faire une manipulation simple et me voilà bloqué. Voici le code :

Code:

---

1 2 3 4 5 6 7 8

Sub Caseacocher1()   If ActiveSheet.casacocher1.Value = True Then ActiveSheet.casacocher2.Value = False   End If   End Sub

---

On me retourne une erreur "Propriété ou méthode non gérée par cet objet"
J'ai essayé toutes les variantes du style If Workbooks("...").Sheets("...") etc, mais rien n'y fait.

Cela m'étonne beaucoup car ce n'est pas mon premier projet contenant des checkbox, mais je n'ai jamais eu ce problème...

C'est peut être gros, mais je ne vois pas :weird:

Merci d'avance !

Bonjour,

Affectes cette macro à la case à cocher "casacocher1" et cliques dessus pour voir le résultat sur l'autre (casacocher2). Les contrôles issus de la barre d'outils "Formulaire" n'ont pas les même méthodes et propriétés :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub CocherDecocher()   With ActiveSheet   If .Shapes("casacocher1").ControlFormat.Value = xlOn Then .Shapes("casacocher2").ControlFormat.Value = xlOff Else .Shapes("casacocher2").ControlFormat.Value = xlOn End If   End With   End Sub

---

Bonjour Theze,

Super ça fonctionne :) C'est vrai que maintenant que j'y repense, j'utilisais d'habitude les checkbox directement dans la création de formulaires...

Est-ce que tu connaitrais un moyen de renommer facilement toutes mes checkbox plutot que de les passer en revue une par une ? J'en ai un petit paquet :?

Merci à toi !


Cordialement

Rebonjour,

je me permet de poser une autre question à la suite de ce sujet, si cela pose problème j'en créerai un nouveau.

Chaque ligne de mon tableau comporte 3 checkbox ("Pas concerné" ; "Concerné" ; "Important")
Je veux que, lorsque la box "Pas concerné" de la ligne est sélectionnée, toute la ligne en question soit masquée, à l'exception des 3 dernières colonnes qui contiennent les checkbox, de manière à pouvoir masquer, démasquer, remasquer...
(Les checkbox se trouvent à l'extérieur de la zone d'impression)

Pièce jointe 414569

Des idées ? :)

Cordialement

Bonjour
la masquage d'une ligne :
1) masque la ligne entière
2) ne masque pas tes checkboxes. Celles-ci ne seront toutefois alors plus en regard des cellules concernées.

Pour renommer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Renommer()   Dim S As Shape Dim I As Integer   For Each S In ActiveSheet.Shapes   Debug.Print S.Name 'ici, le nom de l'objet tel que vu par le compilateur S.Name = Replace(S.Name, " ", "") 'suppression des espaces I = I + 1 S.TextFrame.Characters.Text = "Ma Case à Cocher Numéro " & I 'ici, titre de la case à cocher   Next S   End Sub

---

Re,

comme le dit unparia (que je salut au passage ;)) tu ne peux masquer que les lignes ou colonnes entières et non une plage de cellules en particulier !
La case à cocher ne sera pas masquée avec la ligne mais par contre, elle sera déplacée sur la ligne du dessous ce qui ne correspondra plus !
Un petit exemple, tu colles le code ci-dessous dans un module standard, tu poses 3 ou 4 cases à cocher sur différentes lignes, augmentes les hauteurs de lignes afin que chaque case soit bien au milieu de chaque ligne puis tu lies chaque cas à cocher à cette procédure (clic droit, affecter une macro) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub AfficherMasquer()   Dim S As Shape   Set S = ActiveSheet.Shapes(Application.Caller)   Rows(S.TopLeftCell.Row).EntireRow.Hidden = IIf(S.ControlFormat.Value = 1, 1, 0)   End Sub

---

Salut.

Utilisation totalement détournée d'un outil qui n'est pas fait pour cela => usine à gaz...

Qui plus est avec les cellules fusionnées et autres joyeusetés. C'est vrai qu'il est possible de réaliser beaucoup avec Excel, mais parfois, il faut peut-être reconnaître qu'on tire un peu trop sur la ficelle et accepter les limites d'un tableur... :?