Discussion :

[geforce74]

Bonjour,

Etant technicien informatique, pour les besoins de mon travail (surtout gagner du temps) j'ai cherché à automatiser via Vb6 une manipulation sur une grosse base de donnée.
Je vous explique le problème, en esperant que quelqu'un ai une solution relativement simple, je ne connais pas grand chose en developpement...

Je cherche à faire une sorte de boucle, permetant de verifier sur toutes mes checkbox (environ 160) la "value" suite à l'appuis sur un bouton, et d'enregistrer dans un fichier texte le Caption de ces checkbox. Puis de l'executer en msdos (ca je sais faire) grace à un exe.

Mes portes ont pour Caption : TORQxxx (xxx étant leurs numéro)
Idéalement, le fichier texte devrait avoir pour forme :
TORQ001
TORQ002
TORQ146
etc ...

Avez vous une idée, si la chose est faisable ou si je perds mon temps.
Merci par avance

[zazaraignée]

Salut

La solution des groupes de contrôles est encore une fois (parce que très souvent traitée ici) à l'honneur.

Tu crée le premier checkBox, lui attribue un nom et mets sa propriété Index à 0.
En faisant des Copier / Coller de ce contrôle, tu auras tous tes CheckBox et tu pourras les manipuler comme ceci:

Code :

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

1
2
3
4
5
6
Dim i As Integer
For i = 0 to TORQ.Count - 1
    If TORQ(i).Checked = 1 Then
        ...
    End If
Next

[geforce74]

Je te remercie de ta réponse rapide, je teste ca dès demain, là c'est l'heure de rentrer à la maison.
Bonne soirée

[geforce74]

Bonjour,

J'ai rajouté ces quelques lignes dans mon code, et une erreur reviens à chaque test :

Run-time error '438':
Object doesn't support this property or method

Sur le debug il me souligne la ligne :

Code :

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

1
2
 
If TorQ(i).Value = 1 Then

(j'ai essayé avec .Value et .checked)

Mon code pour le bouton testé est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub ouv_urg_Click(Index As Integer)
Dim i As Integer
For i = 0 To TorQ.Count - 1
    If TorQ(i).Value = 1 Then
    MsgBox "plop", , "plop"
    End If
Next
End Sub

Dans Vb, mes checkbox ont pour nom : TORQxxx(xxx)
le (xxx) étant surement due à l'index
J'ai donc essayé avec

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ouv_urg_Click(Index As Integer)
Dim i As Integer
For i = 0 To TorQ.Count - 1
    If TorQ(i)(i).Value = 1 Then
    MsgBox "plop", , "plop"
    End If
Next
End Sub

Mais là il me renvoit :
Run-time Error '344':
Must specify index for object array


Le msgbox Plop est juste là pour tester le fonctionnement
A quoi correspond cette erreur ?
Merci d'avance,
Ge Force

[Delbeke]

Hum, Il y a eu quiproco, je crois
Dans ta feuille, tous les checkbox doivent avoir la meme propriété name, seule la propriété index doit changer. dans ce cas, tous les composants portant le meme nom forment un groupe. On peut alors accèder a chacun des membres du groupe par son index.
Tu peux avoir plusieurs groupes aussi, a ce momment la , tous les composants de cet aurte groupe doivent avoir le meme nom, différent de ceux du premier groupe.
Exemple, une serie de checkbox portent le nom TorQ1 et une autre serie TorQ2. Dans le premier groupe, il y a 10 checkbox et dans le deuxieme 5
on pourrait alors ecrire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For iPnt=0 to 9
 if TorQ1(iPnt)=1 then
  'bla bla
 end if
next
For iPnt=0 to 4
 if TorQ2(ipnt)=1 then
  'blable
 end if
Next

Voila j'espere que c'est plus clair maintenant

[geforce74]

Génial Je vais activer le neurone et essayer d'integrer (et digérer) ta réponse
C'est pas évident de faire ce genre de choses en ayant jamais fais de developpement avant...

Tu as une idée pour réussir a envoyer le Caption de mes TORQ dans un fichier texte dans le format :

TORQxxx
TORQxxx
TORQxxx

Le but ultime étant de generer un fichier texte contenant mes TORQ cochées, et executer mon autre script pour l'integrer à la base.
De la sorte j'aurai un joli prog qui evitera de cliquer sur chaque porte à changer d'état

PS : merci beaucoup à vous amis informaticiens de l'autre bord (des developpeurs ^_^) de me dépanner, j'apprecie