Discussion :

[lepirlouit]

bonjour, j'aimerais optimiser mon code suivant :

Code :

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

1
2
3
4
5
6
7
 If (Me.Text91 <> 0) Then varHeuresSup = varHeuresSup - Me.Text160 + Me.Text91
 If (Me.Text93 <> 0) Then varHeuresSup = varHeuresSup - Me.Text162 + Me.Text93
 If (Me.Text95 <> 0) Then varHeuresSup = varHeuresSup - Me.Text164 + Me.Text95
 If (Me.Text97 <> 0) Then varHeuresSup = varHeuresSup - Me.Text166 + Me.Text97
 If (Me.Text99 <> 0) Then varHeuresSup = varHeuresSup - Me.Text168 + Me.Text99
 If (Me.Text101 <> 0) Then varHeuresSup = varHeuresSup - Me.Text170 + Me.Text101
 If (Me.Text103 <> 0) Then varHeuresSup = varHeuresSup - Me.Text172 + Me.Text103

en fesant par exemple Me.Texti

quelle est votre solution ?

[Demco]

Interesse-toi a la collection Me.Controls. Il me semble qu'elle te permettra d'appeler les controls avec un nom dynamique.

En esperant t'aider.

[Tofalu]

Il est déjà optimisé. Le fait d'y ajouter une boucle for i= ... va ralentir le temps de traitement.

[lepirlouit]

Me.Controls contient tout les éléments de mon formulaire si je comprend bien

une copine m'a donné son code, mais cela ne m'aide pas bcp vu que son code parcours tout les text box, moi j'aimerais pouvoir accéder à la textBox nr 5 par exemple ou dans ce style là
et alors comment connaitre le nr de la textbox ? c le nr donné par défaut ?

[lepirlouit]

si je fait me.control(5) je peut accéder à un champ ?

[Tofalu]

Me.Controls("Texte"&5)

Mais c'est carrément déconseillé de nommer les textbox texteX. Donne leur des vrais noms, qui correspondent à leurs sens. D'autres part, je persiste, ton code précédent était optimisé.

[lepirlouit]

super pour Me.Controls("Texte"&5)

c'est ce que je cherchait
merci bcp

[lepirlouit]

voici donc mon code plus court

Dim i As Integer
For i = 91 To 103 Step 2
If (Me.Controls("Text" & i).Value > 0) Then varHeuresSup = varHeuresSup - Me.Controls("Text" & (i + 69)).Value + Me.Controls("Text" & i).Value
Next i


j'vais pouvoir optimiser le code de mon chez qui fesait 220 ko
car fesait 10 fois 100 lignes ce qui fait 1000 lignes mais qui fera plus que 102 lignes

merci pour la rapidité de réponse
je sens que j'vais poster plus souvent des questions ici mais d'abord chercher par moi même ^^

[Tofalu]

Le code est certes plus court, mais plus lent

[Demco]

je sens que j'vais poster plus souvent des questions ici mais d'abord chercher par moi même ^^

Oui, pense a la FAQ et sa fonction de recherche.

Tu as egalement la fonction rechercher du forum qui est une mine d'information, puis aussi la page de cours.