optimisation d'une procedure

Version imprimable

bonsoir à tous

ci dessous la procedure que je cherche à optimise
si vous avez besoin d'info suplementaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
 
'la plage de la feuille Sheets(UserForm3.ComboBox1.Text) commence toujours à la colonne G et ce finit à la colonne Z
'les donnes sont de type numerique entier
 If UserForm3.CheckBox7.Value = True Then
    Dim premcol As Long
    Dim dercol As Long
    Dim dercolnonvide As Long
    Dim F9affichx As Long
 
 
    For indexfiltre9ligne = 2 To Sheets(UserForm3.ComboBox1.Text).UsedRange.Rows.Count 'derniere ligne  non vide
      F9affichx = ""
     If Sheets(UserForm3.ComboBox1.Text).Range("a" & indexfiltre9ligne).Value = Sheets("résultat").Range("A" & INDEXCOURSEFILTREligne).Value Then 'compare les 2 index des 2 feuiLle
 
        indexcompareegale = indexcompareegale + 1 'incremente des que index du UserForm3.ComboBox1.Text a ete egale Sheets("résultat").Range("A" & INDEXCOURSEFILTREligne).Value
        dercolnonvide = Sheets(UserForm3.ComboBox1.Text).Range("a" & indexfiltre9ligne).End(xlToRight).Column 'derniere colonne
 
 
        'test si les 2 textbox sont vides alors on prend la totalite de la plage  soit premcol=7 et dercolnonvide
        If UserForm3.TextBox20.Value = 0 And UserForm3.TextBox19.Value = 0 Then
 
           F9affichx = UserForm3.ComboBox1.Text 'affiche le nom de la feuil selectionner par le combobox
           dercol = dercolnonvide
           premcol = 7
 
           For indexfiltre9 = premcol To dercol
                    If Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9) = Res(combinaisonN°, InK) Then chxeliminer = chxeliminer + 1 'compare la valeur de la cellulede la plage avec celle obtenue par Res(combinaisonN°, InK)
                       F9affichx = F9affichx & "-" & (Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9)) 'affichage des valeurs trouver dans les cellules de la plage
           Next indexfiltre9
 
       'test si le text20  >0 et que textbox19 egale à 0 permet de prendre  LEs x derniere cellules de la plage
        ElseIf UserForm3.TextBox20.Value > 0 And UserForm3.TextBox19.Value = 0 Then
               dercol = dercolnonvide
               premcol = dercolnonvide - Val(UserForm3.TextBox20.Value)
 
 
         For indexfiltre9 = premcol To dercol
                    If Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9) = Res(combinaisonN°, InK) Then chxeliminer = chxeliminer + 1 'compare la valeur de la cellulede la plage avec celle obtenue par Res(combinaisonN°, InK)
                       F9affichx = F9affichx & "-" & (Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9)) 'affichage des valeurs trouver dans les cellules de la plage
        Next indexfiltre9
 
 
 
 
        'test si les textbox bornage sont tous >0
        ElseIf UserForm3.TextBox19.Value > 0 And UserForm3.TextBox20.Value > 0 Then
               dercol = dercolnonvide - Val(UserForm3.TextBox20.Value) 'determine a postion de la derniere cellue de la plage
               premcol = Val(UserForm3.TextBox19.Value) 'determine la position du premier cellule ou colonne de la plage
 
         For indexfiltre9 = premcol To dercol
                    If Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9) = Res(combinaisonN°, InK) Then chxeliminer = chxeliminer + 1 ''compare la valeur de la cellulede la plage avec celle obtenue par Res(combinaisonN°, InK)
                       F9affichx = F9affichx & "-" & (Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9)) 'affichage des valeurs trouver dans les cellules de la plage
        Next indexfiltre9
 
 
 
 
        ElseIf UserForm3.TextBox19.Value > 0 And UserForm3.TextBox20.Value = 0 Then
               dercol = dercolnonvide
               premcol = Val(UserForm3.TextBox19.Value) 'determine la position du premier cellule ou colonne de la plage
 
         For indexfiltre9 = premcol To dercol
                    If Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9) = Res(combinaisonN°, InK) Then chxeliminer = chxeliminer + 1 'compare la valeur de la cellulede la plage avec celle obtenue par Res(combinaisonN°, InK)
                       F9affichx = F9affichx & "-" & (Sheets(UserForm3.ComboBox1.Text).Cells(indexfiltre9ligne, indexfiltre9)) 'affichage des valeurs trouver dans les cellules de la plage
         Next indexfiltre9
 
        End If
 
End If
    Next indexfiltre9ligne
 
  End If

merci

Bonsoir,

Tu utilise quatre fois la même boucle, tu devrais en faire une procédure séparée et l'appeler dans ta procédure principale.

A l'intérieur de cette même boucle l'appel de la fonction Res se fait toujours avec les mêmes paramètres, autant l'appeler avant de rentrer dans la boucle et stocker le resultat dans une variable.

D'autre part, l'utilisation de With augmente la lisibilité de l'ensemble.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub UneSub(premcol As Long, dercol As Long) '+ autres parametres si necessaire Dim Resultat As typeApproprie Resultat = Res(combinaisonN°, InK) With Sheets(UserForm3.ComboBox1.Text) For indexfiltre9 = premcol To dercol 'compare la valeur de la cellulede la plage avec celle obtenue par Res(combinaisonN°, InK) If .Cells(indexfiltre9ligne, indexfiltre9) = Resultat Then chxeliminer = chxeliminer + 1 'affichage des valeurs trouver dans les cellules de la plage F9affichx = F9affichx & "-" & (.Cells(indexfiltre9ligne, indexfiltre9)) Next indexfiltre9 End With End Sub
Cordialement,

Tirex28/

bonjour à tous ,

merci tirex28 de ta réponse
effectivement j'ai un code qui se repète.
j'y avais pensé mais j'avais du mal à la concrètiser.

j'ai remplace les qql elements

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub filtre9chxeliminer(premcol As Long, dercol As Long) '+ autres parametres si necessaire
    Dim Resultat As String
    Resultat = Res(combinaisonN°, InK)
 
    With Sheets(UserForm3.ComboBox1.Text)
        For indexfiltre9 = premcol To dercol
            'compare la valeur de la cellulede la plage avec celle obtenue par Res(combinaisonN°, InK)
            If .Cells(indexfiltre9ligne, indexfiltre9) = Resultat Then chxeliminer = chxeliminer + 1
            'affichage des valeurs trouver dans les cellules de la plage
            F9affichx = F9affichx & "-" & (.Cells(indexfiltre9ligne, indexfiltre9))
        Next indexfiltre9
    End With
End Sub

j'appelle donc ma procedure filtre9chxeliminer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

If UserForm3.CheckBox7.Value = True Then
    Dim premcol As Long
    Dim dercol As Long
    Dim dercolnonvide As Long
    
    
   dercol = 0
   dercolnonvide = 0
   F9affichx = ""
   'f9chx = ""
    
    For indexfiltre9ligne = 2 To Sheets(UserForm3.ComboBox1.Text).UsedRange.Rows.Count 'derniere ligne du prono non vide
      
        
     'If indexcompareegale = 0 And Sheets(UserForm3.ComboBox1.Text).Range("a" & indexfiltre9ligne).Value = Sheets("résultat").Range("A" & INDEXCOURSEFILTREligne).Value Then 'compare le index
        
            
     If Sheets(UserForm3.ComboBox1.Text).Range("a" & indexfiltre9ligne).Value = Sheets("résultat").Range("A" & INDEXCOURSEFILTREligne).Value Then 'compare le index
       'Sheets(UserForm3.ComboBox1.Text).Select
        dercolnonvide = Sheets(UserForm3.ComboBox1.Text).Range("a" & indexfiltre9ligne).End(xlToRight).Column 'derniere colonne non vide du prono
        
        
        'test si les 3 textbox sont vides alors on prend la totalite des chx du pronostique selectionner
        If UserForm3.TextBox20.Value = 0 And UserForm3.TextBox19.Value = 0 Then
           
           F9affichx = UserForm3.ComboBox1.Text 'affiche le nom de la feuil selectionner par le combobox donc le prono
           dercol = dercolnonvide
           premcol = 7
            call filtre9chxeliminer
.......

mais à l'execution j'ai l'erreur "Argument non falcutatif"

20/04/2009, 18h32
oscar.cesar
salut bon ok j'ai trouver
Code:

1 2 Call filtre9chxeliminer(premcol, dercol)
:yaisse2::yaisse2: