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

[Totanne]

Tu devrais essayer For Each x As CONTROL In frmChangeOU.Controls puis dans la boucle tester si ce control est une checkBox ...

[f_herpe]

Petite précision...

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

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

Comment je vérifie?

[Danyel]

Comment je vérifie?

Tu dois bien savoir ce que tu as mis dans ta form !!!

[Faladin]

Comment je vérifie?

Ben si tu crées dynamiquement tes checkbox tu dois les inclure dans le frame, sinon aucune utilité de faire un For each en cherchant quelque chose qui n'existe pas dans ce frame.

[f_herpe]

Tout le code en haut est inclus dans

Code :

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

With frmchangeou

[Danyel]

10€ que le code est pas de toi

Plus serieusement, frmchangeou c'est quoi comme objet ?

[f_herpe]

frmchangeou :

Code :

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

<form name="frmChangeOU" action="#" method="get">

Et oui, tout est de moi.

[Danyel]

Ah ok, ben voila qui est plus clair (pour tout le monde)
Ton frmchangeou, c'est pas un winform, mais juste le nom d'un formulaire internet et surement en asp ... donc rien a voir avec tout ce qu'on a dit !!!
Je transfere dans la bonne section