Discussion :

[Nahiko]

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 :

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

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

Merci d'avance !

[Theze]

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 :

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

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

[Nahiko]

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

[Nahiko]

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)



Des idées ?

Cordialement

[unparia]

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.

[Theze]

Pour renommer :

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
 
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

[Pierre Fauconnier]

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...