Discussion :

[f_herpe]

Bonjour,
Je crée des checkbox dynamiquement avec:

Code :

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

1
2
3
4
5
6
7
8
   Set objNew = document.createElement("input")
            	With objNew
            		.type = "checkbox"
                	.id = "chkItem"
                	.setAttribute "assoc", intItem
                	.attachEvent "onclick", getRef("chkItem_onclick")
            	End With
            	.appendChild objNew

Et je veux vérifier chacun des checkbox pour voir son état. J'utilise le code suivant (qui fonctionne, mais pas pour les checkbok dynamique):

Code :

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

1
2
3
4
5
6
	For each checkbox In frmChangeOU.chkItem
	       if frmChangeOU.check(i).Checked = True Then
		msgbox frmchangeou(i).value
	       End If
	i=i+1
	Next

NOTE: frmChangeOU étant mon <form> où est créé mes checkbock.

Le tout me donne le message d'erreur Variable is undefined 'checkbox' pour

Code :

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

For each checkbox In frmChangeOU.chkItem

[Danyel]

Une petite recherche sur le forum t'aurais donne la reponse à ton probleme.

Code :

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

For Each x As CheckBox In frmChangeOU.Controls

[f_herpe]

Code :

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

For Each x As CheckBox In frmChangeOU.Controls

Cela ne fonctionne pas

Erreur: Expected In

[Danyel]

Il faut chercher ailleurs, car ce code doit fonctionner.

[Faladin]

Petite précision...

Tes checkbox sont bien créés dans le frame:
frmChangeOU.chkItem

Sinon ça sert à rien de faire un For each dedans...

[f_herpe]

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
72
 
        If Exists("brFrmLine") Then
        	If IsCollection(brFrmLine) Then
            	For intItem = brFrmline.length - 1 To 1 Step -1
                	.removeChild brFrmLine(intItem)
                	.removeChild .txtItem(intItem)
                	.removeChild .chkItem(intItem)
              	next
            End If
            frmchangeou.removeChild brFrmLine
            frmchangeou.removeChild .txtItem
            frmchangeou.removeChild .chkItem
        End If
 
		Do Until objExec.Status = 0
   			WScript.Sleep 100
		Loop
 
		intItem = 0
		do until objExec.StdOut.AtEndOfStream
			present = 0
			strOutput = objExec.StdOut.readline()
			l1 = instr(strOutput,",")
			l2 = instr(strOutput,"=")
			l = right(left(strOutPut,l1-1),len(left(strOutPut,l1-1))-l2)
			If left(l,10) = "EAREntrant" Or left(l,10) = "EARSortant" or l = "msmq" Or l = "PB18F" Or l = "PB19F" Then
				present = 1
			else
        		If Exists("brFrmLine") Then
        			If IsCollection(brFrmLine) Then
						If brFrmline.length <> 0 Then
							For intItem2 = 0 To brFrmline.length - 1
								If l = myArray(intItem2) Then
									present = 1
								End If
							Next
						End If
					End If
				End If
			End if
			If ucase(l) <> ucase(lt) And present = 0 And right(left(strOutput,3),2) = "CN" Then
            	Set objNew = document.createElement("input")
            	With objNew
            		.type = "checkbox"
            		'.name = "check"
                	.id = "chkItem"
                	.setAttribute "assoc", intItem
                	.attachEvent "onclick", getRef("chkItem_onclick")
            	End With
            	.appendChild objNew
 
	            Set objNew = document.createElement("input")
    	        With objNew
        	        .type = "text"
            	    '.name = "text"
                	.id = "txtItem"
                	.value = l
            	End With
            	.appendChild objNew
 
                myArray(intItem) = l
 
            	Set objNew = document.createElement("br")
            	With objNew
            		.id = "brFrmLine"
            	End With
            		.appendChild objNew
 
            	intItem = intItem + 1
            End If
		Loop
	end with

Voici le code complet