code vba ne marche pas

[ion_ion]

Bonjour à tous,

Je dispose d'un tableau avec 31 operéations possible et des renseignements à donner si ces operations ont ete realisées, j'ai donc fais une boucle

pouvez vous me dire pourquoi ce code ne marche pas SVP

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub OP1_1_AfterUpdate()
DIM i as integer
for i = 1 to 31
If [OP1_i] = 0 Then
[OP2_i].Visible = False
[OP3A_i].Visible = False
[OP3P_i].Visible = False
Else
[OP2_i].Visible = True
[OP3A_i].Visible = True
[OP3P_i].Visible = True
End If
Next i
End Sub

merci d'avance

[loufab]

Bonjour,

Tu fais 31 fois la même chose, une seule fois aurait suffit.

Quel est le but exact de cette manoeuvre ?!

Cordialement,

[ion_ion]

Bonjour LOUFAB,

Il s'agit d'opérations réalisées sur une voiture, et j'ai 31 opérations possibles.
Je te donne un exemple concret :

la première opération possible est avoir changé sa batterie :
soit dans ma table, OP1_1 = combien de fois avez vous changé votre batterie ?
Si je l'ai fait au moins 1 fois alors je veux savoir comment en OP2 puis une autre question appelée OP3A et encore une autre OP3P.

Et cela se répète toujours de la même façon pour 31 opérations différentes.
J''ai donc OP1_1 à OP1_31 (combien de fois avez vous fait ?)
OP2_1 à OP2_31 (comment ?)
OP3A_1 à OP3A_31 et ainsi de suite.

Donc mon code est pour tout les OP1_x =0 je saute les OP2_x,OP3A_x et OP3P_x

J'espère avoir été clair.

Merci de ton aide.

Car pour le moment j'ai écrit mon code 31 fois ce qui est nul mais je ne peux pas rester trop longtemps sur cette difficulté car j'en ai plein d'autres!!! lol

[loufab]

Dans ce cas il faut écrire correctement les noms des contrôles :

Code :

1
2
3
4
5
6
7
...
For i = 1 to 31
   If me.controls("OP1_" & i) = 0 Then
      me.controls("OP2_" & i).Visible = False
   ...
Next i
End Sub

Cordialement,