creer un controle calculé dans un formulaire

Question

Bonjour a tous!

J'avais une petite question sur la cr&#233;ation de controles calcul&#233;s dans un formulaire avec vba, &#224; savoir comment faire un calcul en fonction des autres controles et cela pour chaque ligne de mon formulaire.
j   'ai essay&#233; le code suivant:
'pour chaque control RCN
Dim RCN As Control  

For Each RCN In Form_Periodic_database 'form'
'mes conditions de calculIf Unsch.Value 0 Or Unsch6.Value 0 Then
'le controle est egal &#224; 
&#233;cartMTBUR.Value = "none define"
ElseIf (Unsch6 < Unsch) Then

&#233;cartMTBUR.Value = Abs(100 * (1 - (MTBUR6.Value / MTBUR.Value)))

Else
&#233;cartMTBUR.Value = Abs(100 * (1 - (MTBUR.Value / MTBUR6.Value)))
'valeur calcul&#233; en fonction des controles MTBUR et MTBUR6

End If
Le r&#233;sultat est que j'ai la  meme valeur partout donc le calcul se fait pour qu'une seule ligne et se r&#233;percute partout.

Dois je mettre les valeurs des controles dans des tableaux ou y'a t'il une syntaxe pour appeller ces valeurs une a une et effectuer le calcul ligne par ligne??

Merci d'avance.

Penny

rvblog · Answer

Salut penny05, bon, bon, bon... - tu énumères la collection xxx? du formulaire Form_Periodic_database! et ça marche ? (c'est éventuellement la collection Controls du formulaire, ou ContainedControls si elle existe, enfin bon, il faut écrire de façon explicite les propriétés qu'on utilise, ça élimine pas mal de problèmes, et ça augmente la lisibilité) - à chaque itération de ton énumération, tu n'utilises pas RCN, alors pourquoi fais-tu cette énumération? (si on observe bien, tu ne fais qu'une affectation dans écartMTBUR.Value, pourquoi d'autres valeurs changeraient?). - ton énumération va aussi passer sur écartMTBUR, Unsch, Unsch6, MTBUR, MTBUR6, est-ce voulu ? je ne comprend pas bien ton besoin, utilises tu un sous-formulaire? ou es-tu en mode Feuilles de Données, en mode continu? à+ rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

bonjour rvblog!
pour ce probleme j'ai pu me demerd&#233; finalement en cr&#233;ant des controles et en utilisant l'instruction IIf dans le g&#233;n&#233;rateur d'expression IIf( condition, expr si vrai, expr si faux) cela m'as permis d'obtenir les valeurs souhait&#233;es.

Mon soucis actuellemnt comme j'en parle sur mon dernier post c'est de faire des filtres sur des controles "txt" et les controles  cr&#233;es pourtant j'ai reussi a le faire sur d'autres type num&#233;rique. j'y comprends absolument rien!

Merci d'avoir r&#233;pondu.

rvblog · Answer

Dac, par contre, je suis désolé, mais tu connais ma devise, "pas avant la page 4"! :) à la page 4 alors, rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

OK d'acc!!
mais personne ne me r&#233;pond et je patine !

bon app faut pas enfeindre les r&#233;gles sur le forum!

merci encore.

Creer un controle calculé dans un formulaire

4 réponses

Discussions similaires