Discussion :

[Le_Phasme]

BOnjour,

Actuellement ce bout de code ne me plait pas du tout, mais je n'arrive pas à le faire marcher en dynamique :

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
 
 
        If Me.txtAptPropo1.Text <> "" Then MyTemplate.AddProposal(Me.txtAptPropo1.Text, _
                                                                IIf(Me.txtPrice1.Text <> "", Me.txtPrice1.Text, 0), _
                                                                IIf(Me.txtDeposit1.Text <> "", Me.txtDeposit1.Text, 0), _
                                                                IIf(Me.txtFee1.Text <> "", Me.txtFee1.Text, 0))
        If Me.txtAptPropo2.Text <> "" Then MyTemplate.AddProposal(Me.txtAptPropo2.Text, _
                                                                IIf(Me.txtPrice2.Text <> "", Me.txtPrice2.Text, 0), _
                                                                IIf(Me.txtDeposit2.Text <> "", Me.txtDeposit2.Text, 0), _
                                                                IIf(Me.txtFee2.Text <> "", Me.txtFee2.Text, 0))
        If Me.txtAptPropo3.Text <> "" Then MyTemplate.AddProposal(Me.txtAptPropo3.Text, _
                                                                IIf(Me.txtPrice3.Text <> "", Me.txtPrice3.Text, 0), _
                                                                IIf(Me.txtDeposit3.Text <> "", Me.txtDeposit3.Text, 0), _
                                                                IIf(Me.txtFee3.Text <> "", Me.txtFee3.Text, 0))
        If Me.txtAptPropo4.Text <> "" Then MyTemplate.AddProposal(Me.txtAptPropo4.Text, _
                                                                IIf(Me.txtPrice4.Text <> "", Me.txtPrice4.Text, 0), _
                                                                IIf(Me.txtDeposit4.Text <> "", Me.txtDeposit4.Text, 0), _
                                                                IIf(Me.txtFee4.Text <> "", Me.txtFee4.Text, 0))

Pouvez vous me dire comment recoder ca proprement?

[Pol63]

tu peux faire une fonction qui recoit un numéro et va chercher les valeurs dans les textbox

me.Controls(nom_du_ctrl_as_string) retourne le controle du nom, donc on peut concaténer une racine à un nombre, puis directcast sur textbox

après tu peux faire une boucle for qui appelle la fonction avec la valeur de l'itérateur