Discussion :

[defluc]

Bonjour

J'ai placé deux cases à cocher sur une feuille de calcul.
La première est cochée et l'autre non.

A l'exécution du code suivant :

Code :

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

1
2
3
4
5
6
7
8
Sub Caseàcocher2_QuandClic()
  Dim i As Integer
  For i = 1 To 2
  If ActiveSheet.CheckBoxes(i).Value = True Then _
       MsgBox "Case " + Str(i) + " cochée" Else _
       MsgBox "Case " + Str(i) + " non cochée"
  Next
End Sub

, le message "non coché" m'est renvoyé pour les deux cases.

Comment cela est-il possible ?

Merci d'avance pour votre réponse

[LeForestier]

Bonjour,
En VBA il n'y a pas d'indexation des contrôles, il faut tester le dernier chiffre du nom
du genre...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Caseàcocher2_QuandClic()
  Dim i As Integer
    If ActiveSheet.CheckBoxes1.Value = True Then _
       MsgBox "Case " + Str(i) + " cochée" Else _
       MsgBox "Case " + Str(i) + " non cochée"
    end if
    If ActiveSheet.CheckBoxes2.Value = True Then _
       MsgBox "Case " + Str(i) + " cochée" Else _
       MsgBox "Case " + Str(i) + " non cochée"
    end if
  End Sub

Cherche dans le forum, il y à des exemples pour travailler sur des collections.
A+

[defluc]

Pourtant mon code ne donne aucun message d'erreur.

Par contre ton instruction

Code :

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

     If ActiveSheet.CheckBoxes1.Value = True

donne l'erreur d'exécution 438

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

[LeForestier]

J'ai repris le nom que tu donne, mais si c'est le nom d'origine il n'y a pas de eS au bout de CheckBox1
et j'ai testé..

Code :

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

1
2
3
4
5
6
7
8
Private Sub CheckBox1_Click()
    e = CheckBox1.Value
    If CheckBox1.Value Then
        Debug.Print "Vrai"
    Else
        Debug.Print "Faux"
    End If
End Sub

C'est conforme.
A-tu chercher sur le forum comme dit ci-dessus ?
A+
EDIT:
Et comme tu nomme CheckBoxes(i), il n'y à pas d'erreur parce que VBA le considére comme un tableau Variant.
EDIT 2:
Bon, j'ai chercher pour toi voir le 2ém code de ce lien par Ouskel'n'or

[defluc]

Ca ne marche pas, à mon avis parce que j'ai une version française de Office 2003.
C'est la raison pour laquelle l'affectation de macro à la case à cocher génère

Code :

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

Sub Caseàcocher2_QuandClic()

plutôt que

Code :

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

Private Sub CheckBox1_Click()

J'ai donc essayé

Code :

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

1
2
3
4
5
    If  Caseàcocher2.Value Then
        Debug.Print "Vrai"
    Else
        Debug.Print "Faux"
    End If

Là, j'ai l'erreur "Objet requis"

[defluc]

J'ai trouvé.

Code :

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

1
2
3
4
5
6
7
8
Sub Caseàcocher2_QuandClic()
  Dim i As Integer
  For i = 1 To 2
  If ActiveSheet.CheckBoxes(i).Value = xlOn Then _
       MsgBox "Case " + Str(i) + " cochée" Else _
       MsgBox "Case " + Str(i) + " non cochée"
  Next
End Sub