optimisation d'un code

**oscar.cesar** · 10/05/2009, 21h01

bonsoir le forum
j'ai besoin de votre expertise
voici le code que j'ai ecrit et je souhaierai savoir si il peut etre optimise

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
19
20
21
22
 
If UserForm1.CheckBox12.Value = True And UserForm1.CheckBox16.Value = False Then
      Res = TbPermutations(Tabl, k)   'creation des combi avec permutation
                  For Bcle = LBound(Res) To UBound(Res) 'lit toute les combinaison dans le tableau
                      nbcombi = nbcombi + 1  'incremente le nombre de combinaison total presente dans le tableau
                Next Bcle
       End If
 
      If UserForm1.CheckBox12.Value = False And UserForm1.CheckBox16.Value = False Then
                  Res = TbCombinaisons(Tabl, k)   'creation des combi sans permutation
                  For Bcle = LBound(Res) To UBound(Res) 'lit toute les combinaison dans le tableau
                      nbcombi = nbcombi + 1  'incremente le nombre de combinaison total presente dans le tableau
                Next Bcle
      End If
 
      If UserForm1.CheckBox12.Value = False And UserForm1.CheckBox16.Value = True Then 'creation des combi via le systeme reducteur
 
                For Bcle = LBound(tableaureduc) To UBound(tableaureduc) 'lit toute les combinaison dans le tableau
                    nbcombi = nbcombi + 1  'incremente le nombre de combinaison total presente dans le tableau
                Next Bcle
 
      End If

merci de votre aide

**ucfoutu** · 10/05/2009, 21h39

Bonsoir,

difficile de répondre avec assurance sans savoir tout ce qui est "derrière" ce que tu nous montres.
Si toutefois j"ai bien deviné, ce que tu as écrit devrait se traduire ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim toto As Integer
  toto = Val(Abs(CheckBox12.Value) & Abs(CheckBox16.Value))
  Select Case toto
    Case 0
      Res = TbCombinaisons(Tabl, k)
    Case 10
      Res = TbPermutations(Tabl, k)
    Case 11
      Res = tableaureduc
  End Select
  nbcombi = nbcombi + UBound(Res) - UBound(Res) + 1

**oscar.cesar** · 10/05/2009, 21h43

bonsoir le forum , ucfoutu

je regarde

**ilank** · 10/05/2009, 22h00

Bonsoir à tous , le forum,

peut-être ceci

Code :

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

1
2
3
If not UserForm1.CheckBox12.Value Or Not UserForm1.CheckBox16.Value Then
 ncombi=1+ncombi+Iif(UserForm1.CheckBox16,UBound(Tableaureduc)-LBound(TableauReduc),Iif(UserForm1.CheckBox12.Value, UBound(TbPermutations(Tabl, k))-LBound(tbPermutations(Tabl, K)),UBound(TbCombinaisons(Tabl, k))-LBound(TbCombinaisons(Tabl, K))))
End If