Discussion :

[monopole]

bonjour, je voudrais remplacé le k dans ce code mais ça donne toujours le message procedure sub ou fonction non définie, sachant que debut_1....25 sont des champs de texte.

Code :

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

1
2
3
4
5
6
7
 
For K = 1 To 25
val_debut_(K) = CLng(IIf(debut_(K).Text = "", 0, debut_(K).Text))
val_recu_(K) = CLng(IIf(recu_(K).Text = "", 0, recu_(K).Text))
val_traite_(K) = CLng(IIf(traite_(K).Text = "", 0, traite_(K).Text))
reste_(K).Text = CLng(CLng(val_debut_(K)) + CLng(val_recu_(K))) - CLng(val_traite_(K))
Next K

[sovo]

je voudrais remplacé le k dans ce code mais ça donne toujours le message procedure sub ou fonction non définie

et on peut savoir a quel ligne il s'arrete ??

sachant que debut_1....25 sont des champs de texte.

Est que tu en a fait un groupe controles ??

[monopole]

c'estbon j'ai oublié de precisé que je remplace debut_1,debut_2,debut_3....jusqu'au debut_25 par debut_(k)
alors comment puis je avoir la solution de cette boucle sachant que j'ai toujours le message procedure sub ou fonction non définie,

Code :

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

1
2
3
4
5
6
7
 
For k = 1 To 25
val_debut_k = CLng(IIf(debut_(k).Text = "", 0, debut_(k).Text))
val_recu_k = CLng(IIf(recu_(k).Text = "", 0, recu_(k).Text))
val_traite_k = CLng(IIf(traite_(k).Text = "", 0, traite_(k).Text))
reste_k.Text = CLng(CLng(val_debut_k) + CLng(val_recu_k)) - CLng(val_traite_k)
Next k

[Le Pharaon]

sachant que debut_1....25 sont des champs de texte

Il ne faut pas confondre debut_(1) à debut_1.

COmme l'a dit sovo (ou sophos ) tu crées des groupes de contrôles.

[monopole]

je voudrai just savoir comment puis je remplaçé un champ de text debut_1 par debut_k ou debut(k) ou debut_("& k &") car j ai tous essayé , et merci de vos commentaires

[Le Pharaon]

Code :

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

1
2
3
4
5
6
dim c as control
For k = 1 To 25
<div style="margin-left:40px">for each c in Me.controles
  <div style="margin-left:40px">if c.name = debut_ & k then 
    ' Mets le code correspondant 
  end if</div>next</div>Next k

[sovo]

Code :

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

1
2
3
4
5
6
dim c as control
For k = 1 To 25
<div style="margin-left:40px">for each c in Me.controles
  <div style="margin-left:40px">if c.name = debut_& k then 
    ' Mets le code correspondant 
  end if</div>next</div>Next k

j'y avais pense mais je trouve que c'est trop long. J'ai une autre idee (presque similaire) mais j'ai besoin de plus de precision

c'est quoi

Code :

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

1
2
3
val_debut_k
val_recu_k
val_traite_k

[sovo]

Comme on te la dit, de cette maniere tu ne poura pas y arriver, ce serais plus simple en passant par un groupe de controle.

PS:

(ou sophos )