Discussion :

[bru.antoine]

Bonjour,
Ma question est quelqu'un sait-il s'il est possible de modifier l'état(coché ou décoché) d'une case à cocher via une focntion VB?
Je ne parle pas de checkbox mais de case à cocher, quand j'appel une case à cocher j'ai une erreur 424 'objet inconu' alors que quand j'appel une checkbox tout se passe comme prévu.
Mon problème est que je dois partir d'un fichier ou il y a déjà de très nombreuse case à cocher et que je n'ai pas trop envie de toutes les changer en checkbox...

J'espère tout du moins qu'il est possible d’interagir avec du code vb sur une case à cocher. J'ai lu quelque part qu'il ne serait possible d’interagir que sur des checkbock. Est-ce vrai? Sinon quel nom de variable excel donne t'il par défaut à une case à cocher.
Merci

Code :

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

1
2
3
4
5
6
7
 
Sub Effacertout()
'KO : Cette ligne provoque une erreur 424 'objet inconu'
Caseàcocher1.Value = False
'OK : Cette ligne décoche la CheckBox
CheckBox1.Value = False
End Sub

[Theze]

Bonjour,

En parlant de "Case à cocher" tu parle de celles issues de la boite "Contrôles Formulaire" déposés sur une feuille Excel ? Regarde si le code convient :

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 Effacertout()
 
    Dim CaseACocher As Shape
 
    For Each CaseACocher In Worksheets("Feuil1").Shapes
 
        If CaseACocher.Type = msoFormControl Then
 
            CaseACocher.ControlFormat.Value = 0
 
        End If
 
    Next
 
End Sub

Hervé.

[bru.antoine]

Oui en effet vous avez raison, pour le type formulaire (case à cocher) et activeX (checkbox).
J'ai essayé votre code qui me paraissait très bien mais malheureusement j'ai une erreur à l’exécution 438 'propriété ou méthode non gérée par cet objet'.
pourtant vous testez le type d'objet. peux-etre un test supplémentaire est nécessaire mais je ne connais pas les différents champs de cet objet comment les trouver?

cependant suite à l’exécution de votre fonction toutes les coches sont décochées mais un autre objet doit être identité à tord comme une case à cocher. Et du coup l'utilisateur doit ignorer cette erreur : un peu gênant...

[bru.antoine]

J'ai fini par trouver une solution :
Ajouter un test sur le champ nom de la variable à cocher en plus du type.
En effet chaque case à cocher semble avoir comme nom "Check Box N".
Tester le type ne suffit pas car des boutons ou autre peuvent avoir ce même type et du coup générer une erreur.
Merci pour votre aide.

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
 
Sub Effacertout()
 
    Dim CaseACocher As Shape
 
    For Each CaseACocher In Worksheets("Feuil1").Shapes
 
        If CaseACocher.Type = msoFormControl Then
 
            If CaseACocher.Name Like "Check Box*" Then
 
                CaseACocher.ControlFormat.Value = 0
 
            End If
 
        End If
 
    Next
 
End Sub