Discussion :

[dodo28]

Bonjour,
Pouvez vous m'aider sur ce problème?

Je voudrais décocher un nombre variable de case à cocher via une boucle, j'ai fait ce code mais qui ne marche pas et mes recherches fut vaine sur le net.
Voici le code effectuer, le 4 sera remplacer par une variable donc ca ne sera pas obligatoirement toutes les cases à cocher du formulaire.
les cases a cocher se nomme option11, option12, option13, etc...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim test As String
Dim I As Integer
 
With Me
 For I = 1 To 4
 
    Test = "Option1" & I
    .Cadre2.Test.Value = False
 
 Next
End With

Le message d'erreur obtenu est : "erreur de compilation, membre de méthode ou de données introuvables"

Merci beaucoup pour votre aide

[ClaudeLELOUP]

Bonjour,

Je voudrais décocher un nombre variable de case à cocher via une boucle

Quel est ton critère pour dire que cette (ces) case(s)-là doit(doivent) être décochée(s) ?

Veux-tu simplement décocher toutes celles qui le sont ?

[dodo28]

Bonjour et merci,
Voici mon code en entier On coche la case si la ligne concerné dans la table est déjà presente:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
Dim SAISON As Integer
Dim INSEE As Integer
Dim ESPECE As String
Dim NbreLigne As Integer
Dim I As Integer
Dim Choix As String
 
With Me
 
    SAISON = Te_Saison.Value
    INSEE = .LST_commune.Column(1)
 
'définit la variable ESPECE  
 
    Select Case Cadre13
 
        Case 1
        ESPECE = "CORNEILLE NOIRE"
        Case 2
        ESPECE = "CORBEAU FREUX"
        Case 3
        ESPECE = "PIE BAVARDE"
        Case 4
        ESPECE = "RENARD"
        Case 5
        ESPECE = "FOUINE"
 
    End Select
 
 
    'compte le nombre de ligne concerné par la saison et la commune
    SaisonInsee = "[SAISON] = " & SAISON & " And [INSEE] = " & INSEE & " "
    NbreLigne = DCount("*", "Table_PresencePredateur", SaisonInsee)
 
 
    For I = 1 To NbreLigne
 
'définit la variable Source
		Source = "Source" & I
 
		Select Case Source
 
			Case "source1"
			Source = "PIEGEAGE"
			Case "source2"
			Source = "CHASSE"
			Case "source3"
			Source = "COLLISION"
			Case "source4"
			Source = "VISUELLE"
 
		End Select
 
		'on compte
		SaisonInseeEspSourc = "[SAISON] = " & SAISON & " And [INSEE] = " & INSEE & " And [ESPECE] =  " & Chr(34) & ESPECE & Chr(34) & " And [SOURCE_INFO] =" & Chr(34) & Source & Chr(34) & " "
 
		compte = DCount("*", "Table_PresencePredateur", SaisonInseeEspSourc)
 
	'l'enregistrement existe on coche la case
 
		If compte > 0 Then
		'On définit le nom de la case a cocher			 
		Test = "Option1" & I
               'on coche la case a cocher
		.Cadre2.Test.Value = True
 
		end if
	Next
 
	End with

J'espère avoir été assez précis pour t'aider.
Merci

[ClaudeLELOUP]

Ce que tu montres, c'est probablement le code qui va cocher certaines cases.


Que veux-tu faire avec ton code ? Rendre non cochées toutes les cases qui l'ont été ?

[dodo28]

Je veux cocher les cases qui l'ont déjà été. Si l'enregistrement est dans la table la proposition doit être cocher, ceci pour éviter, deux enregistrement identiques.

[dodo28]

Je crois que j'ai trouvé ca a l'air de marcher avec

Code :

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

Me.Controls(test).Visible = False

[ClaudeLELOUP]

Tant mieux, car je n'ai pas encore compris ! Mais ne t'inquiète pas pour ça !

[dodo28]

Je suis désolé de m'être mal exprimé.

Ca cela ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim test As String
Dim I As Integer
 
With Me
 For I = 1 To 4
 
    Test = "Option1" & I
    .Cadre2.Test.visible = False
 
 Next
End With

Ca ca marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim test As String
Dim I As Integer
 
For I = 1 To 2
 
    test = "Option1" & I
    Me.Controls(test).Visible = False
 
Next

Merci beaucoup pour ton aide.