Discussion :

[astorix]

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 :

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

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.

[drakkar_agfa]

Bonjour,

Essais ceci:

Code :

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

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

Ça devrait fonctionner!

[astorix]

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

Code :

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

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?

[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

[drakkar_agfa]

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

[thomcat]

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 :

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